cPE29 G 70 ;PRODUKTENLIJST ;Go naar %P5 [ 11/08/2003  3:35 PM ]
 ;
T1 ;BLZ:
 ;
ER K @("^"_Q_"HBPPL($I)") W # X F71 G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
SC S SI="",T=0 F SC=1:1:99 S SC1=$E(PC,SC) G SCZ:SC1="" I SC1'?1P S SI=SI_SC1
SCZ S PCC=SI_" " K SI,SC,SC1 Q
 ;
S1 W !,":" W:$L($P(HG,D,2)) $E(@INF,1,$P(HG,D,3)+2),":" W:$L($P(GR,D,2)) $E(@INF,1,$P(GR,D,3)+2),":"
S1A W:$L($P(SG,D,2)) $E(@INF,1,$P(SG,D,3)+2),":" W:$L($P(MK,D,2)) $E(@INF,1,$P(MK,D,3)+2),":"
S1B W $E(@INF,1,$P(PD,D,1)+2),":",$E(@INF,1,$P(POM,D,1)+2),":"
S1Z Q
 ;
70 X F70 W @F80 S VPL=0 F I="HG","GR","SG","MK" I $L($P(@I,D,2)) S VPL=VPL+$P(@I,D,3)+3
72 S VPL=VPL+$P(PD,D,1)+$P(POM,D,1)-1 D H1
75 I $L(H) S HX=H G 85
80 S (H,HX)=$N(@("^"_Q_"PH(H)")) G 160:H=-1!($L(HH)&(H]HH)),90
85 I $L(G) S GX=G G 95
90 S (G,GX)=$N(@("^"_Q_"PH(H,G)")) G 100:'(G=-1!($L(GG)&(G]GG))) S INF="LIN",LN=LN+1 D S1 G 80
95 I $L(S) S SX=S G 105
100 S (S,SX)=$N(@("^"_Q_"PH(H,G,S)")) G 90:S=-1!($L(SS)&(S]SS)),110
105 I $L(M) S MX=M G 114
110 S (M,MX)=$N(@("^"_Q_"PH(H,G,S,M)")) G 100:M=-1!($L(MM)&(M]MM)),114
114 S P=$N(@("^"_Q_"PH(H,G,S,M,P)")) G 116:P=-1 S P1=^(P),PC=$P(@("^"_Q_"PR(P1,0)"),D,1),PNM=$P(^($P(POM,D,3)\100-1),D,$P(POM,D,3)#100) D SC S @("^"_Q_"HBPPL($I,PCC)")=PC_D_PNM_D G 114
116 S P=""
120 S P=$N(@("^"_Q_"HBPPL($I,P)")) I P=-1 S INF="BLA",LN=LN+1 D S1 K @("^"_Q_"HBPPL($I)") G 110
125 S PX=^(P),LN=LN+1 I LN>50 S INF="LIN" D S1 W # D H1
130 W !,": " W:$L($P(HG,D,2)) HX,$J("",$P(HG,D,3)-$L(HX)+1),": " W:$L($P(GR,D,2)) GX,$J("",$P(GR,D,3)-$L(GX)+1),": "
140 W:$L($P(SG,D,2)) SX,$J("",$P(SG,D,3)-$L(SX)+1),": " W:$L($P(MK,D,2)) MX,$J("",$P(MK,D,3)-$L(MX)+1),": "
150 W $P(PX,D,1),$J("",$P(PD,D,1)-$L($P(PX,D,1))+1),": ",$P(PX,D,2),$J("",$P(POM,D,1)-$L($P(PX,D,2))+1),":" S (HX,GX,SX,MX)="" G 120
160 W # X F71 G 2^cPE5
YZ Q
 ;
H1 S BLZ=BLZ+1,LN=0 W !,NM1,?VPL,$P($T(T1),U,2),$J(BLZ,4),!,NM2,?(VPL/2-12),@F82,$P($T(+1),U,2),@F83,$C(13),?VPL,DT
H1A W !,NM3,?(VPL+1),TD,!
H1B W !!,": " W:$L($P(HG,D,2)) $P(HG,D,2),$J("",$P(HG,D,3)-$L($P(HG,D,2)))," : "
H1C W:$L($P(GR,D,2)) $P(GR,D,2),$J("",$P(GR,D,3)-$L($P(GR,D,2)))," : "
H1D W:$L($P(SG,D,2)) $P(SG,D,2),$J("",$P(SG,D,3)-$L($P(SG,D,2)))," : "
H1E W:$L($P(MK,D,2)) $P(MK,D,2),$J("",$P(MK,D,3)-$L($P(MK,D,2)))," : "
H1F W $E($P(PD,D,2),1,+PD),$J("",$P(PD,D,1)-$L($P(PD,D,2)))," : "
H1G W $P(POM,D,2),$J("",$P(POM,D,1)-$L($P(POM,D,2)))," :" S INF="LIN" D S1
H1Z Q
 ;
 Q
Z X ^cZ Q
ZZ ; 19.09.85 - 17 u 16