cI72 ;Aanpassen meertaligheid : Engels ;%I72; [ 02/07/01  10:32 AM ]
 ;
1 K  W #!,$P($T(+1),";",2),!
 I $ZV["MSM" D ^cRSEL G YZ:$O(^UTILITY($J,""))=""
 I $ZV'["MSM" D KERNEL^%RSET G YZ:$O(^UTILITY($J,0))=""
11 W !!?2,"1. Alle T-lijnen worden gekopieerd naar TxE lijnen."
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)
 I $ZV'["MSM" S PRG=0
 ;
2 K %ZM
 S %ZM="ZL @PRG X %ZM(9),%ZM(90) Q:T  X %ZM(1),%ZM(2) ZS @PRG"
 S %ZM(1)="S TP=0 K A F I=1:1 S A=$T(+I) Q:A=""""  S X=$P(A,"" ;"",1) I X?1""T""1N.N S TP=TP+1,A(TP)=$P(A,"" ;"",1)_""E ;""_$P(A,"" ;"",2,999)"
23 S %ZM(2)="ZI "" ;"":+E F I=1:1:TP ZI A(I):+E+I"
 ; check of er reeds engelstalige inzitten
 ; + bepalen beginlijn om insert te doen
 S %ZM(9)="S T=0,E=0 F I=1:1 S A=$T(+I) Q:A=""""  S X=$P(A,"" ;"",1) S:X?1""T""1N.N1""E"" T=1 S:X?1""T""1N.N E=I S:X?1""T""1N.N1""F"" E=I"
 S %ZM(90)="I T!'E W ""-"" S T=1"
 ;
3 S PRG=$O(^UTILITY($J,PRG)) I PRG'=""  W PRG K A,B X %ZM W $J("",10-$L(PRG)-(T'=0)) 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
 ;
ZZ ; 07.02.01 - 10 u 46 * V7.84