Asteroid Belt

This is the fourth game from Usborne's Computer Space Games.

In Asteroid Belt you must avoid crashing into the asteroids by pressing the number key that corresponds to the number of stars in the asteroid.  You only have a limited time to hit each asteroid.


      rem Asteroid Belt
      rem by Daniel Isaaman and Jenny Tyler
      rem translated to BB4Win by T Street
     
      mode 6
      print "ASTEROID BELT"
      print"-------------"
      print"Your spaceship is travelling through"
      print"an asteroid belt. Try to shoot the"
      print"asteroids with your laser. The force"
      print"required depends on the number of stars"
      print"In the asteroid."
      print'"Press the number key that corresponds"
      print"to the the number of stars that you"
      print"see."
      print'"You only have a limited time to hit"
      print"each one."
      print'"(press any key to begin...)"
     
     
      g% = get
     
      delay% = 400 : rem how long to wait each time
      score% = 0
     
      for go% = 1 to 10
        cls
        x% = rnd(30) : rem x position
        y% = rnd(12) : rem y position
        n% = rnd(9) : rem number of *
       
        for i% = 1 to n%
          if i%<>1 and i%<>4 and i%<>7 then
            print"*";
          else
            printtab(x%);"*";
          endif
        next
       
        ok% = false
        hit% = val(inkey$(delay%))
        if hit% <> 0 then
          print'"HIT IT!"
          ok% = true
        else
          rem did not press a key
          print'"YOU CRASHED INTO IT!"
        endif
       
        rem was there enough power?
        if ok% then
          rem was there enough power?
          case true of
            when hit% = n%
              print "YOU DESTROYED IT!"
            when hit%<n%
              print"NOT ENOUGH POWER!"
            when hit%>n%
              print"TOO MUCH POWER!"
          endcase
        endif
       
       
        wait 200
      next
     
      cls
      print"Final Score : "str$(score%)