cA117 ;Tonen synoniemen met een infobestand (numeriek) en konditie op selektie;%A117 [ 01/04/01  12:10 PM ]
 ;
 ; R="Variabele output\Lijnnummer * 100\Tekst\Letters infobestand\output-layout1~output-layout2..."
 ; output-layout : welk veld (num. : veld x, alfanum. : waarde);alligneren (0:links,1:rechts);positie-1;lengte;wat geprint
 ;                 ipv input
 ; RC = konditie afdrukken en selekteerbaar
 ;
T0 ;Tonen synoniemen met een infobestand (numeriek) en conditie op selectie;
T1 ;   [] = vervolg;
T2 ; is niet selecteerbaar; omschrijving is onbekend;
 ;
T0F ;Synonymes avec fichier numérique en condition pour sélection;
T1F ;   [] = suite;
T2F ; ne peut pas être sélectionné; description est inconnue;
 ;
T0E ;Displat synonyms with info file (numeric) and condition on selection;
T1E ;   [] = next;
T2E ; cannot be selected; description is unknown;
 ;
R17 S R4=$P(R,D,2)+1+F60,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),(FP,R1)=R4 W @F,@F1 S:'$D(RC) RC=1 G R17D
R17A S FP=2403+F60 W @F,@F1 W RA W:R0 $P($T(@("T1"_QT)),U,2) W " : ",@F0
R17B R K G R17A:K?.E1C.E S:$L(K) R0=0 S FP=R4,R10=0 W @F,@F1 G R17Z:K="-"!(K=",") I K="" K RT S R1=R4 G R17E:R0,R17D
R17C G R17J:'$D(RT(K)) S (R3,R2)=RT(K) G R17L
R17D S (R2,R10)=0 K RT
R17E S R2=$O(@(R8_"(R2)")) G R17I:'R10&'R2,R17K:'R2 I @("'("_RC_")") G R17E
R17F S FP=R1,R10=R10+1,RT(R10)=R2 W @F,$$CR^cA334 W ?1,$J(R10,2),". "
R17G F R5=1:1 S R6=$P($P(R,D,5),"~",R5) Q:R6=""  S R9=$P(R6,U) S:'R9 R7=@R9 S:R9 R7=$P(@(R8_"(R2,R9\100-1)"),D,R9#100) S FP=R1+$P(R6,U,3) X:$L($P(R6,U,5)) "S R7="_$P(R6,U,5) W @F,$S($P(R6,U,2):$J(R7,$P(R6,U,4)),1:$E(R7,1,$P(R6,U,4)))
R17H S R1=R1+100 G R17E:(R1<2300+F60) S R0=1 G R17K:$O(@(R8_"(R2)"))="",R17A
R17I D F2 S K="-" G R17Z
R17J D TXT^cAFA1(8)
R17K S (R2,R0)=0 G R17A
R17L S (@$P(R,D),K)=R3
R17Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA,RC,RT Q  ; V1 06.02.90
 ;
F1 S K=RA_$P($T(@("T2"_QT)),U,2) G FZ
F2 S K=$P($T(@("T2"_QT)),U,3)
FZ D TXT^cAFA1(250) Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84