cI15 ;TESTEN PRINTERPARAMETERS ;%I15; [ 06/27/00  10:41 AM ]
 ;
1 W !!!,"Plaats papier op de printer en schakel hem aan : .",$C(8) R K I K="-" G YZ
11 S:'$D(Q) Q="" D ^cA604 X F70 W !!!,@F80
 ;
2 W !?10,"F81 = ",@F81,"Super KLEIN AFDRUKKEN",@F83,!
21 W !?10,"F82 = ",@F82,"Groot AFDRUKKEN",@F83,!
22 W !?10,"F83 = ",@F83,"Normaal AFDRUKKEN",@F83,!
23 W !?10,"F84 = ",@F84,"Klein AFDRUKKEN",@F83,!
24 W !?10,"F85 = ",@F85,"Vergroot KLEIN AFDRUKKEN",@F83,!
25 W !?10,"F86 = ",@F86,"Dubbel AFDRUKKEN aan",@F83,!
26 W !?10,"F87 = ",@F87,"Dubbel AFDRUKKEN af",@F83,!
27 W !?10,"F88 = ",@F88,"Onderlijnd AFDRUKKEN aan",@F83,!
28 W !?10,"F89 = ",@F89,"Onderlijnd AFDRUKKEN af",@F83,!
 I $d(F96) W !?10,"F96 = ",@F96,"Bold printen AFDRUKKEN aan",@F83,!
 I $d(F97) W !?10,"F97 = ",@F97,"Bold printen AFDRUKKEN af",@F83,!
29 W !?10,"F30 = ",@F30," Recht streepje AFDRUKKEN ",@F83,!
30 G 5
31 W !,@F80,!
32 S FP=10 W #!?10,"F32 = ",$$CR^cA334 W @F32,?17," Page Length in lines = 10",!!!,"4",!,5,!,6,!,7
33 F I=2:1:4 W #,I,"' blad. Lijn 1   _____________" F J=2:1:5 W !?14,J
34 S FP=26 W #,@F32,# S FP=66 W @F32
35 G 5
 ;
4 W !!,"*** Karakterset ***",!!
41 S A=0 F I=32:1:255 S C=$C(I) W $J(I,3)," = ",C,$J("",4-$L(C)) S A=A+10 I A>124 W !! S A=0
 ;
5 W !! F i=1:1:30 w "123456789|"
 W !! F i=1:1:30 w "123456789|"
 W !!,"F84",!!
 W @F84
 W !! F i=1:1:30 w "123456789|"
 W !! F i=1:1:30 w "123456789|"
 W # X F71 W !!,"Done...",!!
 ;
YZ Q
 ;bijmaken printervariabelen
start s i=" " f  s i=$o(^cDEV(i)) q:i=""  s ty=$e(i,1,2) w !,ty d   
 . i '$d(^(ty_"F96")),$d(^(ty_"F86")) s ^(ty_"F96")=^(ty_"F86")
 . i '$d(^(ty_"F97")),$d(^(ty_"F87")) s ^(ty_"F97")=^(ty_"F87")
 . s i=ty_"z"
 . q
 Q
 ;
Z X ^cZ Q
ZZ ; 30.06.00 - 16 u 02 * V7.4