cPE2 G 1 ;RAADPLEGEN KLASSIFIKATIES ; [ 11/08/2003  3:34 PM ]
 ;
T1 ;RAADPLEGEN 
T2 ;[] = vervolg
T3 ;RAADPLEGEN VAN : .
T4 ;-[] = einde programma
 ;
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,SA," : ",$E(PNT,1,LGT) S FP=2303+F60 W:S0 @F,$P($T(T2),U,2) S FP=2206+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 S Y=$P(@I,D,2),FP=2215+F60 F I="HG","GR","SG","MK" I Y'="" S FP=FP+$L(Y)+2
27 S FP=2220 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),BST="P"_Y,SEL=$P(@Y,D,2),LGT=$P(@Y,D,1)
40 S FP=478 W @F,@F5 S FP=465-$L(SEL) W @F,@F4,$P($T(T1),U,2),SEL," ",@F5
50 S R=500_D_SEL_D_BST D S7 G 15
YZ Q
 ;
Z X ^cZ Q
ZZ ; 23.05.85 - 15 u 50