KOFKL6 ;MODULE TEKSTEN ;Quit naar %F10
 G 1
 ;
1 X @("^"_Q_UGL_"(0,US,""UT1"")") S UD=^("UD1"),USM=^("USM1"),USC=^("USC1"),UV=^("UV1"),UVV=$P($P(UV,"=",2)," ",1)
11 D ^KOFKL1,^cF10
 ;
2 K UTA,UTB X @("^"_Q_UGL_"(0,US,""UT"")") S UD=@("^"_Q_UGL_"(0,US,""UD"")"),USM=^("USM"),USC=^("USC"),UV=^("UV")
21 G ^KOFKL3
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 10.06.88 - 16 u 22