KTBVWK G 1 ;BEHEER TEKSTEN BETALINGSVOORW. KLANTEN ;KTBVWK;
1 B 1 S TL="NEDERL.\FRANS  \DUITS  \ENGELS ",TL1="NFDE"
10 S K=$P($T(+1),";",2)_QN_" ",FP=103+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,K,@F5
13 S SW=0
17 S A="'$D(^"_Q_"BA(150))",Y=0 I @A S SW=1 G 2
19 F I="N","F","D","E" S @(I_"(1)=^"_Q_"BA(150,I,1)") F X=2:1:5 S @(I_"(X)=^(X)")
2 F FP=201:100:2101 S X1=FP\100-2#5 S:X1 X="       " S:'X1 Y=Y+1,X=$P(TL,D,Y),X2=0 S X2=X2+1,Y1=$E(TL1,Y) D 5
21 S R="K\22\3\GEEF DE GEWENSTE LIJNKODE  vb. N1[] = NEDERLANDS EERSTE LIJN \90\5\\K?1U1N!(K?1U1N1""=""1U1N)!(K=""-"")&$L(K)\"
23 D S0 G 4:K="-" S A=""_$E(K,1)_"",B=$E(K,2) G 29:K'["="
25 S U=""_$E(K,4)_"",V=$E(K,5),@("TH="_U_"(V)") G 3
29 S R="TH\23\3\TEKST\""-[] = hernemen keuze""\68\\K=""-""!(K=K)\" D S0 G 21:K="-"
3 S @(A_"(B)=TH"),FP=$F(TL1,A)-2*5+B*100+112 W @F,TH,@F2 G 21
4 F I="N","F","D","E" S @("^"_Q_"BA(150,I,1)="_I_"(1)") F X=2:1:5 S @("^(X)="_I_"(X)")
41 G YZ
5 W @F,X," ",Y1,X2 S:SW @(Y1_"(X2)=""""") W:'SW " ",@(Y1_"(X2)"),@F2
51 Q
YZ K D,F("1"),F("2"),F("3"),F("4"),F("5") S D="\" Q
90 W !,?2,"dupliceren van een reeds bestaande lijn   vb. F1=N1[]"
91 W !,?2,"-[] = einde tekst " Q
S0 S S7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" S7=S7_","_$P(R,D,8) S:$P(R,D,7)'="" S7=S7_","_$P($T(@$P(R,D,7))," ",2,99)
S0A S S2=$P(R,D,2),S3=$P(R,D,3),S4=$P(R,D,4),S5=$P(R,D,5),S6=$P(R,D,6)
S0B S S0=$L(S4)+S3+3 S FP=S2*100+S3+F60 W @F W:S3<4 @F1 W @F2,S4," : " I S5'="" W:S5["""" !,?2,@S5 D:S5'["""" @S5
S0C S FP=S2*100+S0+F60 W @F,@F2 W $E("......................................................................",1,S6),@F,@F0
S0D R K W @F2 I $L(K)'>S6,@S7 S @$P(R,D,1)=K
S0E E  G S0C
S0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,S6),@F,K
S0Z K R,S0,S2,S3,S4,S5,S6,S7 Q  ;V3 23.08.84
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36