cA119 ;Inputverwerking via R0 en %A100 ;%A119 [ 01/05/96  11:52 AM ]
 ;
T0 ;Inputverwerking via R0 en %A100 ;
 ;
T0F ;Inputverwerking via R0 en %A100 ;
 ;
T0E ;Inputverwerking via R0 en %A100 ;
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84