KSELP G 1 ;KONTROLELIJST SELEKTIES VOOR LISTINGS ;KSEL;Go naar KSELL [ 10/26/2001  11:10 AM ]
 ;
1 ;Opladen gegevens
31 S X=@("^"_Q_Q1_"(0,0)"),X=100
32 S X=$N(^(X)) G 35:X=-1 S K=K+1,A(K)=$E($P(^(X),U,1),1,20),P(K)=$P(^(X),U,8)
33 S R=$L(A(K)) S:R>MAX MAX=R S I(K)=$P(^(X),U,16),J(K)=$P(^(X),U,9) G 32
35 S:K#2 K=K+1,(A(K),P(K))="",I(K)=1,J(K)=0 S TR=K,TS=K\2,MAX=MAX+1
36 K X4 G ^KSELL
 ;
YZ Q
 ;