cA116 ;Tonen van synoniemen met output-layout ;%A116 [ 01/04/01  12:09 PM ]
 ;
 ; R="Variabele output\Lijnnummer * 100\Tekst\letters info.bestand\letters indexbestand\output-layout1~output-layout2..."
 ; output-layout : welk veld (num. : veld x, alfanum. : waarde);alligneren (0:links,1:rechts);positie;lengte;wat geprint 
 ;                 ipv input
 ; RC = konditie afdrukken en selekteerbaar
 ;
T0 ;Tonen van synoniemen met output-layout ;
T1 ;Volgnummer of ;   [] = vervolg;
T2 ; is niet selecteerbaar;
 ;
T0F ;Synonymes avec output-layout ;
T1F ;Numéro ou ;   [] = suite;
T2F ; ne peut pas être séletionné;
 ;
T0E ;Display synonyms with output-layout ;
T1E ;Number or ;   [] = next;
T2E ; cannot be selected;
 ;
R16 S R4=$P(R,D,2)+1+F60,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1 I '$D(RC) S RC=1
R16A S FP=2403+F60 W @F,@F1 W:$D(RT) $P($T(@("T1"_QT)),U,2) W RA W:R0 $P($T(@("T1"_QT)),U,3) W " : ",@F0
R16B R K G R16A:K?.E1C.E S:$L(K) R0=0 S FP=R4,R10=0 W @F,@F1 G R16Z:K="-"!(K=",") I K="" K RT S R1=R4 G R16H:R0,R16D
R16C G R16D:'$D(RT(K)) S R3=RT(K) G R16O
R16D K RT S R15=-1,R6="" F R7=1:1:$L(K) S R5=$E(K,R7),R1=$A(R5) S:R1>96&(R1<123) R5=$C(R1-32) S:R5'?1P R6=R6_R5
R16E S R5=$E(R6,1,28) S:R6="" R5=" " S R1=R4,(R2,R3)=R5 G R16O:$D(@(R9_"(R2_"" "")")) S:R5?.N R5=R5_" " S (R2,R3)=$O(@(R9_"(R5)")) G R16M:R2="" S R2=$O(^(R2))
R16F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R13=$P(@(R9_"(R3)"),D) I @RC G R16P
R16G S R2=R5
R16H S R2=$O(@(R9_"(R2)")) G R16P:($E(R2,1,$L(R6))]R6)!'$L(R2)&$L(R6)&'R15,R16M:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R16N:R2="" I $E(R2,1,$L(R6))'=R6 S R0=0 G R16A
R16I S R13=$P(^(R2),D) I @("'("_RC_")") G R16H
R16J S FP=R1,R10=R10+1,R15=R15+1,(R3,RT(R10))=R2 W @F,$$CR^cA334 W ?1,$J(R10,2),". "
R16K F R11=1:1 S R7=$P($P(R,D,6),"~",R11) Q:R7=""  S R14=$P(R7,U) S:'R14 R12=@R14 S:R14 R12=$P(@(R8_"(R13,R14\100-1)"),D,R14#100) S FP=R1+$P(R7,U,3) X:$L($P(R7,U,5)) "S R12="_$P(R7,U,5) W @F,$S($P(R7,U,2):$J(R12,$P(R7,U,4)),1:$E(R12,1,$P(R7,U,4)))
R16L S R1=R1+100 G R16H:R1<(2300+F60) S R0=1 G R16N:$E($O(@(R9_"(R2)")),1,$L(R6))'=R6!'$L($O(@(R9_"(R2)"))),R16A
R16M D TXT^cAFA1(8)
R16N S (R2,R0)=0 G R16A
R16O S:$E(R3,$L(R3))'=" " R3=R3_" " S R13=$P(@(R9_"(R3)"),D) I @("'("_RC_")") D F1 G R16N
R16P S (@$P(R,D),K)=R3,FP=R4 W @F,@F1
R16Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15,RA,RT,RC Q  ; V2 06.02.90
 ;
F1 S K=RA_$P($T(@("T2"_QT)),U,2)
FZ D TXT^cAFA1(250) Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84