cPE41 G 1 ;LIJST DEELPRODUKTEN ;Go naar %P42
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),X=100,X=$N(@("^"_Q_"PR(0,X)")),PD=$P(^(X),U,9)+12_D_$P(^(X),U,1)
BREACK B 1
10 S LIN="------------------------------"
20 S BLZ=0,FP=224+$L(NM1) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),NM1," ",@F5
40 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
50 S Y=$N(^(Y)) G 60:Y=-1 S @Y=^(Y) G 50
60 D ^cPE81 G YZ:K="-"
70 G 70^cPE42
 ;
YZ B 0 Q
 ;
Z X ^cZ Q
ZZ ; 06.06.85 - 15 u 18