KBTPLA G 1 ;BEHEER TEKST PRIJSL/ART SEL [ 08/05/2002  10:33 AM ]
 ;
1 B 1 L @("^"_Q_"STKL(0)"):2 E  S FP=2403+F60 W @F,@F4,"TEKSTEN IN GEBRUIK ! [] = OK ",@F5,@F0 R K G YZ
10 S TL1="NFDE",TK="NEDERL.\FRANS\DUITS\ENGELS",TKK="nederlands\frans\duits\engels"
11 S K=$P($T(+1),";",2)_" ",FP=103+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,K,@F5
111 S FP=132 W @F,@F1
112 S TXTC=0,LN=1502
113 S TXTC=$N(@("^"_Q_"STKL(0,TXTC)")) G 116:TXTC>99!(TXTC'?.N) S TXTN=^(TXTC,0,0)
114 S FP=LN W @F,$C(13),$J(TXTC,6),?9,TXTN
115 S LN=LN+100 G 113:LN<2100
116 S R="TXT\22\3\NUMMER TEKST\95\2\\K?.N&(K<100)!(""-D""[K)" D S0 G YZ:K="-",3^KDTPLA:K="D"
117 I K="" S (LN,FP)=1502 W @F,@F1 G 112:TXTC>99!(TXTC'?.N),113
118 I '$D(@("^"_Q_"STKL(0,TXT,0,0)")) S R="K\23\3\OMSCHRIJVING\\28" D S0 G 116:K="-" S @("^"_Q_"STKL(0,TXT,0,0)")=K G 12
119 S FP=2303+F60 W @F,@F1,"OMSCHRIJVING : ",!?2,"[] = omschrijving ok" S FP=2318+F60 W @F,^(0),$E("............................",1,28-$L(^(0))),@F,@F0 R K
120 G 119:$L(K)>28,116:K="-" I $L(K) S @("^"_Q_"STKL(0,TXT,0,0)")=K
12 S FP=163 W @F,@F5 S FP=133 W @F,@F4,"TEKST ",TXT," ",$E(^(0),1,25)," ",@F5 G 13
13 S FP=170 W @F,@F1 S SW=0,R="TLT\22\3\NEDERLANDS-, FRANS-, DUITSTALIGE TEKST\92\1\\""-NFDV""[K&$L(K)" D S0 G 111:K="-"
14 G 16:K'="V" S R="K\23\3\V[] = verwijderen definitief\94\1\\""-V""[K&$L(K)" D S0 G 13:K="-"
15 K @("^"_Q_"STKL(0,TXT)") S FP=2403+F60 W @F,@F2,@F4,"TEKST ",TXT," IS VERWIJDERD [] = ok ",@F5,@F0 R K G 111
16 S FP=180 W @F,@F5 S FP=177-$L($P(TK,D,$F(TL1,TLT)-1)) W @F,@F4,$P(TK,D,$F(TL1,TLT)-1)," ",@F5
17 S X2=0,A="'$D(^"_Q_"STKL(0,TXT,TLT))" I @A S SW=1 G 2
19 S @(TLT_"(1)=^"_Q_"STKL(0,TXT,TLT,1)") F X=2:1:60 S @(TLT_"(X)=^(X)")
2 S FP=201 W @F,@F1 F FP=206:100:2106 S X2=X2+1 D 5
21 S R="K\22\3\GEEF DE GEWENSTE LIJN\91\2\\K?.N&(K>(X2-20))&(K<(X2+1))!(""-""[K)\" D S0 G 4:K="-" S B=K I K="" S:X2=60 X2=0 G 2
29 S R="TH\23\3\TEKST\94\68\\K=""-""!(K=K)\" D S0 G 21:K="-"
3 S @(TLT_"(B)=TH"),FP=21-X2+B*100+11 W @F,TH,@F2 G 21
4 S @("^"_Q_"STKL(0,TXT,TLT,1)="_TLT_"(1)") F X=2:1:60 S:'$D(@(TLT_"(X)")) @(TLT_"(X)")="" S @("^(X)="_TLT_"(X)")
41 F I=1:1:60 K @(TLT_"(I)")
43 G 13
5 W @F W:X2<10 " " W X2," :" S:SW @(TLT_"(X2)=""""") W:'SW " ",@(TLT_"(X2)"),@F2
51 Q
YZ Q
91 W !,?2 W:X2<60 " [] = vervolg   ",!?2 W "-[] = einde wijzigen tekst ",$P(TKK,D,$F(TL1,TLT)-1) Q
92 W !,?2,"N[] = nederlands   F[] = frans   D[] = duits"
93 W !,?2,"V[] = verwijderen tekst   -[] = keuze tekstnummer" Q
94 W !?2,"-[] = hernemen keuze" Q
95 W !?2 W:TXTC<100&(TXTC>0) "[] = vervolg   " W "D[] = drukken teksten   -[] = einde programma" 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
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31