cAN100 ;INPUT-ROUTINE ;%AN100 ; [ 09/01/95   1:53 PM ]
 ;
T0 ;Input-routine ;
 ;
T0F ;Routine d'entrée;
 ;
T0E ;Input-routine ;
 ;
 ; initialisatie
1 N KR,R
11 S KR=K
13 S R=U2(11) I $L(R) S R=R_"!(K=""-"")!(K="","")" I $G(WIJZ)=2 S R=R_"!($E(K)=""+"")"
 ;
2 S R="KR\22\3\"_$P(U2(1),D,QTU)_"\"""_$P(U2(10),D,QTU)_"""\"_U2(9)_"\\"_R_"\\\\\1"
21 G ^cAN1000
 ;
YZ Q
 ;
 ; deze R0 moet in elk programma zitten
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84