5 REM*SCREENTITLES 1200
10 DV=PEEK(186)
15 GOSUB1100:REM MENU
20 IF PEEK(197)=4 THEN2000
22 POKE198,0:WAIT198,1:GETA$
30 IFA$="A"THEN5000
32 IFA$="B"THEN102
70 GOTO20
99 REM BASIC+RUN 200*MC 300*MC RUN 400*
100 B$="       ":GOTO200
102 B$="TELNYR":GOTO200
114 B$="+++++++++++++":GOTO200
116 B$="+++++++++++++":GOTO200
118 B$="+++++++++++++":GOTO200
120 B$="+++++++++++++":GOTO200
122 B$="+++++++++++++":GOTO200
198 REM
199 REM***BASIC + RUN****
200 C$=CHR$(34):POKE198,4
210 PRINT"[147]LOAD";C$;B$;C$;",DV";
230 POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
298 REM
299 REM***M/C AUTORUN***
300 C$=CHR$(34)
302 PRINT"[147]":FORK=1TO10:PRINT:NEXT:PRINT" LOADING....":PRINT""
304 FORK=1TO800:NEXT:POKE646,0
310 PRINTCHR$(147);"LOAD";C$;B$;C$;",DV,1"
320 POKE631,19:POKE632,13:POKE198,2:END
398 REM
399 REM***M/C + RUN*****
400 C$=CHR$(34):POKE198,4
410 PRINT"[147]LOAD";C$;B$;C$;",DV,1";
430 POKE631,13:POKE632,82:POKE633,117:POKE634,13:END
795 REM
796 REM
797 REM
1100 REM **** SCREEN SET-UP ****
1110 POKE53281,0:POKE53280,0:POKE646,5: PRINT"[147]"
1112 T$="TELNYR 1"
1120 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
1130 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
1140 PRINT"";:FORI=1TO22:PRINT"[194]                                      [194]";:NEXT
1150 CE=((40-LEN(T$))/2)-1:L=LEN(T$):PRINT""
1160 PRINTTAB(CE)"[145][213]";:FORI=1TOL:PRINT"[195]";:NEXT:PRINT"[201]"
1170 PRINTTAB(CE)"[194]"LE$T$BO$"[194]"
1180 PRINTTAB(CE)"[145][202]";:FORI=1TOL:PRINT"[195]";:NEXT:PRINT"[203]":PRINT
1188 REM
1189 REM
1190 REM***NAMES***
1191 REM
1192 REM
1200 PRINTTAB(2)" A [146] TELNYR INSTRUCTIONS"
1210 PRINTTAB(2)" B [146] THE STONE OF TELNYR"
1252 GOTO1340
1260 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
1270 PRINTTAB(21)"                  "
1280 PRINTTAB(21)"                  "
1290 PRINTTAB(21)"                  "
1300 PRINTTAB(21)"                  "
1310 PRINTTAB(21)"                  "
1320 PRINTTAB(21)"                  "
1340 POKE646,8:PRINT:PRINTTAB(2)"PROGRAM BY P.R.BOOTHMAN":POKE646,5
1400 RETURN
2000 PRINT"[147]":POKE646,0:POKE53281,11:POKE53280,11
2010 PRINT" MAKE YOUR CHOICE FROM THE MENU."
2020 PRINT:PRINT" THE PRG WILL AUTOMATICALLY LOAD & RUN.":PRINT
2030 PRINT:PRINT" WHEREAS SOME PROGRAMMES CAN BE EXITED"
2040 PRINT:PRINT" BY HITTING RUNSTOP/RESTORE, IT WILL"
2050 PRINT:PRINT" SOMETIMES BE NECESSARY TO TURN THE C64"
2060 PRINT:PRINT" OFF THEN ON AGAIN TO CLEAR MEMORY."
2070 PRINT:PRINT" ENTERING SYS 64738 (RETURN) WILL ALSO"
2080 PRINT:PRINT" CLEAR THE COMPUTERS MEMORY.":PRINT
2090 PRINT:PRINT" THEN SIMPLY LOAD THE MENU AGAIN TO"
2100 PRINT:PRINT" CHOOSE ANOTHER PROGRAMME.":POKE646,15
2110 PRINT:PRINT"    PRESS ANY KEY TO RETURN TO MENU"
2120 POKE 198,0:WAIT 198,1:GETZ$
2130 GOTO15
5000 PRINT"[147]"
5020 POKE646,7:POKE53281,0:POKE53280,0
5030 POKE646,5:PRINTTAB(9)"**TELNYR INFO**"
5040 PRINT:PRINT" USE JOYSTICK IN PORT 2"
5042 POKE646,8:PRINT:PRINT" TELNYR LOADS FROM DISK DURING THE"
5044 PRINT" GAME SO LEAVE THE DISK IN THE DRIVE"
5046 PRINT" AND LEAVE THE DRIVE ON."
5050 POKE646,5:PRINT:PRINT" USE FIRE BUTTON TO ENTER TOWNS, EXIT"
5052 PRINT" DUNGEON, DIG FOR TREASURE AND PICK "
5054 PRINT" UP OBJECTS IN DUNGEON."
5060 POKE646,3:PRINT:PRINT" TO DIG FOR TREASURE YOU NEED A SEXTANT"
5062 PRINT" AND THE CORRECT COORDINATES."
5066 POKE646,4:PRINT:PRINT" YOU CAN ONLY CARRY ONE WEAPON."
5070 PRINT" PRICES AT LONG JOHN'S WEAPONRY INCLUDE"
5072 PRINT" TRADE IN ON YOUR OLD WEAPON"
5080 PRINT:PRINT:PRINT" * PRESS A KEY *"
5082 POKE198,0:WAIT198,1:GETZ$
5100 POKE646,5:PRINT"[147]":PRINT" THE AUTO ATTACK OPTION (IN COMBAT)"
5110 PRINT" CAN BE EXITED BY HOLDING DOWN THE "
5120 PRINT" SPACE BAR."
5130 POKE646,3:PRINT:PRINT" IF YOUR CHARACTER DIES YOU HAVE THE"
5140 PRINT" OPTION TO RESURRECT WITH ALL CURRENT  "
5150 PRINT" SPELLS, GOLD AND WEAPON PLUS 100HP."
5160 POKE646,7:PRINT:PRINT" AS THERE IS NO SAVE GAME OPTION IT IS"
5162 PRINT" WISE TO NOTE THE COORDINATES OF ANY "
5164 PRINT" BURIED TREASURE YOU HAVE FOUND."
5170 PRINT" THEN IF YOU BEGIN A NEW GAME YOU CAN"
5180 PRINT" SAVE TIME BY DIGGING UP TREASURE "
5182 PRINT" IMMEDIATELY."
5190 POKE646,8:  PRINT:PRINT" YOU CANNOT DIG UP TREASURE A SECOND"
5192 PRINT" TIME IF YOU 'RESURRECT'."
5194 PRINT:PRINT:PRINT" * PRESS A KEY *"
5196 POKE198,0:WAIT198,1:GETZ$
5200 PRINT"[147]"
5210 POKE646,7:  PRINT:PRINT" IF YOUR HITPOINTS REACH ZERO OR YOU"
5212 PRINT" RUN OUT OF FOOD YOU WILL DIE."
5214 POKE646,8: PRINT:PRINT" SEXTANTS WON'T WORK UNDERGROUND."
5220 POKE646,6:PRINT:PRINT"  SPELLS: [146]"
5222 POKE646,5: PRINT:PRINT" *CONFUSE   ENEMIES WILL MISS MORE OFTEN"
5224 PRINT:PRINT" *STRENGTH  INCREASES YOUR WEAPON'S"
5226 PRINT"            POWER BY UP TO 20 POINTS."
5228 PRINT:PRINT" *HEAL      ADDS 50 HITPOINTS"
5230 PRINT:PRINT:PRINT" *BANISH    BANISHES ALL FOES."
5240 POKE646,12:PRINT:PRINT:PRINT"  PRESS A KEY [146]"
5242 POKE198,0:WAIT198,1:GETZ$
5999 GOTO10
6000 PRINT"[147]":PRINT" GYPSUM CAVE ADVENTURE"
6010 PRINT:PRINT" IF YOUR CHARACTER DIES DURING THE GAME"
6020 PRINT" JUST TYPE RUN AND PRESS RETURN TO "
6030 PRINT" START AGAIN."
6040 PRINT:PRINT" WHEN GAME LOADS TYPE 'ENTER' TO ENTER"
6050 PRINT" THE CAVE."
6060 PRINT:PRINT" IF YOU ARE REALLY STUCK LIST THE"
6070 PRINT" PROGRAMME FOR CLUES."
6072 PRINT:PRINT:PRINT" *PRESS A KEY*"
6074 POKE198,0:WAIT198,1:GETXH$
6080 RETURN
7000 PRINT"[147]":PRINT" GYPSUM CAVE III"
7010 PRINT:PRINT" USE NUMBER KEYS 1 2 3 4 TO INPUT"
7020 PRINT" DIRECTION INSTEAD OF N S E W"
7030 PRINT:PRINT" 5 IS UP  6 IS DOWN"
7040 PRINT:PRINT:PRINT:PRINT" *PRESS A KEY"
7050 POKE198,0:WAIT198,1:GETWQ$
7058 RETURN