' keep num lock on ' hit 8 to go up, 2 to go down, 4 to shoot a missle ' Star Wars-a-roo by Froware Software CLS COLOR 3, 0 LOCATE 12, 35 PRINT "Star Wars-A-Roo" LOCATE 13, 24 PRINT "A shooter game by Froware Software" LOCATE 17, 1 INPUT "How many points to win? ex.150, 200,300"; win% score% = 0 10 COLOR 3, 0: r% = 15 SCREEN 0 CLS PRINT "Star Wars-A-Roo" PRINT "You have"; score%; "points" LOCATE 10, 1 RANDOMIZE TIMER b% = INT(RND * 999 + 1) b% = b% + 150 5 k% = INT(RND * 22 + 1) k% = k% + 2 IF k% > 22 THEN GOTO 5 FOR i = 3 TO 71 FOR t = 1 TO b%: NEXT t LOCATE k%, i COLOR 3, 0 PRINT "лл" LOCATE k%, (i - 2) PRINT " " LOCATE r%, 75 PRINT "F" IF r% = 1 THEN GOTO 21 IF r% = 22 THEN GOTO 30 1 key$ = INKEY$: IF LCASE$(key$) = "8" THEN LOCATE r%, 75: PRINT " ": r% = r% - 1: LOCATE r%, 75: PRINT "F": GOTO 1 2 IF LCASE$(key$) = "2" THEN LOCATE r%, 75: PRINT " ": r% = r% + 1: LOCATE r%, 75: PRINT "F": GOTO 1 3 IF LCASE$(key$) = "4" AND r% = k% THEN score% = score% + 5: GOTO 10 IF score% >= win% THEN GOTO 50 IF r% = 1 THEN GOTO 21 IF r% = 22 THEN GOTO 30 18 NEXT i IF r% = 1 THEN GOTO 21 IF r% = 23 THEN GOTO 30 FOR e = 4000 TO 400 STEP -50 SOUND e, .5 NEXT e CLS : PRINT "You lose because an enemy ship got past you and blew you up" PRINT "Final score:"; score%: END 'at top 21 key$ = INKEY$: IF LCASE$(key$) = "8" THEN LOCATE r%, 75: PRINT " ": r% = r% - 0: LOCATE r%, 75: PRINT "F": GOTO 1 22 IF LCASE$(key$) = "2" THEN LOCATE r%, 75: PRINT " ": r% = r% + 1: LOCATE r%, 75: PRINT "F": GOTO 1 23 IF LCASE$(key$) = "4" AND r% = k% THEN COLOR 2, 4: score% = score% + 5: GOTO 10 IF score% >= win% THEN GOTO 50 GOTO 18 ' at bottom 30 key$ = INKEY$: IF LCASE$(key$) = "8" THEN LOCATE r%, 75: PRINT " ": r% = r% - 1: LOCATE r%, 75: PRINT "F": GOTO 1 32 IF LCASE$(key$) = "2" THEN LOCATE r%, 75: PRINT " ": LOCATE r%, 75: PRINT "F": GOTO 1 33 IF LCASE$(key$) = "4" AND r% = k% THEN score% = score% + 5: GOTO 10 IF score% >= win% THEN GOTO 50 GOTO 18 50 CLS LOCATE 12, 15 PRINT "You have won! Congrats!!" END