KDCOL G 1 ;DRUKKEN KLEURENKODES [ 08/05/2002  10:33 AM ]
 ;
1 S K=$P($T(+1),";",2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S BLZ=0,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3)
2 S FP=403 W @F,@F1,"VANAF KLEURENKODE :"
20 S ICO="",FP=501
3 S ICO=$N(@("^"_Q_"COL(ICO)")),VVE=1 G 5:ICO=-1 S N1=^(ICO,"N"),FP=FP+100 W @F,$C(13),?2,ICO,": ",N1
4 G 3:FP<1600 S VVE=$N(@("^"_Q_"COL(ICO)"))=-1
5 S R="FCO\21\3\VANAF KLEURENKODE\C1\4\\""-.""[K!($D(^(K_"" "")))\" D R0 G YZ:K="-"
6 I K="" S FP=501 W @F,@F1 G 20:VVE,3
7 S:FCO="." FCO="" S FCO=FCO_" ",FP=428 W @F,@F1,$S(K=".":"BEGIN",1:FCO) S FP=503 W @F,"TOT KLEURENKODE   :"
9 S ICO="",FP=601
11 S ICO=$N(@("^"_Q_"COL(ICO)")),VVE=1 G 15:ICO=-1 S N1=^(ICO,"N"),FP=FP+100 W @F,$C(13),?2,ICO,": ",N1
13 G 11:FP<1600 S VVE=$N(@("^"_Q_"COL(ICO)"))=-1
15 S R="LCO\21\3\TOT KLEURENKODE\C2\4\\""-.I""[K!($D(^(K_"" "")))\" D R0 G 2:K="-"
17 I K="" S FP=601 W @F,@F1 G 9:VVE,11
19 S:K="." LCO="ZZZZ" S:K="I" LCO=FCO S LCO=LCO_" ",FP=528 W @F,@F1,$S(K=".":"EINDE",1:LCO)
21 D INIT^vhPRINTER(80) G 15:'$D(Print)
23 D HD G 27:$D(@("^"_Q_"COL(FCO)"))
25 S FCO=$N(@("^"_Q_"COL(FCO)")) I FCO=-1!(FCO]LCO) G 33
27 I LN>49 W !,$P($T(T2),U,2),# D HD
28 S LN=LN+2 W !,$P($T(T3),U,2),$C(13),?11,FCO,?18,^(FCO,"N"),?39,^("F"),!,$P($T(T3),U,2)
31 G 25
33 W !,$P($T(T2),U,2),# D CLOSE^vhPRINTER
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?72,"BLZ: ",$J(BLZ,3),!,NM2,?35,$P($T(+1)," ",5),?72,DT
HD1 W !,NM3,?73,TD,!!,$P($T(T2),U,2),!,$P($T(T1),U,2),!,$P($T(T2),U,2)
HDZ Q
 ;
T1 ;:     KLEURKODE : NEDERLANDS         : FRANS              :
T2 ;:---------------:--------------------:--------------------:
T3 ;:               :                    :                    :
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
C1 W !?2,".[] = vanaf het begin" W:'VVE "   [] = vervolg" W "   -[] = einde programma" Q
C2 W !?2,".[] = tot het einde" W:'VVE "   [] = vervolg" W "   I[] = idem als vorige" Q
 ;