cPE5 G 1 ;PRODUKTENLIJST ;Go naar %P29
 ;
T1 ;KODE OMSCHRIJVING
T2 ;-[] = einde programma
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),BLA=$J("",45),LIN="---------------------------------------------"
2 S K=$P($T(+1),U,2)_NM1_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
3 S X=100,X=$N(@("^"_Q_"PR(0,X)")),PD=$P(^(X),U,9)_D_$P(^(X),U,1),(POM,PLG,PND,ANT)="",Y=100
5 S Y=$N(^(Y)) I '(Y=-1!($N(^(Y))-Y>100)) S X=^(Y) G 5:'$F("102\222\301\302\",$P(X,U,16)_D) S POM=POM_$P(X,U,1)_D,PLG=PLG_$P(X,U,9)_D,PND=PND_$P(X,U,16)_D,ANT=ANT+1 G 5
BR B 1
40 S BLZ=0,Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
50 S Y=$N(^(Y)) G 52:Y=-1 S @Y=^(Y) G 50
52 G 56:ANT>1 F I="POM","PLG","PND" S @I=$P(@I,D,1)
54 G 58
56 S R="K\19\3\"_$P($T(T1),U,2)_"\K2\1\\K=""-""!(K>0&(K<(ANT+1)))" D R0 G YZ:K="-" F I="POM","PLG","PND" S @I=$P(@I,D,K)
58 S POM=PLG_D_POM_D_PND_D K PLG,PND
60 D ^cPE81 G YZ:K="-"
70 G 70^cPE29
 ;
YZ B 0 Q
 ;
K2 W !?2,$P($T(T2),U,2)
K2A F I=1:1:ANT W !?2,I,"[] = ",$P(POM,D,I)
K2Z Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
Z X ^cZ
ZZ ; 16.10.85 - 17 u 08