home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 91 / SGDS 91.2mg / SDGS.91 / SDB91 / B / JEWEL.HUNT (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-03-20  |  11.7 KB  |  381 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ROT= 0: SPEED= 255: REM <CTRL-0x0d>(C)1988
  2. 100  PRINT  CHR$(21): IF  PEEK(176) >63  THEN  PRINT "TOO BIG. HGR2 WILL KILL LAST LINES.": STOP 
  3. 110  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1): LOMEM: 24576
  4. 130  CALL 2260: REM GSMONO
  5. 140  POKE 104,14: GOTO 1
  6. 150  CALL 2281: REM GSCOLR
  7. 160  PRINT  CHR$(4)"BYE"d"BYE"d SPEED= <CTRL-0x08> DEL h`8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF _ TAB(  IF ) TAB( ) SIN PLOT ) TAB( `"
  8. 36286  <<CTRL-0x09> IF 1 GET  PLOT  SGN<CTRL-0x09> SPEED= 3 DEL 
  9. 389  SPEED= 
  10. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC`) PLOT  PLOT <CTRL-0x09> J<UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN>H ONERR  STR$) END  DEL <UNKNOWN TOKEN> IF  PLOT <CTRL-0x09> -  HGR2 u ONERR %  TO <UNKNOWN TOKEN> DEL & ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL '<CTRL-0x18> ONERR  e$e& DEL & SPEED= 
  11. 3593  PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09><CTRL-0x0e> PLOT <CTRL-0x09>. HLIN <CTRL-0x09> ONERR <UNKNOWN TOKEN>)<CTRL-0x0f>i<CTRL-0x09>m HLIN <CTRL-0x09> PLOT  HLIN <CTRL-0x09> VTAB 
  12. 3517 <CTRL-0x0a>H ONERR 2 -? = <CTRL-0x04>hIHh PLOT <UNKNOWN TOKEN><CTRL-0x09> LOMEM: <UNKNOWN TOKEN> TAB( <CTRL-0x03> HGR2 <CTRL-0x07> COLOR= 
  13. 64333 <CTRL-0x09> COLOR= 
  14. 9873 <CTRL-0x18> SPEED= <CTRL-0x04>e' DEL ' LEFT$ TAN<CTRL-0x08> =  > ?<UNKNOWN TOKEN> -<CTRL-0x0c><UNKNOWN TOKEN><CTRL-0x0f> -<CTRL-0x14><UNKNOWN TOKEN>"h DEL <UNKNOWN TOKEN> ?<UNKNOWN TOKEN><CTRL-0x09> END L<UNKNOWN TOKEN><UNKNOWN TOKEN> X<UNKNOWN TOKEN>8 ONERR # VAL" STORE  RESUME ! J<UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> X<UNKNOWN TOKEN>L +<CTRL-0x09> SPEED= 
  15. 8837  SPEED= ( DEL ! SPEED= <CTRL-0x18> DEL #L +<CTRL-0x09>
  16. 3084 <CTRL-0x0c>
  17. 13107 3<CTRL-0x12>?<CTRL-0x12><CTRL-0x12>?<CTRL-0x12>
  18. 7683 0<CTRL-0x1f><CTRL-0x0c>
  19. 3096 <CTRL-0x06>33
  20. 7683 <CTRL-0x03>><CTRL-0x0c>
  21. 12 
  22. 1542 <CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  23. 6168 <CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  24. 16140 <CTRL-0x0c><CTRL-0x1e>
  25. 16140 ?<CTRL-0x0c><CTRL-0x0c>
  26. 12 
  27. 62 <CTRL-0x1c><CTRL-0x1c><CTRL-0x1c>
  28. 3096 <CTRL-0x06><CTRL-0x03><CTRL-0x03>
  29. 13107 33<CTRL-0x0c>
  30. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  31. 7216 <CTRL-0x06><CTRL-0x03>?
  32. 7216 03<CTRL-0x1e>
  33. 13107 ?00
  34. 12319 03<CTRL-0x1e>
  35. 7939 33<CTRL-0x1e>
  36. 3096 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  37. 7731 33<CTRL-0x1e>
  38. 15923 03<CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>
  39. 0 
  40. 7168 <CTRL-0x18><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  41. 30 <CTRL-0x1e><CTRL-0x1e>
  42. 6156 0<CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  43. 7216 <CTRL-0x0c>
  44. 13086 ;;<CTRL-0x03>3<CTRL-0x1e>
  45. 16179 333
  46. 7987 33<CTRL-0x1f>
  47. 771 <CTRL-0x03>3<CTRL-0x1e>
  48. 13107 33<CTRL-0x1f>
  49. 3843 <CTRL-0x03><CTRL-0x03>?
  50. 3843 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  51. 15107 33<CTRL-0x1e>
  52. 16179 333
  53. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  54. 12336 03<CTRL-0x1e>
  55. 3871 <CTRL-0x1f>33
  56. 771 <CTRL-0x03><CTRL-0x03>?
  57. 13119 333
  58. 13107 333
  59. 13107 33<CTRL-0x1e>
  60. 7987 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  61. 13107 3?<CTRL-0x1e>p<CTRL-0x1f>33<CTRL-0x1f><CTRL-0x1f>33
  62. 7683 00<CTRL-0x1f>
  63. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  64. 13107 33<CTRL-0x1e>
  65. 13107 3<CTRL-0x1e><CTRL-0x0c>
  66. 13107 ??3
  67. 3102 <CTRL-0x1e>33
  68. 7731 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  69. 3096 <CTRL-0x06><CTRL-0x03>?
  70. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e>
  71. 3078 <CTRL-0x18>00
  72. 6168 <CTRL-0x18><CTRL-0x18><CTRL-0x1e>
  73. 51 
  74. 1550 <CTRL-0x0c>
  75. 13118 >
  76. 13087 33<CTRL-0x1f><CTRL-0x1e>3<CTRL-0x03>3<CTRL-0x1e>
  77. 13118 33><CTRL-0x1e>3?<CTRL-0x03>>
  78. 7942 <CTRL-0x06><CTRL-0x06><CTRL-0x06>>33>0<CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x1f>3333
  79. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  80. 6172 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x0e><CTRL-0x03><CTRL-0x03>33<CTRL-0x0f>33
  81. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>3??33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x1f>33<CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  82. 13107 >00
  83. 819 <CTRL-0x03><CTRL-0x03>><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1f>
  84. 1567 <CTRL-0x06><CTRL-0x06><CTRL-0x1c>3333>333<CTRL-0x1e><CTRL-0x0c>33??33<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3333>0<CTRL-0x1e>
  85. 3096 <CTRL-0x06>?
  86. 1548 <CTRL-0x0c><CTRL-0x0c><CTRL-0x18>
  87. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  88. 6156 <CTRL-0x0c><CTRL-0x0c><CTRL-0x06>
  89. 0 
  90. 16191 ???
  91. 1670   GET  COS <UNKNOWN TOKEN> ASC PR#  RESUME <CTRL-0x06> XDRAW 
  92. 50928 <CTRL-0x03>0}  NOT <CTRL-0x02>0y ONERR <CTRL-0x01> -<CTRL-0x03> HGR2 s<CTRL-0x18>e<CTRL-0x03> -) GOSUB l ONERR 
  93. 26256 <CTRL-0x18>e<CTRL-0x02> -<CTRL-0x19> GOSUB _ DEL # ONERR <CTRL-0x02> DEL " ONERR <CTRL-0x01> DEL ! ONERR <CTRL-0x03> DEL   ASC  ASC"  NOT !  NOT !  STOP <CTRL-0x0d> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE  ASC<CTRL-0x0d> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  DRAW <CTRL-0x0d> = <UNKNOWN TOKEN> VTAB <CTRL-0x03> CLEAR  PEEK<CTRL-0x0d> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  STOP <CTRL-0x0d> ONERR <CTRL-0x02> AT # GOSUB <CTRL-0x0a> COLOR= <CTRL-0x08> GR   DRAW <CTRL-0x0d> = <UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN> COLOR= <CTRL-0x18> VTAB <CTRL-0x03> GR  POKE /<CTRL-0x0d> XDRAW <CTRL-0x06> * = <UNKNOWN TOKEN>  DRAW <CTRL-0x0d> = <UNKNOWN TOKEN>  NOT # X<UNKNOWN TOKEN>` INPUT <CTRL-0x06> ONERR <CTRL-0x09> LOMEM: <CTRL-0x01> GR  HGR <UNKNOWN TOKEN> GR  ONERR <CTRL-0x08> HGR <UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN> ONERR <CTRL-0x07> HGR <UNKNOWN TOKEN><CTRL-0x18> ONERR <UNKNOWN TOKEN>i<CTRL-0x04> DEL <UNKNOWN TOKEN> LOMEM: <CTRL-0x06>` ONERR <CTRL-0x02> ASC<CTRL-0x02>  TO <UNKNOWN TOKEN> ONERR )8 RIGHT$<CTRL-0x04><CTRL-0x18>e ASC DEL <UNKNOWN TOKEN> ONERR (e<CTRL-0x03> DEL <UNKNOWN TOKEN>`<CTRL-0x07>
  94. 28672 CpcqcqcqcqcqcqcqcqCp<CTRL-0x03>
  95. 30720 ,<CTRL-0x0e>
  96. 0  POKE 104,8: POKE 48688,240: POKE 48689,253: RUN 
  97. 1  RESTORE : REM LEAVE THIS HERE IF YOU USE DATA
  98. 2  REM TO QUIT:POKE104,8:GOTO150
  99. 3  REM BLOAD IMAGES @ $DCB
  100. 4  REM BLOAD BOXRTN @ $D00
  101. 5  REM BLOAD FONT   @ $A00
  102. 10 BOX = 3328: INVERSE 
  103. 20  REM <CTRL-0x0a><CTRL-0x0a>JEWEL HUNT BEGINS HERE<CTRL-0x0a>
  104. 30  REM <CTRL-0x0a><CTRL-0x0a>INITIALIZE CONSTANTS, POINTERS, FLAGS AND VARIABLES<CTRL-0x0a>
  105. 40 ESCAPE$ =  CHR$(27):SP$ =  CHR$(32):RA$ =  CHR$(21):DA$ =  CHR$(10):LA$ =  CHR$(8):UA$ =  CHR$(11):RTN$ =  CHR$(13):CK = 49168:D$ =  CHR$(4):RL = 38:F$ = "jewel.hunt.rnd":PI = 4 * ATN(1):AD = 12:AS = 12:BC = 49204
  106. 50  REM --- INITIALIZE CONSTANTS AND ARRAYS ---
  107. 60  DIM FR%(34),LR%(34),F(10)
  108. 70  REM --- INITIALIZE TEXT FILE POINTERS ---
  109. 80  FOR I = 0 TO 34: READ FR%(I),LR%(I): NEXT I
  110. 90  REM --- FUNCTIONS ---
  111. 100  DEF  FN D(X) =  INT(X * RND(1) +1)
  112. 110  DEF  FN R(X) =  FN D(6) +(X >1) * FN D(6) +(X >2) * FN D(6)
  113. 120  REM <CTRL-0x0a><CTRL-0x0a>PRINT TITLE SCREEN<CTRL-0x0a>
  114. 130  PRINT D$;"bload box.round": POKE BC,16 * INT( PEEK(BC)/16) +15: PRINT  CHR$(20);: HOME : PRINT  CHR$(12);: HCOLOR= 0
  115. 140  FOR A = 0 TO 90  STEP 10
  116. 150 A1 = A *PI/180:C =  COS(A1):S =  SIN(A1)
  117. 160  HPLOT 0,0 TO 30 *S,30 *C
  118. 170  HPLOT 279,0 TO 279 -30 *S,30 *C
  119. 180  HPLOT 279,191 TO 279 -30 *S,191 -30 *C
  120. 190  HPLOT 0,191 TO 30 *S,191 -30 *C
  121. 200  HPLOT 139,0 TO 139 -30 *(1 -C),60 *(1 -S)
  122. 210  HPLOT 139,0 TO 139 +30 *(1 -C),60 *(1 -S)
  123. 220  HPLOT 139,191 TO 139 -30 *(1 -C),191 -60 *(1 -S)
  124. 230  HPLOT 139,191 TO 139 +30 *(1 -C),191 -60 *(1 -S)
  125. 240  HPLOT 0,95 TO 60 *(1 -C),95 -30 *(1 -S)
  126. 250  HPLOT 0,95 TO 60 *(1 -C),95 +30 *(1 -S)
  127. 260  HPLOT 279,95 TO 279 -60 *(1 -C),95 -30 *(1 -S)
  128. 270  HPLOT 279,95 TO 279 -60 *(1 -C),95 +30 *(1 -S)
  129. 280  NEXT A
  130. 290  FOR A = 0 TO 360  STEP 10
  131. 300 A1 = A *PI/180:C =  COS(A1):S =  SIN(A1)
  132. 310  HPLOT 139,95 TO 139 -139 *C,95 -95 *S
  133. 320  NEXT A
  134. 330  CALL BOX,1,6,40,14:PTR = 0:CB = 15: GOSUB 20000
  135. 340 A$ = "Do you want instructions?": GOSUB 17000: ON A$ =  CHR$(27) GOTO 14000: IF A = 0  THEN  GOSUB 11000
  136. 350  REM <CTRL-0x0a><CTRL-0x0a>INITIALIZE MAIN SCREEN<CTRL-0x0a>
  137. 360  PRINT  CHR$(20);: HOME : PRINT  CHR$(12);
  138. 370  GOSUB 19000: GOTO 1000
  139. 990  REM <CTRL-0x0a><CTRL-0x0a>ENTRANCE TO MAGICIAN'S LAIR<CTRL-0x0a>
  140. 1000 PTR = 1:CB = 4: GOSUB 20050
  141. 1010 OP$(1) = " North, go ":OP$(2) = " South, go ":OP$(3) = " Break down & cry ":N = 3
  142. 1020  GOSUB 18000
  143. 1030  ON I +1 GOTO 1050,2000,1070,1090
  144. 1040  REM --- ESCAPE ---
  145. 1050  GOSUB 13000: GOTO 1020
  146. 1060  REM --- GO SOUTH ---
  147. 1070 PTR = 2:CB = 13: GOSUB 20050: GOTO 1020
  148. 1080  REM --- CRY/DIE ---
  149. 1090 PTR = 3:CB = 1: GOSUB 20050:AS = 0:AD = 0: GOSUB 19000: GOTO 14000
  150. 1100  GOSUB 12000: GOTO 16000
  151. 1990  REM <CTRL-0x0a><CTRL-0x0a>FOUR WAY<CTRL-0x0a>
  152. 2000 PTR = 4:CB = 8: GOSUB 20050:OP$(1) = " North, go ":OP$(2) = " South, go ":OP$(3) = " East, go ":OP$(4) = " West, go ":N = 4
  153. 2010  GOSUB 18000: ON I +1 GOTO 2030,4000,1000,5000,3000
  154. 2020  REM --- ESCAPE ---
  155. 2030  GOSUB 13000: GOTO 2010
  156. 2990  REM <CTRL-0x0a><CTRL-0x0a>SHIELD ROOM<CTRL-0x0a>
  157. 3000  IF F(3) < >0  THEN 3100
  158. 3010 PTR = 5:CB = 9: GOSUB 20050:OP$(1) = " Open case door ":OP$(2) = " Cut hole in case ":OP$(3) = " North, go ":OP$(4) = " East, go ":N = 4
  159. 3020  GOSUB 18000: ON I +1 GOTO 3040,3060,3080,4000,2000
  160. 3030  REM --- ESCAPE ---
  161. 3040  GOSUB 13000: GOTO 3020
  162. 3050  REM --- OPEN DOOR ---
  163. 3060 PTR = 6:CB = 1: GOSUB 20050:AS = 0:AD = 0: GOSUB 19000: GOTO 14000
  164. 3070  REM --- CUT HOLE ---
  165. 3080 PTR = 7:CB = 12: GOSUB 20050:F(3) = 1: GOSUB 19000: GOSUB 12000
  166. 3090  REM --- SHIELD NOT HERE ---
  167. 3100 PTR = 8:CB = 8: GOSUB 20050:OP$(1) = " North, go ":OP$(2) = " East, go ":N = 2
  168. 3110  GOSUB 18000: ON I +1 GOTO 3130,4000,2000
  169. 3120  REM --- ESCAPE ---
  170. 3130  GOSUB 13000: GOTO 3110
  171. 3990  REM <CTRL-0x0a><CTRL-0x0a>SWORD ROOM<CTRL-0x0a>
  172. 4000  IF F(4) < >0  THEN 4100
  173. 4010 PTR = 9:CB = 9: GOSUB 20050:OP$(1) = " White sword, get ":OP$(2) = " Black sword, get ":OP$(3) = " North, go ":OP$(4) = " South, go ":OP$(5) = " East, go ":N = 5
  174. 4020  GOSUB 18000: ON I +1 GOTO 4040,4060,4080,5000,3000,2000
  175. 4030  REM --- ESCAPE ---
  176. 4040  GOSUB 13000: GOTO 4020
  177. 4050  REM --- GET WHITE SWORD ---
  178. 4060 PTR = 10:CB = 12: GOSUB 20050:F(4) = 1: GOSUB 19000: GOSUB 12000: GOTO 4100
  179. 4070  REM --- GET BLACK SWORD ---
  180. 4080 PTR = 11:CB = 1: GOSUB 20050:AS = 0:AD = 0: GOSUB 19000: GOTO 14000
  181. 4090  REM --- WHITE SWORD NOT HERE ---
  182. 4100 PTR = 12:CB = 9: GOSUB 20050:OP$(1) = " Black sword, get ":OP$(2) = " North, go ":OP$(3) = " South, go ":OP$(4) = " East, go ":N = 4
  183. 4110  GOSUB 18000: ON I +1 GOTO 4130,4080,5000,3000,2000
  184. 4120  REM --- ESCAPE ---
  185. 4130  GOSUB 13000: GOTO 4110
  186. 4990  REM <CTRL-0x0a><CTRL-0x0a>GIANT ROOM<CTRL-0x0a>
  187. 5000  IF F(5) < >0  THEN 5250
  188. 5010  REM --- GIANT ALIVE ---
  189. 5020 PTR = 13:CB = 9: GOSUB 20050:OP$(1) = " Fight the giant ":OP$(2) = " East, go ":OP$(3) = " West, go ":OP$(4) = " Talk to giant ":N = 4
  190. 5030  GOSUB 18000: ON I +1 GOTO 5050,5080,2000,4000,5230
  191. 5040  REM --- ESCAPE ---
  192. 5050  GOSUB 13000: GOTO 5030
  193. 5060  REM --- FIGHT ---
  194. 5070  REM --- STARTING ATTRIBUTES ---
  195. 5080 GS = 30:GD = 8: POKE BC,16 * INT( PEEK(BC)/16) +1
  196. 5090  CALL BOX,1,1,40,12:D =  FN R(3): IF D >AD  THEN 5140
  197. 5100 DM = (F(4) = 1) * FN R(2) +(F(4) = 0) *( FN R(1) -4): IF DM <0  THEN DM = 0
  198. 5110  NORMAL : PRINT " You hit for ";DM;" points of damage! ": INVERSE 
  199. 5120 GS = GS -DM: IF GS < = 0  THEN  PRINT : POKE BC,16 * INT( PEEK(BC)/16) +12: PRINT " You slay the giant!! ":F(5) = 1: GOSUB 12000: GOTO 5250
  200. 5130  GOTO 5150
  201. 5140  PRINT " You missed the giant. "
  202. 5150 D =  FN R(3): IF D >GD  THEN 5200
  203. 5160 DM =  FN R(2) -1 -(F(3) = 1): NORMAL : PRINT " Giant hits for ";DM;" points of damage! ": INVERSE :AS = AS -DM: IF AS < = 0  THEN  PRINT :PTR = 14:CB = 1: GOSUB 20000
  204. 5170  IF AS >0  THEN  VTAB 15: HTAB 27: PRINT  RIGHT$(" " + STR$(AS),2);
  205. 5180  IF AS < = 0  THEN AS = 0:AD = 0: GOSUB 19000: GOTO 14000
  206. 5190  GOTO 5210
  207. 5200  PRINT " The giant missed you. "
  208. 5210  GOSUB 12000: GOTO 5090
  209. 5220  REM --- TALK (GRUNT?) ---
  210. 5230 PTR = 15:CB = 13: GOSUB 20050: GOTO 5030
  211. 5240  REM --- GIANT DEAD ---
  212. 5250 PTR = 16:CB = 8: GOSUB 20050:OP$(1) = " East, go ":OP$(2) = " West, go ":OP$(3) = " North, go ":N = 3
  213. 5260  GOSUB 18000: ON I +1 GOTO 5280,2000,4000,6000
  214. 5270  REM --- ESCAPE ---
  215. 5280  GOSUB 13000: GOTO 5260
  216. 5990  REM <CTRL-0x0a><CTRL-0x0a>LOCKED DOOR ROOM<CTRL-0x0a>
  217. 6000 PTR = 17:CB = 4: GOSUB 20050:OP$(1) = " North, go ":OP$(2) = " South, go ":OP$(3) = " East, go ":N = 3
  218. 6010  GOSUB 18000: ON I +1 GOTO 6030,9000,5000,6050
  219. 6020  REM --- ESCAPE ---
  220. 6030  GOSUB 13000: GOTO 6010
  221. 6040  REM --- GO EAST (OPEN DOOR) ---
  222. 6050  IF F(8) = 0  THEN  CALL BOX,1,1,40,12: PRINT "The door is locked.": GOTO 6010
  223. 6060  IF F(8) = 1  THEN PTR = 18:CB = 12: GOSUB 20050: GOSUB 12000: GOTO 7000
  224. 6990  REM <CTRL-0x0a><CTRL-0x0a>BEHIND THE GREEN DOOR ROOM<CTRL-0x0a>
  225. 7000  IF F(7) < >0  THEN 7090
  226. 7010  REM --- JEWEL HERE ---
  227. 7020 PTR = 19:CB = 6: GOSUB 20050:OP$(1) = " Jewel, get ":OP$(2) = " West, go ":N = 2
  228. 7030  GOSUB 18000: ON I +1 GOTO 7050,7070,6000
  229. 7040  REM --- ESCAPE ---
  230. 7050  GOSUB 13000: GOTO 7030
  231. 7060  REM --- GET JEWEL ---
  232. 7070 PTR = 20:CB = 9: GOSUB 20050:F(7) = 1: GOSUB 19000: GOSUB 12000: GOTO 7090
  233. 7080  REM --- JEWEL NOT HERE ---
  234. 7090 PTR = 21:CB = 4: GOSUB 20050:OP$(1) = " West, go ":N = 1
  235. 7100  GOSUB 18000: ON I +1 GOTO 7120,6000
  236. 7110  REM --- ESCAPE ---
  237. 7120  GOSUB 13000: GOTO 7100
  238. 7990  REM <CTRL-0x0a><CTRL-0x0a>KEY ROOM<CTRL-0x0a>
  239. 8000  IF F(8) < >0  THEN 8110
  240. 8010  REM --- KEY HERE ---
  241. 8020 PTR = 22:CB = 7: GOSUB 20050:OP$(1) = " Pick random key ":OP$(2) = " Collect all keys ":OP$(3) = " West, go ":N = 3
  242. 8030  GOSUB 18000: ON I +1 GOTO 8050,8070,8090,9000
  243. 8040  REM --- ESCAPE ---
  244. 8050  GOSUB 13000: GOTO 8030
  245. 8060  REM --- GET KEY ---
  246. 8070 PTR = 23:CB = 6: GOSUB 20050:F(8) = 1: GOSUB 19000: GOSUB 12000: GOTO 8110
  247. 8080  REM --- GET ALL KEYS (PIGGY!) ---
  248. 8090 PTR = 24:CB = 1: GOSUB 20050:AS = 0:AD = 0: GOSUB 19000: GOTO 14000
  249. 8100  REM --- KEY NOT HERE ---
  250. 8110 PTR = 22:CB = 7: GOSUB 20050:OP$(1) = " Collect all keys ":OP$(2) = " West, go ":N = 2
  251. 8120  GOSUB 18000: ON I +1 GOTO 8140,8090,9000
  252. 8130  REM --- ESCAPE ---
  253. 8140  GOSUB 13000: GOTO 8120
  254. 8990  REM <CTRL-0x0a><CTRL-0x0a>MAGICIAN'S ROOM<CTRL-0x0a>
  255. 9000  IF F(9) < >0  THEN 9430
  256. 9010  REM --- HERE'S HARRY! ---
  257. 9020 PTR = 25:CB = 9: GOSUB 20050:OP$(1) = " Fight magician ":OP$(2) = " South, go ":N = 2
  258. 9030  GOSUB 18000: ON I +1 GOTO 9050,9080,6000
  259. 9040  REM --- ESCAPE ---
  260. 9050  GOSUB 13000: GOTO 9030
  261. 9060  REM --- FIGHT MAGICIAN ---
  262. 9070  REM --- STARTING ATTRIBUTES ---
  263. 9080 MS = 10:MD = 12: POKE BC,16 * INT( PEEK(BC)/16) +1
  264. 9090 IW = 0: CALL BOX,1,1,40,12:D =  FN R(3): IF D >MD  THEN 9270
  265. 9100 SP =  FN D(4): ON SP GOTO 9120,9140,9160,9190
  266. 9110  REM --- DAZZLE SPELL ---
  267. 9120  NORMAL : PRINT " A flash of light blinds you! ": INVERSE :AD = AD -3:IW = 1: GOTO 9220
  268. 9130  REM --- FIRE SPELL ---
  269. 9140  NORMAL : PRINT " A fireball does 2 points of damage! ": INVERSE :AS = AS -2:IW = 1: GOTO 9220
  270. 9150  REM --- DROP WEAPON SPELL ---
  271. 9160  IF F(4) = 1  THEN  NORMAL : PRINT " Your sword flies from your hands! ": INVERSE :F(4) = 0:IW = 1: GOTO 9220
  272. 9170  GOTO 9270
  273. 9180  REM --- MAGIC FIST SPELL ---
  274. 9190 DM =  FN R(1) -2: IF DM <0  THEN DM = 0
  275. 9200  NORMAL : PRINT " You're hit for ";DM;" points of damage! ": INVERSE :AS = AS -DM:IW = 1: GOTO 9220
  276. 9210  REM --- ADVENTURER'S DEAD ---
  277. 9220  IF AS >0  THEN 9290
  278. 9230  IF SP = 2  THEN PTR = 26
  279. 9240  IF SP = 4  THEN PTR = 27
  280. 9250  PRINT :CB = 1: GOSUB 20000:AS = 0:AD = 0: GOSUB 19000: GOTO 14000
  281. 9260  REM --- FAILED SPELL ---
  282. 9270  PRINT " The magician's spell fails! "
  283. 9280  REM --- ADVENTURER ATTACKS ---
  284. 9290 D =  FN R(3): IF D >AD  THEN 9380
  285. 9300  REM --- ADVENTURER HITS! ---
  286. 9310 DM =  FN R(1) +(F(4) = 1) * FN R(1) +(F(4) = 0) *( -2): IF DM <0  THEN DM = 0
  287. 9320 MS = MS -DM: NORMAL : PRINT " You hit for ";DM;" points of damage! ": INVERSE 
  288. 9330  REM --- MAGICIAN'S DEAD ---
  289. 9340  IF MS >0  THEN 9400
  290. 9350  PRINT : POKE BC,16 * INT( PEEK(BC)/16) +12: PRINT " You slay the magician!! ":F(9) = 1: GOSUB 12000: IF IW = 1  THEN  GOSUB 19000
  291. 9360  GOTO 9430
  292. 9370  REM --- ADVENTURER MISSED ---
  293. 9380  PRINT " You missed the magician. "
  294. 9390  REM --- END OF BATTLE SEQUENCE ---
  295. 9400  IF IW = 1  THEN  GOSUB 19000
  296. 9410  GOSUB 12000: GOTO 9090
  297. 9420  REM --- HARRY'S HISTORY ---
  298. 9430 PTR = 28:CB = 8: GOSUB 20050:OP$(1) = " South, go ":OP$(2) = " East, go ":OP$(3) = " West, go ":N = 3
  299. 9440  GOSUB 18000: ON I +1 GOTO 9460,6000,8000,10000
  300. 9450  REM --- ESCAPE ---
  301. 9460  GOSUB 13000: GOTO 9440
  302. 9990  REM <CTRL-0x0a><CTRL-0x0a>EXIT FROM MAGICIAN'S LAIR<CTRL-0x0a>
  303. 10000 PTR = 29:CB = 13: GOSUB 20050:OP$(1) = " East, go ":OP$(2) = " West, go ":N = 2
  304. 10010  GOSUB 18000: ON I +1 GOTO 10030,9000,10050
  305. 10020  REM --- ESCAPE ---
  306. 10030  GOSUB 13000: GOTO 10010
  307. 10040  REM --- GO WEST (LEAVE) ---
  308. 10050  IF F(7) < >0  THEN 10090
  309. 10060  REM --- YOU DON'T HAVE THE JEWEL ---
  310. 10070  CALL BOX,1,1,40,21:PTR = 30:CB = 1: GOSUB 20000: GOTO 14000
  311. 10080  REM --- YOU DO HAVE THE JEWEL ---
  312. 10090  CALL BOX,1,1,40,21:PTR = 31:CB = 12: GOSUB 20000: GOSUB 22000: GOTO 14000
  313. 10990  REM <CTRL-0x0a><CTRL-0x0a>GAME INSTRUCTIONS<CTRL-0x0a>
  314. 11000  PRINT  CHR$(20);: HOME : PRINT  CHR$(12);:CB = 15: FOR PTR = 32 TO 34
  315. 11010  CALL BOX,1,1,40,21: GOSUB 20000: GOSUB 11030: IF A$ =  CHR$(27)  THEN PTR = 34
  316. 11020  NEXT PTR: RETURN 
  317. 11030  CALL BOX,1,22,40,3: HTAB 4: PRINT "Press a key to go on. ESC exits.";: GET A$: POKE CK,0: GOSUB 21000: RETURN 
  318. 11990  REM <CTRL-0x0a><CTRL-0x0a>PRESS ANY KEY<CTRL-0x0a>
  319. 12000  CALL BOX,1,22,40,3: HTAB 8: PRINT "Press any key to continue": GET A$: POKE CK,0: GOSUB 21000: RETURN 
  320. 12990  REM <CTRL-0x0a><CTRL-0x0a>QUIT GAME<CTRL-0x0a>
  321. 13000 A$ = "Do you want to quit?":T0$ = OP$(0):T1$ = OP$(1): GOSUB 17000:OP$(0) = T0$:OP$(1) = T1$: ON A = 0 GOTO 14000: ON A = 1 GOTO 13010
  322. 13010  GOSUB 21000: RETURN 
  323. 13990  REM <CTRL-0x0a><CTRL-0x0a>PLAY IT AGAIN, SAM?<CTRL-0x0a>
  324. 14000 A$ = "Do you want to play again?": GOSUB 17000: ON A = 0 GOTO 15000: ON A = 1 GOTO 16000
  325. 14990  REM <CTRL-0x0a><CTRL-0x0a>RERUN<CTRL-0x0a>
  326. 15000  RUN 
  327. 15990  REM <CTRL-0x0a><CTRL-0x0a>THE BIG GOODBYE<CTRL-0x0a>
  328. 16000  NORMAL : POKE 104,8: GOTO 150
  329. 16990  REM <CTRL-0x0a><CTRL-0x0a>YES OR NO<CTRL-0x0a>
  330. 17000  CALL BOX,1,22,40,3:W =  LEN(A$) +10:L = 20 - INT(W/2): HTAB L: PRINT A$;"  Yes  No"
  331. 17010 OH(0) = L + LEN(A$) +1:OP$(0) = " Yes ":OH(1) = OH(0) +5:OP$(1) = " No ":A = 0: HTAB OH(A): NORMAL : PRINT OP$(A): INVERSE 
  332. 17020  GET A$: POKE CK,0
  333. 17030  IF A$ = ESCAPE$  THEN 17100
  334. 17040  IF (A$ = SP$)  OR (A$ = RA$)  OR (A$ = DA$)  OR (A$ = LA$)  OR (A$ = UA$)  THEN  HTAB OH(A): PRINT OP$(A):A = 1 -A: HTAB OH(A): NORMAL : PRINT OP$(A): INVERSE : GOTO 17020
  335. 17050  IF A$ = RTN$  THEN 17100
  336. 17060  IF (A$ = "Y")  OR (A$ = "y")  THEN A = 0: GOTO 17100
  337. 17070  IF (A$ = "N")  OR (A$ = "n")  THEN A = 1: GOTO 17100
  338. 17080  REM --- BAD KEY ---
  339. 17090  GOSUB 23000: GOTO 17020
  340. 17100  RETURN 
  341. 17990  REM <CTRL-0x0a><CTRL-0x0a>GET OPTION<CTRL-0x0a>
  342. 18000  CALL BOX,1,22,40,3: HTAB 3: PRINT "Arrows move hilight, RETURN selects"
  343. 18010  CALL BOX,1,13,20,9: PRINT "ACTIONS": FOR I = 1 TO N: PRINT OP$(I);: IF  LEN(OP$(I)) <18  THEN  PRINT 
  344. 18020  NEXT I:I = 1: VTAB 14 +I: NORMAL : PRINT OP$(I): INVERSE 
  345. 18030  GET A$: POKE CK,0: IF A$ = ESCAPE$  THEN I = 0: GOTO 18130
  346. 18040  IF (A$ = RA$)  OR (A$ = DA$)  OR (A$ = SP$)  THEN  VTAB 14 +I: PRINT OP$(I):I = I +1 -N *(I = N): VTAB 14 +I: NORMAL : PRINT OP$(I): INVERSE : GOTO 18120
  347. 18050  IF (A$ = LA$)  OR (A$ = UA$)  THEN  VTAB 14 +I: PRINT OP$(I):I = I -1 +N *(I = 1): VTAB 14 +I: NORMAL : PRINT OP$(I): INVERSE : GOTO 18120
  348. 18060  IF A$ = RTN$  THEN 18130
  349. 18070  IF (A$ > = "a")  AND (A$ < = "z")  THEN A$ =  CHR$( ASC(A$) -( ASC("a") - ASC("A")))
  350. 18080  REM --- POWER USER INTERFACE ---
  351. 18090  FOR J = 1 TO N:K = I +J -N *((I +J) >N): IF A$ =  MID$ (OP$(K),2,1)  THEN  VTAB 14 +I: PRINT OP$(I):I = K: VTAB 14 +I: NORMAL : PRINT OP$(I): INVERSE :J = N:K =  -1
  352. 18100  NEXT J: IF K =  -1  THEN 18130
  353. 18110  GOSUB 23000
  354. 18120  GOTO 18030
  355. 18130  GOSUB 21000: RETURN 
  356. 18990  REM <CTRL-0x0a><CTRL-0x0a>REFRESH INVENTORY BOX<CTRL-0x0a>
  357. 19000  CALL BOX,21,13,20,9: PRINT "INVENTORY & STATUS";: PRINT  SPC( 4);"S:"; RIGHT$(" " + STR$(AS),2); SPC( 2);"D:"; RIGHT$(" " + STR$(AD),2)
  358. 19010  PRINT "Glass Cutter": IF F(3) = 1  THEN  PRINT "Shield"
  359. 19020  IF F(4) = 1  THEN  PRINT "White Sword"
  360. 19030  IF F(7) = 1  THEN  PRINT "Jewel"
  361. 19040  IF F(8) = 1  THEN  PRINT "Key"
  362. 19050  RETURN 
  363. 19990  REM <CTRL-0x0a><CTRL-0x0a>READ TEXT FROM DISK<CTRL-0x0a>
  364. 20000  POKE BC,16 * INT( PEEK(BC)/16) +CB: PRINT D$;"open";F$;",l";RL
  365. 20010  FOR I = FR%(PTR) TO LR%(PTR): PRINT D$;"read";F$;",r";I: FOR J = 1 TO RL: GET T$: PRINT T$;: NEXT J: NEXT I: PRINT 
  366. 20020  PRINT D$;"close";F$
  367. 20030  RETURN 
  368. 20040  REM --- DISPLAY IN DESCRIPTION BOX ---
  369. 20050  CALL BOX,1,1,40,12: GOSUB 20000: RETURN 
  370. 20990  REM <CTRL-0x0a><CTRL-0x0a>CLEAR DIALOG WINDOW<CTRL-0x0a>
  371. 21000  HCOLOR= 3: FOR J = 167 TO 191: HPLOT 0,J TO 279,J: NEXT J: HCOLOR= 0: RETURN 
  372. 21990  REM <CTRL-0x0a><CTRL-0x0a>LISSAJOU END SHOW<CTRL-0x0a>
  373. 22000 TB = 1:TE = 210:AX = 125:X0 = 140:WX = PI/15:AY = 20:Y0 = 141:WY = PI/7: DEF  FN X(T) = AX * SIN(WX *T) +X0: DEF  FN Y(T) = AY * COS(WY *T) +Y0: HPLOT  FN X(0), FN Y(0): FOR T = TB TO TE: HPLOT  TO  FN X(T), FN Y(T): NEXT 
  374. 22010  HPLOT 15,121 TO 265,121 TO 265,161 TO 15,161 TO 15,121: VTAB 17: HTAB 16: PRINT "       ": HTAB 15: PRINT " The End ": HTAB 16: PRINT "       "
  375. 22020  RETURN 
  376. 22990  REM <CTRL-0x0a><CTRL-0x0a>PRODOS BELL ROUTINE<CTRL-0x0a>
  377. 23000  CALL  PEEK(121) + PEEK(122) *256 +28: REM  SPEED=   DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x01> DEL <UNKNOWN TOKEN> SPEED= <CTRL-0x02><CTRL-0x18> HGR2 <CTRL-0x14> PLOT 0 TAB(  SPEED= <CTRL-0x02> DEL <UNKNOWN TOKEN> SPEED= $<CTRL-0x18> HGR2 <CTRL-0x08> PLOT 0 TAB(   NOT <UNKNOWN TOKEN> =  STR$`8H RIGHT$<CTRL-0x01> = <UNKNOWN TOKEN>h RIGHT$<CTRL-0x01> = <UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN> -<CTRL-0x01><UNKNOWN TOKEN> RND =  VAL:4
  378. 23010  RETURN 
  379. 23990  REM <CTRL-0x0a><CTRL-0x0a>DATA<CTRL-0x0a>
  380. 24000  DATA  1,12,13,16,17,19,20,28,29,31,32,36,37,42,43,48,49,51,52,55,56,63,64,68,69,71,72,75,76,77,78,81,82,83,84,86
  381. 24010  DATA  87,89,90,95,96,98,99,99,100,106,107,111,112,118,119,125,126,127,128,130,131,135,136,137,138,145,146,159,160,178,179,194,195,201