KOF9 G F ;REGISTRATIE UITLEVERINGEN (INGANG) ;Go naar KOF30
 ;
F S US="F",UKIL="" G 1
 ;
1 S UGL="OFKL",UG1="OFKL1",UG2="OFKL2",UGB="OFKLB",UGT="OFKLT" G 2
 ;
2 S U=";",X=@("^"_Q_UGL_"(0,US,0)") F I="UD","UT","UTL","USM","USC","UV","UUM","UOU" S @I=^(I)
21 S $P(BS,D,26)=D,$P(BLA," ",60)=" ",$P(PNT,".",40)="."
23 S UVV=$P($P(UV," ",2),"=",2),Q1="^"_Q_UGL_"(0,US,""UR"")" X X,UT K X,UT
 ;
YZ G ^KOF30
 ;
 Q
Z X ^cZ Q
ZZ ; 20.05.88 -  9 u 22