cTU27 ;BEHEER PARAMETERS ETIKETTEN ;%TU13;Do uit %TU13 [ 09/11/95  5:25 PM ]
 G 1
 ;
T1 ; mm.;
T2 ;WIJZIGEN FORMAAT\"[] = formaat ok   .[] = wijzigen formaat";
T3 ;HOEVEEL ETIKETTEN STAAN ER NAAST ELKAAR OP EEN BLAD\"[] = ";
T4 ;HOEVEEL MILLIMETER IS EEN ETIKET HOOG\"xxx of xx.x  [] = ";
T5 ;HOEVEEL MILLIMETER IS EEN ETIKET BREED\"xxx of xx.x  [] = ";
T6 ;HOEVEEL MILLIMETER TUSSEN ELK ETIKET (IN DE BREEDTE)\"[] = ";
T7 ;HOEVEEL MILLIMETER VOOR EERSTE ETIKET\"[] = ";
T8 ;AANTAL NAAST ELKAAR;HOOGTE ETIKET;BREEDTE ETIKET;AFSTAND TUSSEN ETIKET;VERPLAATSING;
 ;
S1 S FP=K*100+725 W @F,@F9 S FP=FP-22 W @F,@F6,$P($T(T8),U,K+1),@F9
S1Z S FP=FP+23 W @F,": ",@("A"_K),@F2 W:K>1 I Q
 ;
1 S I=$P($T(T1),U,2) G 2:$D(A5) S:'$D(@("^"_Q_"BA(""%TU"",1)")) @("^"_Q_"BA(""%TU"",1)")="1\24\89\2\0"
11 S K=@("^"_Q_"BA(""%TU"",1)"),A1=+K,A2=$P(K,D,2),A3=$P(K,D,3),A4=$P(K,D,4),A5=$P(K,D,5)
 ;
2 S A5=+A5 F K=1:1:5 D S1:A1>1!(K'=4)
21 S R="K\22\3\"_$P($T(T2),U,2)_"\1\\""-.""[K" D R0 G 5:K="",YZ:K="-"
 ;
3 S R="K\22\3\"_$P($T(T3),U,2)_"_A1\2\\K?.N&K!(""-""[K)" D R0 G YZ:K="-" S:K A1=K S FP=828 W @F,A1,@F2
31 S R="K\22\3\"_$P($T(T4),U,2)_"_A2\4\\K?.N!(K?.N1"".""1N)&K!(""-""[K)" D R0 G 3:K="-" S:K A2=K S FP=928 W @F,A2,I,@F2
33 S R="K\22\3\"_$P($T(T5),U,2)_"_A3\4\\K?.N!(K?.N1"".""1N)&K!(""-""[K)" D R0 G 31:K="-" S:K A3=K S FP=1028 W @F,A3,I,@F2
35 S R="K\22\3\"_$P($T(T6),U,2)_"_A4\2\\K?.N!(K=""-"")" D:A1>1 R0 G 33:K="-" S A4=+K S K=4,FP=1103 W @F,@F2 D S1:A1>1
37 S R="K\22\3\"_$P($T(T7),U,2)_"_A5\2\\K?.N!(K=""-"")" D R0 G 35:K="-" S:$L(K) A5=K S FP=1228 W @F,A5,I,@F2
 ;
4 S K=A3+A4*A1-A4+A5*11\28 I K>130 X ^cTXT(0,"N",246) R K G 3
41 G 21
 ;
5 S MAL=A2*6\25,MLN=A3*11\28,@("^"_Q_"BA(""%TU"",1)")=A1_D_A2_D_A3_D_A4_D_A5
 ;
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
 ;
Z X ^cZ Q
ZZ ; 14.01.99 - 21 u 28 * V5.7