cA261 ;DRUKKEN KODES (VERWERKING) ;%A260;
 ;
T0 ;Printen codes (verwerking) ;
 ;
T0F ;Impression codes (traitement) ;
 ;
T0E ;Printen codes (verwerking) ;
 ;
1 G YZ:'$L($O(@Q1))
 ;
2 S RRZ=$O(@Q1) G Y:RRZ="" S R22=@Q1
21 D @$P(RPM,D,2) G 2
 ;
Y I $L($P(RPM,D,5)) D @$P(RPM,D,5)
YZ K BLZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84