cA340 ;BEHEER KLEUREN ;%A323; [ 04/12/00   9:03 AM ]
 ;
T0 ;Beheer kleuren ;
T1 ;Kleur;Voorgrond;Achtergrond;Instelling;
T2 ;Zwart\30\40;Rood\31\41;Groen\32\42;Geel\33\43;Paars\35\45;Lichtblauw\36\46;Wit\37\47;
T3 ;Voorgrondkleur  \;
T4 ;Achtergrondkleur\;
T5 ;Deze kombinatie is niet mogelijk  [] = ok ;
T6 ;Dit scherm is niet ingesteld als een kleurenscherm  [] = ok ;
T7 ;Geef het testgetal\"de kleurencombinatie is niet goed als dat getal onleesbaar is";
T8 ;Testgetal : ;
 ;
T0F ;Gestion des couleurs ;
T1F ;Couleur;Plan avant;Plan arrière;Définition;
T2F ;Noir\30\40;Rouge\31\41;Vert\32\42;Jaune\33\43;Violet\35\45;Bleu claire\36\46;Blanc\37\47;
T3F ;Plan avant   \;
T4F ;Plan arriere \;
T5F ;Cette combinaison est impossible  [] = ok ;
T6F ;L'écran n'est pas defini comme écran couleur  [] = ok ;
T7F ;Donnez le chiffre de test\"la combinaison n'est pas bon si illisible";
T8F ;Chiffre de test : ;
 ;
T0E ;Beheer kleuren ;
T1E ;Kleur;Voorgrond;Achtergrond;Instelling;
T2E ;Zwart\30\40;Rood\31\41;Groen\32\42;Geel\33\43;Paars\35\45;Lichtblauw\36\46;Wit\37\47;
T3E ;Voorgrondkleur  \;
T4E ;Achtergrondkleur\;
T5E ;Deze kombinatie is niet mogelijk  [] = ok ;
T6E ;Dit scherm is niet ingesteld als een kleurenscherm  [] = ok ;
T7E ;Geef het testgetal\"de kleurencombinatie is niet goed als dat getal onleesbaar is";
T8E ;Testgetal : ;
 ;
1 S DC=$P(^cLOG(boot,"DEV",A),D,1) I DC'="OC" S FP=2402 W @F,@F4,$P($T(@("T6"_QT)),U,2),@F5,@F0 R K S K="X" G YZ
11 S FP=401 W @F,@F1 K A,B,G
12 F I=2:1 S X=$P($T(@("T2"_QT)),U,I) Q:'$L(X)  S E($P(X,D,2))=$P(X,D),B($P(X,D,3))=$P(X,D),G($P(X,D))=X
13 S Z=I+7*100,R="402\"_(Z+49),RV="419#"_(Z+19)_"\434#"_(Z+34),RH="602#649\"_(Z-200+2)_"#"_(Z-200+49) D ^cA319
14 S FP=503 W @F,@F6,$P($T(@("T1"_QT)),U,2) S FP=521 W @F,$P($T(@("T1"_QT)),U,3) S FP=536 W @F,$P($T(@("T1"_QT)),U,4),@F9
15 S (XP,FP)=704,X=0 F I=1:1 S X=$O(G(X))  Q:X=""  W @F,X S FP=FP+19 W @F,$J($P(G(X),D,2),5) S FP=FP+14 W @F,$J($P(G(X),D,3),5) S (XP,FP)=XP+100
16 S X=$P(^cDEV(DC_"F5"),"[",2),V=$P(X,";"),W=$P($P(X,";",2),"m")
17 I V=33 S W=$P($P(X,";",3),"m")
18 S FP=Z-96 W @F,$P($T(@("T1"_QT)),U,5) S FP=FP+17 W @F,E(V) S FP=FP+15 W @F,B(W)
 ;
2 S R="V\21\3\"_$P($T(@("T3"_QT)),U,2)_"\2\\K?2N&$D(E(+K))!(K=""-"")\" D R0 G YZ:K="-" W " - ",E(V)
21 S R="W\22\3\"_$P($T(@("T4"_QT)),U,2)_"\2\\K?2N&$D(B(+K))!(K=""-"")\" D R0 G 2:K="-" W " - ",B(W)
210 I V=33 S V=V_";1"
22 I V#10=(W#10) S FP=2402 W @F,@F4,$P($T(@("T5"_QT)),U,2),@F5,@F0 R K G 21
23 S FP=1802,X=$R(100000) W @F,$$CR^cA334 W $C(27),"[0;",V,";",W,"m",$J("",240) I $L(X)=1 G 23
24 S Y=$L(X)\2,FP=1920-Y W @F,$P($T(@("T8"_QT)),U,2),$E(X,1,Y),$C(27),"[",(W#10+30),";",(V#10+40),"m",$E(X,Y+1,$L(X)),$C(27),"[",V,";",W,"m "
25 S FP=2101 W @F,@F5 S R="K\23\3\"_$P($T(@("T7"_QT)),U,2)_"\"_$L(X)_"\\K=""-""!(K=X)\" D R0 I K="-" G 21
 ;
3 F I=1:1 S X=$T(F+I) Q:$E(X,1,2)="FZ"  S Z($P(X," "))=$P(X,D,2)_V_";"_W_$P(X,D,3)
31 S Z("F4")="*27,""["_(W#10+30)_";"_(V#10+40)_"m """
32 S X="" F I=1:1 S X=$O(Z(X)) Q:X=""  S (^cDEV(DC_X),@X)=Z(X)
33 W @F5
 ;
YZ K B,E,G,Z Q
 ;
F ;
F11 ;\*27,"[1;1H",*27,"[\m"
F4 ;\*27,"[\;7m "
F5 ;\*27,"[\m "
F6 ;\" ",*27,"[\;34m"
F9 ;\*27,"[0;\m "
F90 ;\*27,"[\;8m "
F91 ;\*27,"[0;\m "
F92 ;\" ",*27,"[\;1m"
F93 ;\*27,"[0;\m "
F94 ;\*27,"[\;5m "
F95 ;\*27,"[0;\m "
FZ ;
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z K R0,R1 D ^cA100 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84