KBKALT ;K.A.L.-VERGELIJK (DATATRANSFERT);KBKALT;
 G 11
 ;
T1 ;BESTAND IN GEBRUIK  [] = ok
 ;
1 L @("^"_Q_"KAUS"):2 E  S FP=2403 W @F,@F1,@F4,$P($T(T1),U,2),@F5,@F0 R K G YZ
11 K @("^"_Q_"KAUS") S VNR=$D(@("^"_Q_"KAUS(0)"))
13 R K I K'="#" G 13:$L(K)'=105,13:K?.E1C.E S VNR=VNR+1,^(VNR)=K G 13
 ;
2 D ^KBKALS
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 21.08.89 - 15 u 19