1000 init
1010 randomize
1020 dim tp(100),xx(100),yy(100)
1030 campos 1,0,200,-300
1040 modset 1,8,8
1050 modpos 1,xx(1),300,0
1060 moddisp 1
1070 do
1080  pp=0
1090  for i=3 to 100
1100   if yy(i)=0 and pp=0 and rnd<0.0003+min(0.02,score/10000000) then
1110    yy(i),pp=1
1120    xx(i)=int(rnd*300)-150
1130    if rnd<0.05 then tp(i)=1 else tp(i)=0
1140    modset i,5+tp(i)*3,4+tp(i)*5
1150    moddisp i
1160   elseif yy(i)>0 then
1170    yy(i)=yy(i)+1.5+i*0.01+min(30,score/1000)
1180    if yy(i)>380 then
1190     seplay 8,100,100
1200     yy(i)=0
1210     modoff i
1220     if tp(i)=1 then score=score-100 else score=score+10
1230    end if
1240   end if
1250   modpos i,xx(i),yy(i),0
1260  next i
1270  locate 0,0
1280  if(pad(1,14)<97 and xx(1)>-150) or (pad(1,14)>157 and xx(1)<150) then xx(1)=xx(1)+(pad(1,14)-127)/50
1290  modpos 1,xx(1),300,0
1300  print "SCORE ";score
1310  hit=collision(1,2,100)
1320  if hit>0 then
1330   if tp(hit)=1 then modoff hit else fend=1
1340   tp(hit)=2
1350   seplay 38,100,100
1360  end if
1370  fsync 1
1380 loop while fend=0 and score>=0
1390 seplay 28,100,100