cI6 ;T-LABELS UIT PROGRAMMA'S IN ^%TXT PLAATSEN ;%I6; [ 02/21/00  5:58 PM ]
 ;
1 D QQM^cQ6 W #!,$P($T(+1),";",2),!!,"OPGELET : indien het programma al bestaat in ^cTXT worden de T-labels"
11 W !?10,"verwijderd voor de gekozen taal.",!! D ^cRSEL G YZ:$D(QUIT)
 ;
2 W !!,"TAALKEUZE ?  N[] = nederlands   F[] = frans    B[] = beide: .",$C(8) R K G 2:K?.E1C.E,1:K="-",2:("NnFfBb"'[K&$L(K))
21 S K=$TR(K,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),TLN=$S(K="B":"N\F",1:K),PRG="" W !!
22 S X="ZL @PRG K ^cTXT(PRG,TL) F %I=2:1 S A=$T(+%I) Q:'$L(A)  S B=$P(A,"" "")_TLL I B?1""T""1.N1A,$E(B,$L(B))=TL X X(1)"
23 S X(1)="S:$E(A,$L(A))'="";"" A=A_"";"" S N=$P($P(B,""T"",2),TL),^cTXT(PRG,TL,N)=$P(A,"";"",2,999)"
 ;
3 F  S PRG=$O(^UTILITY($J,PRG)) Q:PRG=""  W PRG,$J("",10-$L(PRG)) D
 . F I=1:1:$L(TLN,"\") S TL=$P(TLN,"\",I),TLL=$S(TL="N":TL,1:"") X X
 ;
YZ K %I,A,B,N,TLN,TL,TLL,X Q
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3