home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol142 / almazar.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.0 KB  |  43 lines
  1. 5  CLRSCREEN$ = CHR$(27)+"*"
  2. 10 PRINT CLRSCREEN$:PRINT TAB(10)"The Search for Almazar: Part I":PRINT TAB(16)"The proving Ground":PRINT
  3. 20 '
  4. 30 PRINT"  The Series.":PRINT :PRINT"  The Game begins at one end of a road, by an old"
  5. 32 PRINT"abandoned shack (just like the original ADVENTURE).
  6.  
  7. "CHR$(13)"You can explore many different scenarios -but be 
  8.  
  9. "CHR$(13)"careful.
  10. 40 PRINT"There are many traps for the unwary and unthinking
  11.  
  12. "CHR$(13)"adventurer.
  13. 42 PRINT:PRINT "[Press any key for more information]";
  14. 45 I$=INKEY$:IF I$<>"" GOTO 50 ELSE 45
  15. 50 PRINT CLRSCREEN$:PRINT"The program accepts 1 or 2 word commands..."
  16. 51 PRINT "Some examples:
  17.  
  18. "CHR$(13)"  To take an object, type TAKE OBJECT or T OBJECT.
  19.  
  20. "CHR$(13)"  To go North, type North or N for short
  21.  
  22. "CHR$(13)"  To see what you are carrying, type"; 
  23. 55 PRINT"  INVE(NTORY)."
  24. 60 PRINT"  Type SCORE to get current score
  25.  
  26. "CHR$(13)"  Type SAVE and the game will be saved for later
  27.  
  28. "CHR$(13)"  play."
  29. 65 PRINT"  Type QUIT for termination
  30.  
  31. "CHR$(13)"  To light a lamp type LIGHT LAMP or conversely -
  32.  
  33. "CHR$(13)"   OFF LAMP
  34. 70 PRINT"  To get a description of the room, type LOOK":PRINT:PRINT"Other commands include:-  SMASH
  35.  
  36. "CHR$(13) TAB(27)"TOSS
  37.  
  38. "CHR$(13) TAB(27)"SHOW
  39.  
  40. "CHR$(13) TAB(27)"CROSS  etc.
  41. 75 PRINT"In addition, one may type ENTER to enter a shack
  42.  
  43. "CHR$(13) TAB(24)"or LEAVE to leave a shack.
  44.  
  45. "CHR$(13)"Of course, if there is no way out, you cannot leave.
  46. 80 PRINT"A hint - Caves are often dark & dangerous.
  47. 82 PRINT:PRINT "[Press any key for more information]";
  48. 85 I$=INKEY$:IF I$<>"" GOTO 90 ELSE 85
  49. 90 PRINT CLRSCREEN$:PRINT"You have a limited no. of turns to accomplish
  50.  
  51. "CHR$(13)"your task. If you do not finish on time you will ...
  52.  
  53.  
  54. "CHR$(13)"From time to time you need a hint, so just type
  55.  
  56. "CHR$(13)"          HINT or HELP."
  57. 95 PRINT"Remember - nothing is free in todays world.
  58.  
  59. "CHR$(13)"          GOOD LUCK"
  60. 97 PRINT:PRINT "[Press any key to start ALMAZAR]";
  61. 100 I$=INKEY$:IF I$="" GOTO 100 ELSE PRINT CLRSCREEN$: RUN "SFAMAIN"
  62.