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. "CHR$(13)"You can explore many different scenarios -but be 
  7. "CHR$(13)"careful.
  8. 40 PRINT"There are many traps for the unwary and unthinking
  9. "CHR$(13)"adventurer.
  10. 42 PRINT:PRINT "[Press any key for more information]";
  11. 45 I$=INKEY$:IF I$<>"" GOTO 50 ELSE 45
  12. 50 PRINT CLRSCREEN$:PRINT"The program accepts 1 or 2 word commands..."
  13. 51 PRINT "Some examples:
  14. "CHR$(13)"  To take an object, type TAKE OBJECT or T OBJECT.
  15. "CHR$(13)"  To go North, type North or N for short
  16. "CHR$(13)"  To see what you are carrying, type"; 
  17. 55 PRINT"  INVE(NTORY)."
  18. 60 PRINT"  Type SCORE to get current score
  19. "CHR$(13)"  Type SAVE and the game will be saved for later
  20. "CHR$(13)"  play."
  21. 65 PRINT"  Type QUIT for termination
  22. "CHR$(13)"  To light a lamp type LIGHT LAMP or conversely -
  23. "CHR$(13)"   OFF LAMP
  24. 70 PRINT"  To get a description of the room, type LOOK":PRINT:PRINT"Other commands include:-  SMASH
  25. "CHR$(13) TAB(27)"TOSS
  26. "CHR$(13) TAB(27)"SHOW
  27. "CHR$(13) TAB(27)"CROSS  etc.
  28. 75 PRINT"In addition, one may type ENTER to enter a shack
  29. "CHR$(13) TAB(24)"or LEAVE to leave a shack.
  30. "CHR$(13)"Of course, if there is no way out, you cannot leave.
  31. 80 PRINT"A hint - Caves are often dark & dangerous.
  32. 82 PRINT:PRINT "[Press any key for more information]";
  33. 85 I$=INKEY$:IF I$<>"" GOTO 90 ELSE 85
  34. 90 PRINT CLRSCREEN$:PRINT"You have a limited no. of turns to accomplish
  35. "CHR$(13)"your task. If you do not finish on time you will ...
  36.  
  37. "CHR$(13)"From time to time you need a hint, so just type
  38. "CHR$(13)"          HINT or HELP."
  39. 95 PRINT"Remember - nothing is free in todays world.
  40. "CHR$(13)"          GOOD LUCK"
  41. 97 PRINT:PRINT "[Press any key to start ALMAZAR]";
  42. 100 I$=INKEY$:IF I$="" GOTO 100 ELSE PRINT CLRSCREEN$: RUN "SFAMAIN"
  43.