The Glitch Apple Disk Collection/2014.glitch.apple.collection.zip/indexed/QUAKE_2.DSK/HELO.bas

BASIC Source File | 2014-09-09 | 6KB | 117 lines

10  LOMEM: 8192
20  HIMEM: 16383
60  TEXT : HOME : INVERSE
70  PRINT  SPC( 4): NORMAL : PRINT " EARTHQUAKE^SAN FRANCISCO^1906 ";: INVERSE : PRINT "    "
80  PRINT  SPC( 7): PRINT "APPLE OTHER-VENTURES #4         "
85  PRINT "                                       "
90  PRINT  SPC( 3): PRINT "JYYM PEARSON  AND  NORM SAILER      ": PRINT  SPC( 4): PRINT "APPLE PROGRAMMER - NORM SAILER     "
95  NORMAL
100  VTAB (15): PRINT "DO YOU WISH TO READ THE INSTRUCTIONS ?": GET I$
110  IF  LEFT$(I$,1) = "N"  THEN 780
120  POKE 34,6
130  HOME
140  FOR SCROLL = 1 TO 20: PRINT : NEXT
150  PRINT "THIS NEW FORMAT IN ADVENTURE GAMES FROM"
160  PRINT "ADVENTURE  INTERNATIONAL  REPRESENTS"
170  PRINT "STATE-OF-THE-ART  IN GRAPHIC  ADVENTURE"
180  PRINT "GAMES. THE  DYNAMIC  CHANGES  IN THE"
190  PRINT "HI-RES GRAPHICS COMBINED WITH ACCENTS"
200  PRINT "OF SOUND PROVIDE  PSYCHOLOGICAL REALISM"
210  PRINT "NEVER SEEN BEFORE. THE  ADVENTURE  WILL"
220  PRINT "STRIKE YOU WITH BREATHTAKING GRAPHICS"
230  PRINT "AND THE PLOT QUALITY OF A FINE NOVEL."
240  PRINT "THE FORMAT OF THE GAME IS A GIANT STEP"
250  PRINT "FORWARD  IN  ADVENTURE  DESIGN  AND"
260  PRINT "PROVIDES  THE  LARGE  INFORMATIONAL"
270  PRINT "CAPABILITY OF A TEXT ADVENTURE ALONG"
280  PRINT "WITH FULL HI-RES GRAPHICS."
290  PRINT : PRINT : HTAB 3: PRINT "(PRESS THE SPACE BAR TO CONTINUE)": GET C$
300  FOR SCROLL = 1 TO 20: PRINT : NEXT
310  PRINT "THE  RETURN  KEY CAN BE USED TO TOGGLE"
320  PRINT "BETWEEN TEXT AND HI-RES MODE. WHEN IN"
330  PRINT "HI-RES MODE,  INPUTS  CAN  BE  ENTERED"
340  PRINT "DIRECTLY SINCE THE SCREEN WILL FLIP TO"
350  PRINT "TEXT AUTOMATICALLY WITH ANY KEYPRESS."
360  PRINT "THE GAME KNOWS MANY VARIED COMMANDS AND"
370  PRINT "INPUTS. ENTIRE SENTENCES CAN BE USED AS"
380  PRINT "WELL AS SIMPLE TWO-WORD COMMANDS."
390  PRINT "A POWERFUL  MACHINE  LANGUAGE  PARSER"
400  PRINT "EXTRACTS THE KEYWORDS FROM THE SENTENCE"
410  PRINT "FOR PROCESSING."
420  PRINT "THE COMMANDS 'LOAD GAME' OR 'SAVE GAME'"
430  PRINT "MAY BE USED AT ANY TIME DURING PLAY IN"
440  PRINT "ORDER TO LOAD A PREVIOUSLY SAVED GAME,"
450  PRINT "OR SAVE A GAME TO DISK IN MID-PLAY."
460  PRINT : HTAB 3: PRINT "(PRESS THE SPACE BAR TO CONTINUE)": GET C$
470  PRINT : PRINT : PRINT
480  PRINT "MOVEMENT IN THE GAME IS ACCOMPLISHED BY"
490  PRINT "ENTERING THE FIRST LETTER ONLY OF THE"
500  PRINT "DIRECTION YOU WANT TO MOVE (N,S,E,W)."
510  PRINT "YOU MAY HAVE TO USE 'CLIMB' TO TRAVEL"
520  PRINT "UP STAIRS AND THROUGH SMALL PASSAGES."
530  PRINT "THE COMMMAND 'LOOK' CAN BE USED IN A"
540  PRINT "ROOM TO GIVE MORE DETAILED DESCRIPTIONS"
550  PRINT "OF THE ROOM AND IT'S CONTENTS. ANYTHING"
560  PRINT "INCLUDING  YOUR  INVENTORY  CAN  BE"
570  PRINT "EXAMINED BY ENTERING 'LOOK' AND THE"
580  PRINT "EXACT FULL NAME, JUST AS IT APPEARS IN"
590  PRINT "THE ";: INVERSE : PRINT "INVENTORY";: NORMAL : PRINT " COLUMN."
600  PRINT "'DROP' AND 'GET' CAN BE USED TO BRING"
610  PRINT "ITEMS INTO YOUR SIX-ITEM INVENTORY OR"
620  PRINT "LEAVE THEM IN THE CURRENT LOCATION."
640  PRINT : HTAB 3: PRINT "(PRESS THE SPACE BAR TO CONTINUE)": GET C$
650  PRINT : PRINT : PRINT
660  INVERSE : PRINT "VISIBLE ITEMS";: NORMAL : PRINT " OBJECTS ARE NOT SUPPORTED"
670  PRINT "BY HI-RES DRAWINGS. THIS INCREASES THE"
680  PRINT "SPEED  OF  THE  GAME  BY  ELIMINATING"
690  PRINT "UNNEEDED DISK ACCESS AND MAINTAINS A"
700  PRINT "HIGHER STANDARD FOR THE ARTWORK."
710  PRINT : PRINT "REMEMBER TO LOOK AT ANYTHING AND"
720  PRINT "EVERYTHING. THE GAME IS DYNAMIC AND"
730  PRINT "THINGS CAN CHANGE DRAMATICALLY AT ANY"
740  PRINT "TIME."
750  PRINT : PRINT "KEEP YOUR EYES AND EARS OPEN AND"
760  PRINT "GOOD LUCK......."
770  PRINT : PRINT : PRINT : HTAB 3: PRINT "(PRESS THE SPACE BAR TO CONTINUE)": GET C$
780  POKE 34,6: FOR SCROLL = 1 TO 4: PRINT : NEXT
790  PRINT "TO OPTOMIZE THE 108 COLORS USED IN THE"
800  PRINT "GAME, ADJUST YOUR MONITOR TO MATCH THE"
810  PRINT "COLOR  BARS  AS  SHOWN NEXT. THIS  WILL"
820  PRINT "ENHANCE THE GAME AND LET YOU SEE THE"
830  PRINT "PROGRAM FROM THE AUTHORS' VIEW JUST AS"
840  PRINT "THEY SAW IT DURING ITS BIRTH."
850  PRINT : PRINT "USE THE TINT AND COLOR CONTROLS"
860  PRINT "AS WELL AS BRIGHTNESS AND CONTRAST"
870  PRINT "CONTROLS. IT'S WORTH THE EXTRA EFFORT....."
880  PRINT : PRINT : PRINT : PRINT : HTAB 3: PRINT "(PRESS THE SPACE BAR TO CONTINUE)": GET C$
890  GR : GOTO 920
900  COLOR= C: FOR X = H1 TO H2
910  VLIN 25,39 AT X: NEXT : RETURN
920 C = 1:H1 = 1:H2 = 9: GOSUB 900
930 C = 9:H1 = 10:H2 = 19: GOSUB 900
940 C = 14:H1 = 20:H2 = 29: GOSUB 900
950 C = 12:H1 = 30:H2 = 39: GOSUB 900
960  HOME : VTAB (21): HTAB 4: PRINT "RED"
970  VTAB (21): HTAB 13: PRINT "BROWN"
980  VTAB (21): HTAB 24: PRINT "BLUE"
990  VTAB (21): HTAB 33: PRINT "GREEN"
1000  VTAB (23): HTAB 5: PRINT "(PRESS SPACE BAR TO LOAD GAME)": GET R$
1010  TEXT : HOME : INVERSE : VTAB (3): HTAB 4: PRINT " EARTHQUAKE^SAN FRANCISCO^1906 "
1020  NORMAL : HTAB 8: PRINT "APPLE OTHER-VENTURES #4"
1030  PRINT : HTAB 4: PRINT "BY JYYM PEARSON AND NORM SAILER"
1040  PRINT : PRINT : HTAB 10: PRINT "(C) COPYRIGHT 1982"
1050  PRINT : HTAB 8: PRINT "ADVENTURE INTERNATIONAL"
1060  PRINT : PRINT : PRINT : PRINT "GRAPHICS CREATED WITH PENGUIN SOFTWARE'S"
1070  HTAB 4: PRINT "PICTURE EDITOR BY MARK PELCZARSKI"
2000  PRINT "<CTRL-D>BLOADM3"
2010  PRINT "<CTRL-D>BLOADM2"
2020  PRINT "<CTRL-D>BLOADM1"
2030  HOME : TEXT : VTAB 12
2040  HTAB 4: PRINT "PLEASE ";: FLASH : PRINT "FLIP DISK";: NORMAL : PRINT " TO BOOT SIDE"
2044  GOTO 2050
2045  HOME
2050  VTAB 14: HTAB 3: PRINT "AND PRESS ";: INVERSE : PRINT "ESCAPE";: NORMAL : PRINT " TO BEGIN THE GAME."
2060  GET K$
2065 K =  ASC(K$): IF K < >27  THEN 2045
2070  PRINT " "
2080  PRINT "<CTRL-D>RUNLOADER2"