Oops, the source didn't go up.
Set Display Mode 640,480,32
Sync On : Sync Rate 60
Dim Bomb#(100,2) : BX#=Screen Width()/2
While EndGame<>1
Ink RGB(255,N,0),RGB(0,0,0)
For N=1 To 20+INT(Score#/2)
If Bomb#(N,2)=0 Then Bomb#(N,1)=RND(Screen Width())
Box Bomb#(N,1)-3,Bomb#(N,2)-3,Bomb#(N,1)+3,Bomb#(N,2)+3
Bomb#(N,2)=(Bomb#(N,2)+0.05+(((N*0.1))*(N<30))+(3*(1-(N<30))))*(1-INT(Bomb#(N,2)/(Screen Height()+10)))
If Bomb#(N,1)+3=>BX#-5-Int(Score#/2) And Bomb#(N,1)-3=<BX#+5+Int(Score#/2) And Bomb#(N,2)+3=>Screen Height()-10 And Bomb#(N,2)-3=<Screen Height()-5 Then EndGame=1
Next N
BX#=(BX#+(LeftKey()*-3)+(RightKey()*3))+(INT((Screen Width()-BX#+10+Int(Score#/2))/Screen Width())*(Screen Width()-22-(Int(Score#/2)*2)))-(INT((BX#+10+Int(Score#)/2)/Screen Width())*(Screen Width()-22-(Int(Score#/2)*2)))
Score#=Score#+0.02
Ink RGB(255,255,255),RGB(0,0,0)
Box BX#-5-Int(Score#/2),Screen Height()-10,BX#+5+Int(Score#/2), Screen Height()-5
If EndGame<>1 Then Text 5,5,"AVOID THE RED BOMBS USING THE LEFT AND RIGHT ARROWKEYS! Score "+Str$(Int(Score#)*50)
If EndGame=1 Then Center Text Screen Width()/2,Screen Height()/2,"YOU GOT BOMBED! Your final score was "+Str$(Int(Score#)*50)+"."
Sync : Cls
If EndGame Then Wait 5000
EndWhile
Steve
