home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / VORATIO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  33 lines
  1. 1  REM **********************
  2. 2  REM * VORATIO            *
  3. 3  REM * BY DARELL FETZER   *
  4. 4  REM * COPYRIGHT (C) 1986 *
  5. 5  REM * BY MICROSPARC, INC *
  6. 6  REM * CONCORD, MA  01742 *
  7. 7  REM **********************
  8. 80  TEXT : HOME : HTAB 16: PRINT "VORATIO": HTAB 11: PRINT "BY DARRELL FETZER": PRINT "** COPYRIGHT 1986 BY MICROSPARC, INC.**": VTAB 23: HTAB 7: PRINT "PRESS <RETURN> TO CONTINUE";: GET A$: PRINT 
  9. 90  PRINT  CHR$(4)"BLOAD VORATIO.BIN": PRINT  CHR$(4)"BLOAD VORATIO.SHAPES"
  10. 100  TEXT : HOME : HTAB 16: INVERSE : PRINT "VORATIO": NORMAL 
  11. 110  PRINT : PRINT "  YOUR MISSION IS TO GUIDE A RAVENOUS"
  12. 120  PRINT : PRINT "WORM THROUGH A FIELD OF MUSHROOMS IN "
  13. 130  PRINT : PRINT "SEARCH OF APPLES. AFTER EATING TEN "
  14. 140  PRINT : PRINT "APPLES, YOU WILL BE TRANSPORTED TO THE"
  15. 150  PRINT : PRINT "NEXT LEVEL. A 1000 POINT BONUS WILL BE"
  16. 160  PRINT : PRINT "AWARDED FOR A PERFECT LEVEL."
  17. 170  PRINT : PRINT "THERE ARE 19 LEVELS AND EACH IS MORE"
  18. 180  PRINT : PRINT "DIFFICULT THAN THE PREVIOUS ONE."
  19. 190  PRINT : PRINT "    DO YOU NEED INSTRUCTIONS? (Y/N)";: GET A$: IF A$ = "N"  THEN 280
  20. 200  HOME : PRINT "J-TURN THE HEAD 15 DEGREES LEFT"
  21. 210  PRINT : PRINT "K-TURNS THE HEAD 15 DEGREES RIGHT"
  22. 220  PRINT : PRINT "D-SLOWS VORATIO DOWN"
  23. 230  PRINT : PRINT "F-SPEEDS VORATIO UP"
  24. 240  PRINT : PRINT "<SPACE>-PAUSES THE GAME"
  25. 250  PRINT : PRINT "<ESC>-EXITS THE GAME"
  26. 260  PRINT : PRINT "L-ADVANCES TO THE NEXT LEVEL"
  27. 270  PRINT : HTAB 9: PRINT "PRESS <RETURN> TO PLAY";: GET A$
  28. 280 X =  RND( PEEK(159)) * INT( RND( PEEK(160))): CALL 24576
  29. 290 CH =  PEEK(24829): IF CH <19  THEN 320
  30. 300  PRINT "  CONGRATULATIONS YOU MADE IT THROUGH"
  31. 310  PRINT : PRINT "19 TOUGH LEVELS OF VORATIO!"
  32. 320  PRINT : PRINT "WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";: GET A$: IF A$ = "Y"  THEN 100
  33. 330  END