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


goto:cas+1