cA217 ;SYNONIEMEN + OPENEN R2-ROUTINE ;;Do %A220 [ 04/12/00   9:03 AM ]
 ;
T0 ;Synoniemen + openen r2-routine ;
T1 ;Naam of nummer van ;  [] = vervolg;   .[] = openen;
T2 ; is onbekend   .[] = openen : ;
 ;
T0F ;Synoniemes + introduction r2 ;
T1F ;Nom ou numéro du ;  [] = suite;   .[] = créer;
T2F ; est inconnu   .[] = créer : ;
 ;
T0E ;Synoniemen + openen r2-routine ;
T1E ;Naam of nummer van ;  [] = vervolg;   .[] = openen;
T2E ; is onbekend   .[] = openen : ;
 ;
S2 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
S2A S FP=2403+F60 W @F,$P($T(@("T1"_QT)),U,2),RA,$P($T(@("T1"_QT)),U,4-R0)," : ",@F1,@F0
S2B R K G OPEN:K=".",S2A:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G S2Z:K="-" I K="" S R1=R4 G S2H:R0,S2D
S2C G S2D:K'?.N S R3=K_" " G S2K:'$D(@(R8_"(R3)")),S2M
S2D S R6="" F R7=1:1:99 S R5=$E(K,R7),R1=$A(R5) S:R1>96&(R1<123) R5=$C(R1-32) I R5'?1P S R6=R6_R5
S2E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$O(@(R9_"(R2)")) G S2K:R2="" S R2=$O(^(R2))
S2F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R3=$P(R3," ",2)_" ",R7=$D(@(R8_"(R3)")) G S2M
S2G S R2=R5
S2H S R2=$O(@(R9_"(R2)")) G S2K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G S2L:R2="" I $E(R2,1,$L(R6))'=R6 S R0=0 G S2A
S2I S FP=R1 W @F,$$CR^cA334 W ?1,$P(R2," ",2),?9,^(R2)
S2J S R1=R1+100 G S2H:R1<(2300+F60) S R0=1 G S2A
S2K S FP=2403+F60 W @F,@F4,RA,$P($T(@("T2"_QT)),U,2),@F5,@F2,@F0 R K G OPEN:K="."
S2L S (R2,R0)=0 G S2A
S2M S (@$P(R,D),K)=R3
S2Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V6 05.07.88
 ;
OPEN S FP=R4 W @F,@F1 D ^cA220 G S2:K="-" S R3=K G S2M:$D(@(R8_"(R3)")),S2L
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84