cA347 ;Printer/Scherm/File ;%A347 ; [ 01/04/01  2:08 PM ]
 N SWF S SWF=0 G 1
 ;
T0 ;Printer/Scherm/File ;
T1 ;Informatie\"[] = op het scherm   .[] = op de printer;   F[] = naar bestand;
T2 ;  Even geduld ... ;
 ;
T0F ;Imprimante/Ecran/Fichier ;
T1F ;Info\"[] = à l'écran   .[] = sur l'imprimante;   F[] = vers fichier;
T2F ;  Veuillez patienter ... ;
 ;
T0E ;Printer/Screen/File ;
T1E ;Info\"[] = on screen   .[] = on printer;   F[] = to file;
T2E ;  One moment ... ;
 ;
 ; F[] ook toegelaten
F N SWF S SWF=1 G 1
 ;
 ; Algemeen
1 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2) I SWF S R=R_$P($T(@("T1"_QT)),U,3)
11 S R=R_"""\1\\""-.,""[K!(K=""F""&SWF)",$P(R,D,11)=SWF D R0
13 I "."[K S PTS='$L(K)
15 I K'="F" G YZ
 ;
 ; File
2 S PTS="F"
 I '$P($G(^cLOG(boot,"DAM",2)),D) D B^cA612,^cA701 I K="-" D C^cA612 G 1
 I $P($G(^cLOG(boot,"DAM",2)),D) D PRINT^cA701 I K="-" G 1
21 S (K,PTS)="F",RO=TNR+5*100+26 W /CUP(22,1),$P($T(@("T2"_QT)),U,2),@F1
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84