1010 init
1020 randomize
1030 dim x(100),y(100),vx(100),vy(100)
1040 px=550
1050 py=110
1060 sprdisp 1
1070 do
1080  for i=2 to min(100,sc/100+5)
1090   if vx(i)=0 then
1100    x(i)=-32
1110    y(i)=rnd*220
1120    tt=atn((py-y(i))/(px-x(i)))
1130    sp=min(10,sc/1000+2)+i*0.05
1140    vx(i)=sp*cos(tt)
1150    vy(i)=sp*sin(tt)
1160    sprpal i,1,mod(i,8),1
1170    sprdisp i
1180    sc=sc+10
1190    seplay 2,100,100
1200   else
1210    x(i)=x(i)+vx(i)
1220    y(i)=y(i)+vy(i)
1230    if x(i)-20<px and x(i)+20>px and y(i)-10<py and y(i)+10>py then
1240     if mod(i,8)=0 then sc=sc+50 else ed=1
1250     if mod(i,8)=0 then vx(i)=0
1260     seplay 38,100,100
1270    elseif x(i)>640 or y(i)<-16 or y(i)>224 then
1280     vx(i)=0
1290    end if
1300   end if
1310   sprpos i,x(i),y(i),0
1320  next i
1330  if (pad(1,13)<97 and py>0) or (pad(1,13)>157 and py<210) then py=py+(pad(1,13)-127)/30
1340  if (pad(1,14)<97 and px>0) or (pad(1,14)>157 and px<600) then px=px+(pad(1,14)-127)/15
1350  sprpos 1,px,py,1
1360  locate 0,0
1370  print"SCORE ";sc
1380  fsync 1
1390 loop while ed=0
1400 seplay 14,100,100