cTU15 ;DRUKKEN ETIKETTEN ;%TU15 ;go naar %TU32 ; [ 04/11/96  9:21 AM ]
 ;
T1 ;HET ETIKET;
T2 ;DE SELECTIE;
T3 ;INGAVE SELECTIE\"[] = ok   .[] = zonder bepaalde selectie ";
T4 ;LAATSTE SELECTIE OP ;ER WAREN ER ; GESELECTEERD OP DE ;DE SELECTIE DUURDE ;
T5 ;PLAATS DE ETIKETTEN OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen   .[] = later drukken";
T6 ;VANAF\"-[] = hernemen   .[] = vanaf het begin   [] = specifieke ingave";
T7 ;TOT\"I[] = idem als vorige   .[] = tot het einde   [] = specifieke ingave";
T8 ;PASWOORD;
T9 ;SELEKTIE OPNIEUW UITVOEREN \"[] = neen   1[] = onmiddellijk   .[] = later uitvoeren";
T10 ;Even geduld - uitvoering selektie ...;
T11 ;AANTAL ETIKETTEN\"[] = 1";Aantal etiketten : ;
T12 ;STARTEN OP ETIKET\"1 tot ;Starten op etiket: ;
 ;
1 S LASER=$P(R,";",2) G 5:'QP
11 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
2 S R="I1\2000\"_$P($T(T1),U,2)_"\LIE\LIE1" D ^cA101 G YZ:K="-" S FP=403,K=^(K,0),PP(1)=+K,Q1=$P(K,D,3),AEPB=297\$P(K,D,9),AEPMAX=AEPB*$P(K,D,8)
21 W @F,$P(K,D,2),@F1 S FP=440 W @F,$J($P(@("^"_Q_"LI(Q1,0)"),D,1),35) S SN=$P(^(0),D,3,99)
23 I $D(^("PW")) S FP=2203+F60 W @F,@F92,$P($T(T8),U,2),@F93,": ",@F0 U 0:(::::1) R R:30 U 0:(:::::1) G 2:^("PW")'=R
 ;
3 S PP(8)=0,I1=0,I1X="~",R="NR\22\3\"_$P($T(T3),U,2)_"\1\\""-.""[K" D R0 G 2:K="-" I K="." D 7:$L($P(SN,U,1)) G 3:K="-",4
31 S R="K\2000\"_$P($T(T2),U,2)_"\LIS\LIS1" D ^cA101 G 3:K="-"
33 S FP=903,K=^(K,0),NR=+K I $P(K,D,3)'=Q1 X ^cTXT(0,"N",252) R K G 31
34 W @F,$P(K,D,2),@F1 I '$L($P(K,D,9)) S PP(8)=1 G 39
35 S I=$T(T4),FP=1103 W @F,$P(I,U,2),$P(K,D,9)," - ",$P(K,D,10) K PP(8)
37 S FP=1303 W @F,$P(I,U,3),$P(K,D,11),$P(I,U,4),$P(K,D,12) S FP=1503 W @F,$P(I,U,5),$P(K,D,8)
39 S K=$P(K,D,4) S:'K K=1 S K=@("^"_Q_"LI(Q1,K)"),FP=1803 W @F,$P(K,D,1)
 ;
4 S R="EA\22\3\"_$P($T(T11),U,2)_"\2\\K?.N&K!(""-""[K)" D R0 G 3:K="-" S:'K EA=1 S FP=603 W @F,$P($T(T11),U,3),EA,@F2
40 S R="EAR\22\3\"_$P($T(T12),U,2)_AEPMAX_"""\2\\K?.N&K&(K'>AEPMAX)!(""-""[K)" D R0 G 4:K="-" S FP=643 W @F,$P($T(T12),U,3),EAR,@F2
41 S PP(9)=EA,PP(10)=EAR,PP(3)=I1,PP(4)=I1X,PP(2)=NR,S1="LIE" D ^cTU29 G 4:K="-"
43 I QP,'$D(PP(8)) S R="K\22\3\"_$P($T(T9),U,2)_"\1\\""-1.""[K" D R0,S1:K="." G 41:K="-" S PP(8)=+K
45 S R="K\22\3\"_$P($T(T5),U,2)_"\1\\""-.,""[K" D R0 G 3:K="-",2:K=","
47 I K="." S QPT="#"_$P(@("^"_Q_"LIE(^"_Q_"LIE1(PP(1)),0)"),D,2) D R9 G YZ
 ;
5 I 'QP G YZ:'$D(@("^"_Q_"LIE1(PP(1))")) S EA=PP(9),I1=^(PP(1)),NR="." S:$D(@("^"_Q_"LIS1(PP(2))")) NR=PP(2)
51 S J2=@("^"_Q_"LIE1(PP(1))"),K=@("^"_Q_"LIE(J2,0)"),Q1=$P(K,D,3),TIT=$P(K,D,2) G YZ:$O(^(99))=""
53 S A1=$P(K,D,8),A2=$P(K,D,10)+$P(K,D,11)*11\28,A3=$P(K,D,9)+2*6\25,A4=$P(K,D,12)*11\28
54 S AEPB=297\$P(K,D,9),AEPMAX=AEPB*A1,EAR=PP(10)
 ;S AEL="",$P(AEL,"-",80)="-",K=210\$P(K,D,10),AELX=80+K-1\K F K=AELX:AELX:80 S $E(AEL,K)="+"
55 I NR S K=$P(@("^"_Q_"LIS(^"_Q_"LIS1(NR),0)"),D,3) S:K'=Q1 NR=D
57 S K="L (^"_Q_"LIE1(PP(1))" S:NR K=K_",^"_Q_"LIS1(NR)" S K=K_"):2" X K E  G YZ:'QP X ^cTXT(0,"N",14) R K G 2
59 S:'QP SN=$P(@("^"_Q_"LI(Q1,0)"),D,3,99) I PP(8) S FP=2203 W:QP @F,$P($T(T10),U,2),@F1 S (QP,PP(8))=0 D ^cTU6 G 5
 ;
6 G ^cTU32
 ;
7 F K=1,2 S FP=K*200+703 W @F,$P($P($T(@("T"_(K+5))),U,2),D,1),@F1 S FP=FP+10 W @F,":"
71 S R="K\22\3\"_$P($T(T6),U,2)_"\1\\""-.""[K" D R0 Q:K="-"
72 I K="." S I1=0,K=$P($T(T6),".[] = ",2),K=$P(K,"   ",1)
73 E  X $P(SN,U,1) G 71:K="-" S I1=K X $P(SN,U,2):$L($P(SN,U,2)) S K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D,1)_" "_$P(K,D,2)
74 S FP=920 W @F,K,@F2
75 S R="K\22\3\"_$P($T(T7),U,2)_"\1\\""-.""[K!(K=""I""&(I1'=0))\\\1" D R0 G 71:K="-"
76 I K="." S I1X="~",K=$P($T(T7),".[] = ",2),K=$P(K,"   ",1) G 79
77 I K="I" S (I1X,K)=I1 X $P(SN,U,2):$L($P(SN,U,2)) S K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D,1)_" "_$P(K,D,2) G 79 
78 X $P(SN,U,1) G 75:K="-",78:I1]K S I1X=K X $P(SN,U,2):$L($P(SN,U,2)) S K=@("^"_Q_Q1_"(K,0)"),K=$P(K,D,1)_" "_$P(K,D,2)
79 S FP=1120 W @F,K,@F2 Q
 ;
YZ Q
 ;
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 S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
S1 S R=NR D ^cTU61 Q
 ;
R9 S R1=$T(+0) I $D(QPT) F R0=1,2 I $L($P(QPT,"#",R0)) S $P(R1,"#",R0)=$P(QPT,"#",R0)
R9A F R0=1:1 Q:'$D(PP(R0))  S R1=R1_D_PP(R0)
R9B S @%Q1=0,R2="^"_Q_"PP($I,0)" L @R2 S R0=$G(@R2,1),^(0)=R0+1,^(R0)=R1,^(R0,1)=1_D_D_QT_D_$G(ISO)_D,@%Q1=1
R9Z K R0,R1,R2 L  Q  ;V6 08.09.95
 ;
Z X ^cZ Q
ZZ ; 14.01.99 - 21 u 28 * V5.7