cPE10 G 1 ;OPENEN PRODUKTEN ;%P10;DO naar %P100
 ;
T1 ;ER BESTAAN 
T2 ;SCHERMEN.
T3 ;OP ELKE INGAVE KAN U MET  ,[] TERUG NAAR HET BEGIN
T4 ;-[] TERUG NAAR DE VORIGE RUBRIEK       [] = ok 
T5 ;SCHERM 
T6 ;[] = volgend scherm   O[] = openen 
T7 ;DEELPROD. 
T8 ;KLASSIF. LEVER. : 
 ;
S2 S FP=$P(U2,U,5)*100+$P(U2,U,6) W:'SW5!(SW5&SW6) @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) G S2Z:'SW5!(U1<103&SW6)
S2A I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
S2Z Q
 ;
1 S @%Q1=1,PNT="........................................",Q0="^"_Q_"PR(0,1)",Q1="^"_Q_"PR1(PCC)",Q2="^"_Q_"PR(PR,I-1)"
3 S Y=$N(@("^"_Q_"BA(18,-1)")) F Y=0:1:9 S:$D(^(Y)) PBTW(Y)=$P(^(Y),D,1) S:$D(^(Y+10)) PTXT(Y)=$P(^(Y+10),D,1)
5 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" " S:$D(^(2)) X3=^(2)
7 S Y=$N(^(Y)) G 11:Y=-1 S @Y=^(Y) G 7
11 S Y=100,U=";",BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",(SW1,SW3,SW4,SW6)=0,(SW2,SW5)=1
13 I ($N(^(SW4+1*100)))\100=(SW4+1) S SW4=SW4+1 G 13
15 S Y=$N(^(Y)) I Y>0 S X=$P(^(Y),U,16)\100 S:X>SW3 SW3=X G 15
17 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
21 S FP=2203+F60 W @F,$P($T(T3),U,2)
23 S FP=2329+F60 W @F,$P($T(T4),U,2),@F0 R K G YZ:K="-"
25 F X=1:1:SW3 S B(X)=BS
27 D S1 I SW4>1 S FP=269 W @F,@F5 S FP=254 W @F,@F5,$P($T(T1),U,2),@F4,SW4," ",@F5,$P($T(T2),U,2) S FP=455 W @F,$P($T(T5),U,2),SW2
29 S U1=$N(A(U1)) I U1>0 S U2=A(U1) D S2 G 29
31 S SW6=1 D ^cPE100 G YZ:K="-",93:K=",",73
 ;
33 S (SW2,SW5)=1,FP=601 W @F,@F1 D S3 G 27
35 S SW5=1,SW2=SW2+1,FP=601 W @F,@F1 D S3 F X=1:1:SW3 S B(X)=@("^"_Q_"PR(PR,X-1)")
37 G 27
 ;
73 G 79:SW2>1
75 L @Q0:2 E  X ^cTXT(0,"N",77) R K G 75
77 S PR=@Q0,^(1)=^(1)+1 G 77:$D(@("^"_Q_"PR(PR)")) L @("^"_Q_"PR(PR)") S @Q1=PR_D_$P(B(1),D,1)
 ;
79 I $D(X3) D @X3 G 87:OK=1 I 'OK D 67^cPE100 G YZ:K="-",93:K=",",79
 ;
83 S @%Q1=0 F I=1:1:SW3 S @Q2=B(I)
85 S @%Q1=1
87 G 101:SW1 S FP=2203+F60 W @F,@F1,$P($T(T6),U,2) W:$P(B(1),D,25) $P($T(T7),U,2) W $P($T(T8),U,2),@F0 R K G 87:K?.E1C.E,35:K="",101:K="O",87:K'="."
89 F X=1:1:SW3 S B(X)=BS
91 G 95:SW2>1 S U1=101
93 S U1=$N(A(U1)) I U1>0 S U2=A(U1) D S2 G 93
95 G 31:SW2=1!(U4=","),33
 ;
101 K A,B S I=1 D:$P(@Q2,D,25)'="" ^cPE11 D:$D(@("^"_Q_"PR(PR)")) ^cPE12 S FP=301 W @F,@F1 S SW5=1,SW6=0,(K,X)=100,SW2=1 G 25
 ;
YZ Q
 ;
S1 S SW1=$N(@("^"_Q_"PR(0,SW2+1*100)")),SW1=(SW1=-1!(SW1>999)),Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K,U1=K
S1A S X=$N(^(X)) I X>0,X<Y S K=K+1,A(K)=^(X) G S1A
S1Z S:X'?.N X=-1 Q
 ;
S3 S X=102
S3A S X=$N(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
Z X ^cZ Q
ZZ ; 28.05.86 - 11 u 06