Sorry your browser is not supported!

Set Display Mode 800,600,16
Sync On: CLS 0
Sync Rate 60
Hide Mouse
Set Text Opaque
BasePosX = 400
Text BasePosX,580,"//"
Rem Main Program Loop
Do  
If Leftkey()=1 Then Dec BasePosX,4
  If BasePosX<0 Then BasePosX=0
  If Rightkey()=1 Then Inc BasePosX,4
  If BasePosX>788 Then BasePosX=788
  CLS
  Text BasePosX,580,"//"
  If Spacekey()=1 and FiredBullet=0
    FiredBullet=1
    BulletPosX = BasePosX + 5
    BulletPosY = 580-16
  Endif
  If FiredBullet=1
    Gosub MoveBullet
  Else
    Sleep 1
  Endif
  Sync
Loop

MoveBullet:
  Dec BulletPosY,5
  Text BulletPosX,BulletPosY,"/"
  Sleep 1
  Text BulletPosX,BulletPosY,"/"
  Rem Check to see if we hit anything here and if we did
  Rem handle it. Reset flag if bullet is done with
  If BulletPosY<=0 Then FiredBullet=0
Return