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