cI70 ;T-LABELS UIT PROGRAMMA'S VERWIJDEREN ;%I70; [ 02/21/00  5:58 PM ]
 ;
1 K  W #!,$P($T(+1),";",2),!!,"Dit programma verwijdert de T-lijnen voor de gekozen taal.",!!
11 D ^cRSEL G YZ:$D(QUIT)
 ;
2 ;W !!,"TAALKEUZE ?  N[] = nederlands   F[] = frans: .",$C(8) R K G 5:K?.E1C.E,1:K="-",5:("NnFf"'[K&$L(K))
21 S TL=$TR(K,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),PRG="" W !!
22 S X="ZL @PRG X X(1) Q:'TP  S TE=TE+1 ZR +TB:+TE ZS @PRG"
23 S X(1)="S TP=0 F %I=1:1 S A=$T(+%I) Q:A=""""  S A=$P(A,"" ;"",1)_TLL I A?1""T""1.N1A,$E(A,$L(A))=TL S:'TP TB=%I S TP=TP+1,TE=%I"
 ;
3 F  S PRG=$O(^UTILITY($J,PRG)) Q:PRG=""  W PRG,$J("",10-$L(PRG)) D
 . S 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