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