cPE1 G 1 ;OPENEN KLASSIFIKATIES ; [ 11/08/2003  3:23 PM ]
 ;
T1 ;SYNONIEMEN 
T2 ;[] = vervolg
T3 ;OPENEN VAN : .
T4 ;-[] = einde programma
T5 ;OPENEN 
T6 ;[] = synoniemen
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
S7 S S4=$P(R,D,1)+1+F60,S0=0,SA=$P(R,D,2),S8="^"_Q_$P(R,D,3),FP=S4 W @F,@F1
S7A S FP=2203+F60 W @F,@F1,$P($T(T1),U,2),SA," : ",$E(PNT,1,LGT) S FP=2303+F60 W:S0 @F,$P($T(T2),U,2) S FP=2217+F60+$L(SA) W @F,@F0
S7B R K G S7A:K?.E1C.E!($L(K)>LGT) S:$L(K) S0=0 S FP=S4 W @F,@F1 G S7Z:K="-" I K="" S S1=S4 G S7F:S0
S7D S S6="" F S7=1:1:$L(K) I $E(K,S7)'?1P S S6=S6_$E(K,S7)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S:S5?.N S5=S5_" " S S1=S4,S2=S5 G S7G:$D(@(S8_"(S2)")),S7I:$N(@(S8_"(S2)"))=-1
S7F S S2=$N(@(S8_"(S2)")) G S7I:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7J:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7G S FP=S1 W @F,$C(13),?2,$P(^(S2),D,2)
S7H S S1=S1+100 G S7F:S1<(2100+F60) S S0=1 G S7A
S7I X ^cTXT(0,"N",156) R K
S7J S (S2,S0)=0 G S7A
S7Z K S0,S1,S2,S4,S5,S6,S7,S8,SA Q
 ;
1 S K=$P($T(+1),U,2)_QN_" " S FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S PNT="..............................",Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
13 S Y=$N(^(Y)) G 15:Y=-1 S @Y=^(Y) G 13
15 S FP=401 W @F,@F1 S SEL="",FP=2203+F60 W @F,$P($T(T3),U,2)
20 S FP=2303+F60 W @F F I="HG","GR","SG","MK" S Y=$P(@I,D,2) S:Y="" SEL=SEL_" " S SEL=SEL_$E(Y,1) I Y'="" W $E(Y,1),"[] = ",$P(@I,D,4),"   "
25 S FP=2403+F60 W @F,$P($T(T4),U,2),@F0
27 S FP=2216 W @F R K G 15:K?.E1C.E,YZ:K="-",25:K="",15:K=" "!(SEL'[K) S K=$F(SEL,K)-1
30 S Y=$P("HG\GR\SG\MK",D,K),LN=4,BST="P"_Y,SEL=$P(@Y,D,2),LGT=$P(@Y,D,1)
40 S FP=478 W @F,@F5 S FP=469-$L(SEL) W @F,@F4,$P($T(T5),U,2),SEL," ",@F5
50 S FP=2203+F60 W @F,@F1,SEL," : ",$E(PNT,1,LGT),@F0
55 S FP=2303+F60 W @F,$P($T(T6),U,2)
60 S FP=2206+F60+$L(SEL) W @F R K G 50:K?.E1C.E,15:K="-",50:$L(K)>LGT I K="" S R=500_D_SEL_D_BST D S7 S LN=4 G 50
70 S X="" F Y=1:1:$L(K) I $E(K,Y)'?1P S X=X_$E(K,Y) G 50:X=""
75 I $D(@("^"_Q_BST_"(X_"" "")")) X ^cTXT(0,"N",45) R K G 50
80 S LN=LN+1 S:LN>20 LN=5 S FP=LN*100+3+F60 W @F,@F1,K S @("^"_Q_BST_"(X_"" "")")=D_K G 50
YZ Q
 ;
Z X ^cZ Q
ZZ ; 19.07.85 - 16 u 02