KTBJD G 1 ;BEPALEN BOEKJAAR ;%TBJ;
 ;
1 S BPA=@("^"_Q_"BA(7)"),AM=$P(BPA,".",2),BJ=BPA\1,BPB=D_BJ S:$D(^(2)) BPB=^(2) S BM=$P(DT,".",2)
11 S:$L(BM)=1 BM=0_BM S:BM'>AM BJ=BJ+1 S BP=BJ_"."_BM,BJ=$P(BPB,D,2) S:BP>BJ BJ=BJ+1 S BJ=BJ\1
13 K AM,BPB,BPA,AM,BM
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 15.09.87 - 10 u 25