cPE16 G 170 ;OPENEN PRODUKTEN - KLASS. LEV. ;OVERLAY VAN %P15-NAAR %P13,%P15
 ;
T1 ;[] = opening ok   ,[] = hernemen : 
 ;
170 S FP=2203+F60 W @F,@F1,$P($T(T1),U,2),@F0 R K G 170:K?.E1C.E,200:K=",",175:K="",170:K'="-" S U1=UX-1 G 80^cPE15
175 F X=1:1:3 I '$L($P(B(1),D,X)) S:X=1 B(1)=" "_D_$P(B(1),D,2,99) S:X>1 B(1)=$P(B(1),D,1,X-1)_D_" "_D_$P(B(1),D,X+1,99)
180 S VN=VN+1,SWS=SWS+1,LN=LN+1 S:LN=(L-1) LN=$P(L,D,2)+2 S FP=LN*100+1 W @F,@F1,$J(SWS,2) S X=5,@("^"_Q_"PR(PR,IN2)")="" S:SW LZ(SWS)=LV
185 I 'SW S ^(IN2_VN)=B(1) F I=1:1:3 S FP=LN*100+X W @F,$P(B(1),D,I) S X=X+$P(@($P("HG\GR\SG",D,I)),D,3)+7
187 I SW S ^(IN2_LV)=B(1),@("^"_Q_"LE(LX,""P""_PR)")=BS,^("P")="" F I=1:1:3 S FP=LN*100+X W @F W:I'=1 $P(B(1),D,I) W:I=1 $P(@("^"_Q_"LE(@(""^""_Q_""L1($P(B(1),D,I))""),0)"),D,2) S X=X+$P(@($P("LE\MK\LP",D,I)),D,3)+7
 ;
200 S U1=0
210 S U1=$N(A(U1)) I U1>0 S FP=$P(A(U1),U,5)*100+$P(A(U1),U,6) W @F,$J("",$P(A(U1),U,9)),$J("",$P(A(U1),U,13)) G 210
220 G 80^cPE15
230 I 'SW S SW=1,SWS=0,IN2="J",X=Z-1 K LZ G 30^cPE12
 ;
250 K LZ,SWS D ^cPE13
 ;
YZ K A,B,I,IB,IN2,J,LN,LV,LX,R,SW,VN,U7,Z Q
 ;
Z X ^cZ Q
ZZ ; 31.05.85 - 18 u 01