cA114 ;Teledata standaard programma-lijnen ; [ 04/12/00   9:03 AM ]
 ;
T0 ;Teledata standaard programma-lijnen ;
 ;
T0F ;Teledata standaard programma-lijnen ;
 ;
T0E ;Teledata standaard programma-lijnen ;
 Q
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
P1 ;PLAATS BREED BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen"
P1Z S R="K\23\3\"_$P($T(P1),U,2)_"\1\\""-,""[K\" D R0
 ;
P8 ;PLAATS SMAL BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen"
P8Z S R="K\23\3\"_$P($T(P8),U,2)_"\1\\""-,""[K\" D R0
 ;
H1 ;BLZ :
H1Z S K=$P($T(@("T0"_QT)),U,2) W !,QN,?124,$P($T(H1),U,2),$J(BLZ,3),!,NM2,$$CR^cA334 W ?66-$L(K),@F82,K,@F83,$$CR^cA334 W ?124,DT,!,NM3,?125,TD,!
 ;
H8 ;BLZ :
H8Z S K=$P($T(@("T0"_QT)),U,2) W !,QN,?72,$P($T(H8),U,2),$J(BLZ,3),!,NM2,$$CR^cA334 W ?40-$L(K),@F82,K,@F83,$$CR^cA334 W ?72,DT,!,NM3,?73,TD,!
 ;
R0
	Write "Fout in programma cA114 van DATAM, verwittig ICT" r k
	Quit
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84