cI18 ;TESTEN SCHERMPARAMETERS ;%I18; [ 02/21/00  5:31 PM ]
 ;
1 W !!!!!!!!!!!!!!!!!!!!!!!!!!,"Alles is in orde om dit scherm te testen : .",$C(8) R K I K="-" G YZ
11 S:'$D(Q) Q="" D ^cA604
 ;
2 W @F11,@F1,"1-ste lijn + 1-ste kolom" F I=2:1:24 W !,"Lijn ",$J(I,2),?70,"Lijn ",$J(I,2)
21 S FP=1020 W @F,"[] = ok : .",$C(8),@F0 R K W @F1,"Vegen tot einde van het scherm."
22 S FP=537 W @F,@F2,"Vegen tot einde van de lijn ",@F0
23 S K="Tekstattribuut = Invers beeld "  S FP=1103+$L(K) W @F,@F5 S FP=1101 W @F,@F4,K,@F5
24 S K="Tekstattribuut = Onderlijnen" S FP=1303+$L(K) W @F,@F9 S FP=1301 W @F,@F6,K,@F9
25 S FP=1501 W @F,@F92,"Tekstattribuut = extra helderheid",@F93
26 S FP=1701 W @F,@F94,"Tekstattribuut = Knipperend ",@F95
27 S FP=301 W @F,"Deze lijn verdwijnt met een delete line  [] = ok .",$C(8),@F0 R K W @F,@FDL
28 S FP=301 W @F,"En hier gaan we een lijntje inserten  [] = ok .",$C(8),@F0 R K W @F,@FIN
29 S FP=1901 W @F,"Test onzichtbaar. Geef 'TEST' in, gevolgd door [] : ",@F90,@F0 R K W @F91 I K'="TEST" G 29
 ;
3 S FP=2101 W @F,"Test van de printerpoort."
31 W !!,"Plaats papier op de printer en schakel hem aan : .",$C(8),@F0 R K I K="-" G 5
32 X F70 W !!!,@F80,!! F I=1:1:20 W !,"Lijn ",I," op de printer."
33 W !!# X F71 B 1
 ;
4 S FP=1901 W @F,@F1,"En hier zijn we terug op het scherm. De printer mag nu niet meer meespelen.",@F0
41 F I=20:1:24 W !,"Lijn ",$J(I,2)," op het scherm."
42 S FP=2401 W @F,@F4,"Einde test  [] = ok ",@F5,@F0 R K
 ;
5 W @F1,!!,"Test van de graafjes : ",! F I=1:1:22 W @F7,@$P(FG,D,I),@F8
51 W ! F I=1:1:22 W $J(I\10,1)
52 W ! F I=1:1:22 W $J(I#10,1)
53 W !!,"Einde.",!!
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3