DataMuseum.dk

top - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »ALMAZAR.BAS«

└─⟦dd59903ef⟧ Bits:30005887 Klub diskette for udveksling af software
    └─ ⟦this⟧ »ALMAZAR.BAS« 

TextFile

5  CLRSCREEN$ = CHR$(27)+"*"
10 PRINT CLRSCREEN$:PRINT TAB(10)"The Search for Almazar: Part I":PRINT TAB(16)"The proving Ground":PRINT
20 '
30 PRINT"  The Series.":PRINT :PRINT"  The Game begins at one end of a road, by an old"
32 PRINT"abandoned shack (just like the original ADVENTURE).
"CHR$(13)"You can explore many different scenarios -but be 
"CHR$(13)"careful.
40 PRINT"There are many traps for the unwary and unthinking
"CHR$(13)"adventurer.
42 PRINT:PRINT "ÆPress any key for more informationÅ";
45 I$=INKEY$:IF I$<>"" GOTO 50 ELSE 45
50 PRINT CLRSCREEN$:PRINT"The program accepts 1 or 2 word commands..."
51 PRINT "Some examples:
"CHR$(13)"  To take an object, type TAKE OBJECT or T OBJECT.
"CHR$(13)"  To go North, type North or N for short
"CHR$(13)"  To see what you are carrying, type"; 
55 PRINT"  INVE(NTORY)."
60 PRINT"  Type SCORE to get current score
"CHR$(13)"  Type SAVE and the game will be saved for later
"CHR$(13)"  play."
65 PRINT"  Type QUIT for termination
"CHR$(13)"  To light a lamp type LIGHT LAMP or conversely -
"CHR$(13)"   OFF LAMP
70 PRINT"  To get a description of the room, type LOOK":PRINT:PRINT"Other commands include:-  SMASH
"CHR$(13) TAB(27)"TOSS
"CHR$(13) TAB(27)"SHOW
"CHR$(13) TAB(27)"CROSS  etc.
75 PRINT"In addition, one may type ENTER to enter a shack
"CHR$(13) TAB(24)"or LEAVE to leave a shack.
"CHR$(13)"Of course, if there is no way out, you cannot leave.
80 PRINT"A hint - Caves are often dark & dangerous.
82 PRINT:PRINT "ÆPress any key for more informationÅ";
85 I$=INKEY$:IF I$<>"" GOTO 90 ELSE 85
90 PRINT CLRSCREEN$:PRINT"You have a limited no. of turns to accomplish
"CHR$(13)"your task. If you do not finish on time you will ...

"CHR$(13)"From time to time you need a hint, so just type
"CHR$(13)"          HINT or HELP."
95 PRINT"Remember - nothing is free in todays world.
"CHR$(13)"          GOOD LUCK"
97 PRINT:PRINT "ÆPress any key to start ALMAZARÅ";
100 I$=INKEY$:IF I$="" GOTO 100 ELSE PRINT CLRSCREEN$: RUN "SFAMAIN"
«eof»