cI71 ;VOORBEREIDING MEERTALIGHEID ;%I71; [ 06/30/93  4:22 PM ]
 ;
1 K  W #!,$P($T(+1),";",2),! D ^cRSEL G YZ:$O(^UTILITY($J,""))=""
11 W !!?2,"1. Alle T-lijnen worden gekopieerd naar TxF lijnen.",!?2,"2. De titellijnen T0 en T0F worden toegevoegd."
12 W !?2,"3. $T(+1) wordt $T(@(""T0""_QT))",!?2,"4. ^cTXT(0,""N"",xxx) wordt ^cTXT(0,$E(QT_""N""),xxx)"
13 W !?2,"5. $T(@(""T""_I)) wordt $T(@(""T""_I_QT))",!?2,"6. $T(@(""T""_(I+3))) wordt $T(@(""T""_(I+3)_QT))"
14 W !?2,"7. $T(T1)) wordt $T(@(""T1""_QT))"
15 W !!,"Deze programma's mogen aangepast worden?   J[] = ja   N[] = nee",!!,"KEUZE : " R K G 1:K="-",11:$L(K)'=1,11:"JjNn"'[K,YZ:"Nn"[K
16 S PRG="" W !!! S $ZT="ERR^"_$T(+0)
 ;
2 S %ZM="ZL @PRG X %ZM(9) Q:T  X %ZM(0),%ZM(1),%ZM(2),%ZM(3),%ZM(4),%ZM(5),%ZM(6) ZS @PRG"
20 S %ZM(0)="S B(0)=""T0 ;""_$P($T(+1),"";"",2)_"";"",A(0)=""T0F ;""_$P($T(+1),"";"",2)_"";"""
21 S %ZM(1)="S T=0 F I=1:1 S A=$T(+I) Q:A=""""  S B=$F(A,""$T(+1)"") I B S A=$E(A,1,B-4)_""@(""""T0""""_QT))""_$E(A,B,519) ZI A:+I ZR +I"
22 S %ZM(2)="S (E,TP)=0,B=2 F I=1:1 S A=$T(+I) Q:A=""""  S X=$P(A,"" ;"",1) I X?1""T""1N.N S:'TP TB=A,B=I-1 S TP=TP+1,E=I S A(TP)=$P(A,"" ;"",1)_""F ;""_$P(A,"" ;"",2,999)"
23 S %ZM(3)="ZI:'E "" ;"":+1 S:'E E=2 ZI B(0):+B ZI "" ;"":+E+1 S E=E+2 F I=T:1:TP ZI A(I):+E+I"
24 S %ZM(4)="F I=B:1 S A=$T(+I) Q:A=""""  S B=$F(A,""^cTXT(0,"") I B S A=$E(A,1,B-1)_""$E(QT_""""N"""")""_$E(A,B+3,519) ZI A:+I ZR +I"
25 S %ZM(5)="K A,B F I=1:1 S A=$T(+I) Q:A=""""  S B=0 F  S B=$F(A,""$T(@(""""T""""_"",B) Q:'B  S C=$E(A,B) X %ZM(51):C=""("",%ZM(52):C'=""("""
26 S %ZM(51)="S N=$P($E(A,B,519),"")"",1),A=$E(A,1,B-1)_N_"")_QT""_$E(A,B+$L(N)+1,519) ZI A:+I ZR +I"
27 S %ZM(52)="S N=$P($E(A,B,519),"")"",1),A=$E(A,1,B-1)_N_""_QT""_$E(A,B+$L(N),519) ZI A:+I ZR +I"
28 S %ZM(6)="F I=1:1 S A=$T(+I) Q:A=""""  S B=0 F  S B=$F(A,""$T(T"",B) Q:'B  S N=$P($E(A,B,519),"")"",1),A=$E(A,1,B-2)_""@(""""T""_N_""""""_QT)""_$E(A,B+$L(N),519) ZI A:+I ZR +I"
29 S %ZM(9)="S T=1 F I=1:1 S A=$T(+I) Q:A=""""  S B=$F(A,""T0 ;""),T=$F(A,""_QT"") I B!T S T=1 Q"
 ;
3 S PRG=$O(^UTILITY($J,PRG)) I PRG'=""  W PRG,$J("",10-$L(PRG)) K A,B X %ZM G 3
 ;
YZ K A,B,E,I,K,PRG,N,TP Q
 ;
ERR I $ZE["<PROT" W !,PRG," is a compiled program.",! S $ZT="ERR^"_$T(+0) G 3
ERRZ W !!,$ZE,!! Q
 ;
Z X ^cZ Q
ZZ ; 03.05.94 - 15 u 17 * 4.0.9-r1.5