cAN611 ;Printen op het scherm : nieuw versie ;%A611 ; [ 01/04/01  11:27 AM ]
 ;
T0 ;Afprinten op scherm ;
 ;
T0F ;Impression a l'écran ;
 ;
T0E ;Print to screen ;
 ;
1 B 0
 N R1,R2
 ;
2 S R1=" P",R2=0
 D VAR^cAN600("PRT",R1,"","*0")
 S F30="$C(124)",(F82,F85)=F4,F83=F5,(F86,F96)=F92,(F87,F97)=F93,F88=F6,F89=F9
 ;
3 S LNMAX=16
 ;
YZ B 1 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84