home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / NIBBLER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  55 lines
  1. 10  REM     **********************
  2. 11  REM     *   N I B B L E R    *
  3. 12  REM     * BY  BRENT IVERSON  *
  4. 13  REM     * COPYRIGHT (C) 1983 *
  5. 14  REM     * BY MICROSPARC, INC *
  6. 15  REM     * LINCOLN, MA. 01773 *
  7. 16  REM     **********************
  8. 20  TEXT : HOME : INVERSE 
  9. 30  VTAB 5: HTAB 13: PRINT ":" SPC( 13)":": HTAB 13: PRINT " N I B B L E R ": HTAB 13: PRINT ":" SPC( 13)":"
  10. 40  NORMAL : VTAB 12: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **": VTAB 9: HTAB 12: PRINT "BY: BRENT IVERSON"
  11. 49 :
  12. 50  REM ---LOAD MACHINE LANGUAGE
  13. 51 :
  14. 60  VTAB 20: HTAB 11: PRINT "LOADING OBJECT CODE"
  15. 70  PRINT  CHR$(4)"BLOAD NIBBLER.OBJ"
  16. 79 :
  17. 80  REM ---LOAD SHAPE TABLE
  18. 81 :
  19. 90  VTAB 20: HTAB 1: PRINT  SPC( 12)"LOADING  SHAPES";: CALL  -868
  20. 100  PRINT : PRINT  CHR$(4)"BLOAD NIBBLER.SHAPES,A$1500"
  21. 109 :
  22. 110  REM ---SET TABLE POINTERS
  23. 111 :
  24. 120  POKE 232,0: POKE 233,21: SCALE= 1
  25. 129 :
  26. 130  REM ---WAIT FOR KEYPRESS
  27. 131 :
  28. 140  VTAB 20: HTAB 8: PRINT "<PRESS ANY KEY TO BEGIN>"
  29. 150  POKE  -16368,0
  30. 160  WAIT  -16384,128
  31. 169 :
  32. 170  REM ---CLEAR PAGE 2
  33. 171 :
  34. 180  HGR2 
  35. 189 :
  36. 190  REM ---PLAY GAME
  37. 191 :
  38. 200  CALL 24576
  39. 209 :
  40. 210  REM ---FLIP BETWEEN TEXT
  41. 220  REM    AND HI-RES WHILE
  42. 230  REM    WAITING FOR ANOTHER
  43. 240  REM    KEYPRESS
  44. 241 :
  45. 242 SC = 0
  46. 243  FOR X = 24597 TO 24606:SC = SC *10 + PEEK(X): NEXT 
  47. 244  IF SC >HS  THEN HS = SC
  48. 245  VTAB 17: HTAB 7: PRINT "SCORE: ";SC;"  HIGH SCORE: ";HS;: CALL  -868
  49. 250  VTAB 15: HTAB 12: PRINT "G A M E   O V E R"
  50. 260  FOR I = 1 TO 2000: NEXT : POKE  -16368,0
  51. 270  POKE  -16304,0: POKE  -16297,0
  52. 280  FOR I = 1 TO 250: IF  PEEK( -16384) >127  THEN 180
  53. 290  NEXT : TEXT 
  54. 300  FOR I = 1 TO 250: IF  PEEK( -16384) >127  THEN 180
  55. 310  NEXT : GOTO 270