TEKST ; Beheer teksten [ 09/28/95  2:00 PM ]
 ;
FETCH(Groep,Label,Taal,Piece) 
 If '$G(Piece) Set Piece=1
 Quit $P($G(^TEKST("D",Groep,Label,Taal)),D,Piece)
 ;
VERTAAL(Tekst,Taal) 
 New From,To,OldTekst,NewTekst
 W !
 Set OldTekst=Tekst,NewTekst="",From=1
 For To=1:1:$L(OldTekst," ") Do
 .Set Tekst=$P(OldTekst," ",From,To)
 .If $D(^cw(Tekst,Taal)) Set Tekst=^cw(Tekst,Taal),From=To W *7,Tekst
 .Set $P(NewTekst," ",From,To)=Tekst
 .W !,From,",",To,"=",Tekst
 W !!
 Set Tekst=NewTekst
 Quit Tekst
 ;
CONVERT 
 Kill
 Do INIT^vhTERMINA
 Write @F11,@F1
 Read !,"Program ? ",Prog
 Quit:Prog="-"
 Write !,"Groep   ? ",*27,7,!,"[] = ",$$UPTRIMAN^vhRtn1(Prog),!,?10,*27,"[A",*27,"[A",*27,7
 Xecute FUP
 Read Groep
 Quit:Groep="-"
 Set:Groep="" Groep=Prog Set Groep=$$UPTRIMAN^vhRtn1(Groep)
 Write *27,8,Groep
 If $D(^TEKST("D",Groep)) Write !,$J("",80),!,"Deze groep bestaat reeds !!!",!,"Gelieve na te zien !!!" Quit
 Set X="Xecute X(1),X(2)",X(1)="ZL @Prog Write !,$J("""",80),!"
 Set X(2)="For I=1:1 Set R=$T(+I) Quit:R=""""  If $E(R)=""T"",$E($P(R,"" "",2))="";"" Xecute X(3),X(8),X(1)"
 Set X(3)="Set Label=$$UPTRIMAN^vhRtn1($E($P(R,"" ""),2,9)),R=$P(R,"";"",2,99) Write !,Label Xecute X(4),X(6),X(7)"
 Set X(4)="For T=1:1:4 Write !,$P(""N\F\D\E"",D,T),"" = "" For J=1:1:$L(R,"";"") Xecute X(5)"
 Set X(5)="Write $P($P(R,"";"",J),D,T) Write:J'=$L(R,"";"") "";"""
 Set X(6)="Write !,""Label ? "",*27,7,!,""[] = "",Label,!?8,*27,""[A"",*27,""[A"",*27,7 Read L If L=""-"" Set I=9999 Quit"
 Set X(7)="Set:$L(L) Label=L Write *27,8,Label"
 Set X(8)="If Label'=""-"" For T=1:1:4 Set Taal=$P(""N\F\D\E"",D,T) For J=1:1:$L(R,"";"") Xecute X(9)"
 Set X(9)="Set $P(^TEKST(""D"",Groep,Label,Taal),D,J)=$P($P(R,"";"",J),D,T)"
 Xecute X
 Xecute FLO
 Quit
 ;