KNA2 G 1 ;WIJZIGEN ADRESSEN ;
1 S QN=@("^"_Q_"BA(99,1)"),S=";",(K,X)=100,PNT="........................................"
10 S SPA="                                        ",(SW2,SW4,SW5,SW6)=1,S4=0
11 S S1=SW4+'($N(@("^"_Q_"NA(0,(SW4+1)*100)"))=-1) G:S1=SW4 12 S SW4=S1 G 11
12 S A(101)=^(101),A(102)=^(102) G 14:SW4>1
13 S X=$N(^(X)) G 14:X=-1 S K=K+1,A(K)=^(X) G 13
14 S FP=123+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,$P($T(KNA2),";",2),QN," ",@F5
15 I SW4>1 S FP=169 W @F,@F5 S FP=155 W @F,"ER BESTAAN ",@F4,SW4," ",@F5,"SCHERMEN."
16 S Q0="^"_Q_"NA(I1)",Q1="^"_Q_"NA1(J1)" G ^KNA2B
YZ Q
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31