a=1000 goto:cas+1
b=:rng if b<a and b>0 then :scat=3 :sty=0 :snd=1 end


goto:cas+1