## 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%)`