KB ;KORREKTIE BOEKHOUDING
 ;
1 R !,"Q=",Q G YZ:"-^"[Q
11 R !,"GLOBAL=",Q1 G 1:"-^"[Q1
13 R !,"I1=",I1 G 11:"-^"[I1,13:'$D(@("^"_Q_Q1_"(I1)"))
15 R !,"I2=",I2 G 13:"-^"[I2,15:'$D(@("^"_Q_Q1_"(I1,I2)"))
17 R !,"BX=",BX G 15:"-^"[BX,17:BX<2!(BX>23)
19 R !,"BEDRAG=",B G 17:'B
 ;
2 R !,".[] = OK ? ",K G 19:"-^"[K,2:K'="."
21 L @("^"_Q_Q1_"(I1,I2)") W "."
23 S L=@("^"_Q_Q1_"(I1,I2)"),$P(L,D,BX)=$P(L,D,BX)+B,^(I2)=L W ". DONE" L
25 G 15
 ;
YZ Q