100 init
110 randomize
120 stnum=100
130 dim sx(stnum)
140 dim sz(stnum)
160 plusx=0
170 stz=3000
180 waitsp=40
190 waitc=0
200 campos 1,0,-100,-150
210 camvec 1,0,100,250
220 for i=1 to stnum
230   modset i+9,5,4
240   sz(i)=-100
250 next i
260 modset 1,7,5
270 modrot 1,0,pi,0
280 moddisp 1
290 label main
300 waitc=waitc+1
310 for i=1 to stnum
320   if sz(i)>-100 then
330     sx(i)=sx(i)-plusx
340     sz(i)=sz(i)-4
350     if sz(i)<=-100 then modoff i+9
360     modpos i+9,sx(i),0,sz(i)
370   elseif waitc>=waitsp then
380     waitc=0
390     sz(i)=stz
400     sx(i)=rnd*1600-800
410     modpos i+9,sx(i),0,sz(i)
420     moddisp i+9
430   end if
440 next i
450 padx=pad(1,14)-127
460 if collision(1,10,49)>0 then end
470 if abs(padx)>30 then plusx=padx/200 else plusx=0
480 goto *main