home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26a.dsk / OCTOBER.1985 / SPACECADE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  872b  |  18 lines
  1. 10  REM **********************
  2. 20  REM *     SPACECADE      *
  3. 30  REM *  BY DEVERIN KAROL  *
  4. 40  REM * COPYRIGHT (C) 1985 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80 D$ =  CHR$(4)
  9. 90  POKE  -16368,0
  10. 100  POKE 800,0
  11. 110  PRINT D$"BLOAD METEORS"
  12. 120  HOME : VTAB 8: HTAB 15: PRINT "SPACECADE": PRINT : HTAB 12: PRINT "BY DEVERIN KAROL": PRINT : VTAB 23: PRINT "** COPYRIGHT 1985 BY MICROSPARC, INC **"
  13. 130  VTAB 18: HTAB 6: PRINT "PRESS <RETURN> TO START GAME";
  14. 140  GET Z$: PRINT : CALL 24576
  15. 150  TEXT : HOME : POKE  -16368,0
  16. 160 DFLAG =  PEEK(800): IF DFLAG < >13  THEN  VTAB 12: HTAB 16: INVERSE : PRINT "GAME OVER": NORMAL : GOTO 180
  17. 170  VTAB 12: PRINT "CONGRATULATIONS!": PRINT : PRINT "YOU HAVE SURVIVED THE METEOR STORM!  
  18. 180  VTAB 20: INPUT "DO YOU WANT TO PLAY AGAIN?";YN$: ON YN$ = "Y" GOTO 120: HOME : END