cTU28 ;BEHEER PARAMETERS BRIEVEN ;%TU17;Do uit %TU17
 G 1
 ;
T1 ;neen;ja;
T2 ;WIJZIGEN BLADSCHIKKING\"[] = schikking ok   .[] = wijzigen schikking";
T3 ;HOEVEEL IS DE VERPLAATSING\"[] = ";
T4 ;HOE GROOT IS DE MARGE\"[] = ";
T5 ;HOOFDING DRUKKEN\"0[] = neen   1[] = ja   [] = ";
T6 ;VERPLAATSING;MARGE;HOOFDING;
 ;
S1 S I="S I=A"_K,FP=K*100+725 X I W @F,@F9 S FP=FP-22 W @F,@F6,$P($T(T6),U,K+1),@F9 S FP=FP+23 W @F,": ",@F2 W:K<3 I
S1Z W:K=3 $P($T(T1),U,I+2) Q
 ;
1 G 2:$D(A3) S:'$D(@("^"_Q_"BA(""%TU"",0)")) @("^"_Q_"BA(""%TU"",0)")=3
11 S K=@("^"_Q_"BA(""%TU"",0)"),A1=+K,A2=$P(K,D,2),A3=$P(K,D,3)
 ;
2 F K=1:1:3 D S1
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\3\\K?.N&K!(""-""[K)" D R0 G 3:K="-" S:K A2=K S FP=928 W @F,A2,@F2
33 S R="K\22\3\"_$P($T(T5),U,2)_"_A3\1\\""01-""[K" D R0 G 31:K="-" S:$L(K) A3=K S FP=1028,K=3,I=A3 W @F D S1Z
 ;
4 G 21
 ;
5 S @("^"_Q_"BA(""%TU"",0)")=A1_D_A2_D_A3
 ;
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 ; 07.06.88 - 16 u 58