home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / DRAGON-ISLAND (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.3 KB  |  286 lines
  1. 0 :FORR=1TO100*B:NEXT:IFB>0THENRETURN :   ::::::::::::::::::::::::::::::::::::
  2. 5 REM"[141][145][158] ::::::::::::::::::::::::::::::::::::::
  3. 10 [143]"GOSUBONSYS :::                                :::
  4. 12 REM"[141][145][158] ::: OLD COMMODORE EDU. PGM MADE TO [158]:::
  5. 14 [143]"GOSUBONSYS ::: RUN ON SEVERAL C= MODELS. ALL  SYS:::
  6. 16 REM"[141][145][158] ::: UNNECESSARY CODE REMOVED  AND  [158]:::
  7. 18 [143]"GOSUBONSYS :::  EXTRA GRAPHICS AND SOUND ETC  SYS:::
  8. 20 REM"[141][145][158] :::          BY JIM GREEN          [158]:::
  9. 22 [143]"GOSUBONSYS :::                                :::
  10. 24 REM"[141][145][158] ::::::::::::::::::::::::::::::::::::::
  11. 26 [143]"GOSUBONSYS  ::::::::::::::::::::::::::::::::::::CONT
  12. 40 REM PD81
  13. 55 Z=828:FORT=ZTO843:READA:POKET,A:NEXT
  14. 60 DATA32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  15. 65 UX=53280:UY=53281:E=54272:F$=" [175][162][184][146][162][175] [157][157][157][157][157][157] [183][162][185][162][146][183]"
  16. 70 FORT=0TO15:POKEE+24,T:NEXT
  17. 75 FORT=ETOE+23:POKET,0:NEXT:POKEUX,2:POKEUY,2
  18. 80 PRINT"[147][142]   [153] [162][223][146]  [198][167][146]  [198] [146]  [162][162][146]  [162] [146]  [162] [146]"
  19. 85 PRINT"    [146][162] [146]  [146][223][223][146]  [146]  [146]  [146][162] [146]  [146][162] [146]   [146]"
  20. 90 PRINTTAB(17)"[153] [146]  [185][146][169] [146]    [198] [146]  [162] [146]  [162][223][146]"
  21. 95 PRINTTAB(17)" [146][169][184] [146]  [146][162][162]   [146]   [146]  [146][162] [146]":B=2:GOSUB
  22. 100 PRINT"[158]----------------------------------------"
  23. 105 PRINT"[150]       1.   PLAY DRAGON ISLAND"
  24. 110 PRINT"       2.   INSTRUCTIONS":PRINT"       3.   QUIT"
  25. 120 PRINT"[158]----------------------------------------"
  26. 125 PRINT"[153]        PRESS A NUMBER KEY  1-3"
  27. 130 GETG$:IFG$<"1"ORG$>"4"THEN130
  28. 135 SM=1:ONVAL(G$)GOSUB290,150,145:GOTO75
  29. 145 PRINT"[154][147]":POKEUY,6:POKEUX,14:END
  30. 150 PRINT"[147][155]":POKEUY,11:POKEUX,11:POKE53265,11
  31. 155 PRINT"  [196][210][193][199][207][206] [201]SLAND           [201]NSTRUCTIONS"
  32. 160 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  33. 165 PRINT" [217]OU ARE ALONE ON [196][210][193][199][207][206][160][201][211][204][193][206][196][146] WITH"
  34. 170 PRINT" ONLY YOUR TRUSTY SPEAR!! [212]HE [196]RAGON"
  35. 175 PRINT" LIVES IN A HILL PIERCED WITH TEN"
  36. 180 PRINT" CAVES, AND IT CAN CRAWL FROM CAVE TO":PRINT" CAVE."
  37. 190 PRINT" [217]OU MUST SELECT A CAVE TO THROW YOUR"
  38. 195 PRINT" SPEAR INTO - IF THE [196]RAGON IS IN THAT"
  39. 200 PRINT" CAVE, YOUR SPEAR WILL KILL HIM. [201]F HE"
  40. 205 PRINT" IS IN THE NEXT CAVE, HE WILL [211][206][207][210][212]!":POKE53265,27:GOSUB265
  41. 210 POKE53265,11:PRINT"[147] [194]EFORE THROWING YOUR SPEAR AGAIN, YOU"
  42. 215 PRINT" YOU MUST RETRIEVE IT. [201]F THE [196]RAGON  "
  43. 220 PRINT" HAS CRAWLED INTO THAT CAVE - [199][207][212][195][200][193]! "
  44. 225 PRINT" [212]HE [196]RAGON WILL ALSO GET YOU IF YOU  "
  45. 230 PRINT" DON'T KILL HIM BY 8:00 O'CLOCK,      "
  46. 235 PRINT" [196][210][193][199][207][206][160][201][211][204][193][206][196][146] TIME.                 "
  47. 240 PRINT" [206][207][212][197]...WHEN THE [196]RAGON [195][210][193][215][204][211] HE MOVES  TO ANOTHER CAVE."
  48. 245 PRINT" [215]HEN HE [204][213][210][203][211], HE HANGS AROUND THE SAME CAVE."
  49. 250 PRINT" [217]OU MAY HAVE EXTRA TIME IF YOU NEED IT."
  50. 255 PRINT" [202]UST ENTER [217] OR [206] WHEN PROMPTED..."
  51. 260 POKE53265,27:GOSUB265:RETURN
  52. 265 POKE198,0:SYSZ,24,6:PRINT"[155] PRESS SPACE BAR TO CONTINUE [146]"
  53. 270 WAIT197,7:RETURN
  54. 275 PRINT"[147]";
  55. 280 PRINT"[155] DRAGON ISLAND         SPEARS THROWN"SP
  56. 282 IFSM=1THENPRINT"[155] DRAGON ISLAND        SLAY THE MONSTER":SM=0
  57. 285 PRINT"[150][192][196][192][198][192][196][192][198][192][196][192][198][192][196][192][198][192][196][192][198][192][196][192][198][192][196][192][198][192][196][192][198][192][196][192][198][192][196][192][198]";:PRINT"":RETURN
  58. 290 POKEUY,0:POKEUX,0:H=6:M=-10:TM=15:S1=5:N=RND(-TI):D=INT(RND(1)*10)+1
  59. 300 POKE53265,11:GOSUB275:SYSZ,3,0:A=1:GOSUB770:A=0
  60. 305 P=INT(RND(1)*4)+1:SYSZ,8,28
  61. 310 IFP=1THENPRINT"[158]NO ONE BUT[157][157][157][157][157][157][157][157][157][157]YOU IS HERE[157][157][157][157][157][157][157][157]BUDDY":GOTO330
  62. 315 IFP=2THENPRINT"[150]YOU'RE THE[157][157][157][157][157][157][157][157][157]ONLY ONE[157][157][157][157][157][157][157]AROUND":GOTO330
  63. 320 IFP=3THENPRINT"THERE'S NO[157][157][157][157][157][157][157][157][157]ONE ELSE[157][157][157][157][157][157][157]AROUND":GOTO330
  64. 325 PRINT"[159]  YOU ARE[157][157][157][157][157][157]ALONE[157][157][157][157][157][157][157][157]AND SCARED!"
  65. 330 SYSZ,16,28:PRINT"AND DRAGONS [157][157][157][157][157][157][157][157][157][157][157][157]EAT AT 8:00"
  66. 335 IFA1=0THENB=15:GOSUB:A1=1
  67. 340 GOSUB1360:SYSZ,14,32:PRINT"       "
  68. 345 SYSZ,23,9:PRINT"[159][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  69. 350 PRINTTAB(9)" WANT MORE TIME   Y/N "
  70. 355 GETG$:IFG$<>"Y"ANDG$<>"N"THEN335
  71. 360 IFG$="Y"THENTM=10
  72. 365 IFG$="N"THENM=-15
  73. 370 POKE53265,11:FORT=3TO25:POKE781,T:SYS59903:NEXT
  74. 375 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
  75. 380 GOSUB280:GOSUB690:REM *THROW SPEAR
  76. 385 PRINT"[155]  INTO WHICH CAVE DO YOU":PRINT"  THROW YOUR SPEAR......"
  77. 390 GOSUB725:POKE198,0:T=0:POKE53265,27:PRINT"  ENTER  1 - 10 > [150]";
  78. 395 OPEN1,0:INPUT#1,T$:CLOSE1:PRINT:T=VAL(T$):SP=SP+1:IFT<1ORT>10THEN390
  79. 405 SYSZ,13,8:PRINT"[150]"T"[154]":L=13:IFRND(1)>.92THENL=9:GOSUB1300:GOTO380
  80. 410 IFV=0THENV=1:GOTO1520
  81. 415 S1=150:GOSUB1300:IFD=TTHEN600
  82. 425 IF(D=1ANDT=10)OR(D=10ANDT=1)THENPRINT:GOTO460
  83. 430 IFD-T=1ORT-D=1THEN1505
  84. 435 P=INT(RND(1)*5)+1:IFP=1THENPRINT"[155]  NOPE! THAT'S NOT IT   ":GOTO470
  85. 440 IFP=2THENPRINT"[150]  YOU NEED HELP!     [158]":GOTO470
  86. 445 IFP=3THENPRINT"  TRY ANOTHER CAVE!!     [159]":GOTO470
  87. 450 IFP=4THENPRINT"  YOU MISSED THAT ONE!         [153]":GOTO470
  88. 455 PRINT"  MISSED HIM... BY THAT MUCH...   [155]":GOTO470
  89. 460 PRINT"  S*N*O*R*T!          [158]"
  90. 465 REM    *  * DRAGON MOVES
  91. 470 S%=3*RND(1):S=S%-1:IFS=0THENA$="LURKS":GOTO500
  92. 480 D=D+S:A$="CRAWLS":IFD>10THEND=1
  93. 490 IFD<1THEND=10
  94. 495 PRINT"                               "
  95. 500 PRINT"  THE DRAGON "A$"                ":B=20:GOSUB
  96. 505 IFA$="LURKS"THENA2=1:POKE53265,11:GOSUB765
  97. 510 IFA$<>"LURKS"THENGOSUB1180
  98. 520 POKE53265,11:GOSUB275
  99. 525 PRINT"[155] DARE YOU FETCH YOUR SPEAR Y/N":IFD=TTHENPRINT""TAB(15)"[151]*"
  100. 530 U=1:GOSUB725:U=0:SYSZ,13,9:PRINT"[150][171][192][151]  [146][165]   [155]":POKE53265,27
  101. 540 GETG$:IFG$<>"Y"ANDG$<>"N"THEN540
  102. 545 B=10:GOSUB:B$=G$:IFB$="N"THENGOSUB275:GOSUB690:GOTO470
  103. 555 IFD=TTHEN655
  104. 560 GOSUB725:GOSUB1385:P=INT(RND(1)*3)+1
  105. 565 IFP=1THENPRINT"   CLOSE CALL!!":GOTO585
  106. 570 IFP=2THENPRINT"   YOU BARELY ESCAPED!!":GOTO585
  107. 575 IFP=3THENPRINT"   YOU LIKE TO LIVE DANGEROUSLY!!":GOTO585
  108. 580 PRINT"   YOU MADE IT!"
  109. 585 B=20:GOSUB:FORW=4TO9:POKE781,W:SYS59903:NEXT
  110. 590 FORW=17TO22:POKE781,W:SYS59903:NEXT:GOTO380
  111. 595 REM    *  * DRAGON DIES
  112. 600 PRINT"[147]":GOSUB900
  113. 605 SYSZ,9,23:PRINT"A*A*R*R*G*G*H*H[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][150]Y*O*U G*O*T M*E!"
  114. 610 SYSZ,14,23:IFRND(1)>.5THEN620
  115. 615 PRINT"I ZIGGED, WHEN I":PRINTTAB(23)"SHOULD'A ZAGGED!":GOTO625
  116. 620 PRINT"[158]  CHEER!CHEER![157][157][157][157][157][157][157][157][157][157]FOR THE[157][157][157][157][157][157][157][157][157][157]DRAGON-SLAYER!!"
  117. 625 SYSZ,12,7
  118. 630 PRINT". [157][157][157][157][157][157][157]  [171][192][192][192][157][157][157][157][157][157][157]  '  [157][157][157][157][157][157][157] .  [157][157][157][157][157][157][157]'  "
  119. 635 GOSUB1445:GOSUB1500:GOSUB265:GOTO1045
  120. 650 REM    *  * DRAGON DINES
  121. 655 IFH=8THEN1550
  122. 660 GOSUB900:SYSZ,11,25:PRINT"G[158]*O[158]*T[158]*C[158]*H[158]*A[158]!"
  123. 670 PRINTTAB(26)"M*U*N*C*H!":PRINTTAB(26)"M*U*N*C*H!":PRINTTAB(26)"M*U*N*C*H!"
  124. 675 GOSUB1000:SYSZ,11,0:FORW=1TO10:PRINTTAB(24)"              ":NEXT
  125. 680 B=10:GOSUB:GOSUB1015:B=20:GOSUB:GOTO1495
  126. 685 REM    *  * CLOCK SUB
  127. 690 M=M+TM:IFM=60THENH=H+1:M=0
  128. 700 IFH=8THEN655
  129. 705 M$=":"+RIGHT$(STR$(M),2):IFM=0THENM$=":00"
  130. 710 IFH=>7THENGOSUB1540
  131. 715 PRINT"[158]  IT IS ";RIGHT$(STR$(H),1);M$" O'CLOCK":RETURN
  132. 725 SYSZ,10,5:PRINT"[151]  [175][162][185][175][164]":PRINT"      [151][181][164]  - [188]"
  133. 735 PRINT"        [150]   [151]' [146]                    [150][215]"
  134. 740 PRINT"     [151][182] '[150] [215] [151]  [146][165]                  [159]-[189][146][152]"
  135. 745 PRINT"     [151][161]' [150]   [151] '[146][181]                  [129][206][221]"
  136. 750 PRINT"     [183][184][162][185][185][162][146][184][183][183][196][197][196][197][196][197][196][197][196][197][196][197][196][197][196][197][196][197][196][197][196][197][196]"
  137. 755 IFU=0THENSYSZ,13,31:PRINT"[152]_[192][159][177][146]"
  138. 760 B=1:GOSUB:RETURN
  139. 764 REM    *  * DRAGON LURKS
  140. 765 GOSUB275:IFA2=1THENPRINT"";:A2=0
  141. 770 PRINT"[151][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  142. 780 PRINT"[161][151][202]  [223][146]                  [151][161]"
  143. 785 PRINT"[161][151]    [146][161]                 [151][161]"
  144. 790 PRINT"[161][151][205]  [201] [146][181][164][175][164]             [151][161]"
  145. 795 PRINT"[161][151] [167]    [201][201][201][223][146]            [151][161]"
  146. 800 PRINT"[161][151]  [205]    [215][201][201][146]            [151][161]"
  147. 805 PRINT"[161][151]   [163]    [201][201][201][223][146][175][185][162][185][175][164]    [151][161]"
  148. 810 PRINT"[161][151]  [201]      [146][201][201][201][201][201][201][201][202][203][223][146]   [151][161]"
  149. 815 PRINT"[161][151]          [201][201][201][201][201][201][201][201][201][223][146]  [151][161]"
  150. 820 PRINT"[161][151][165][206]    [205]   [150][146][223][169][223][169][223][169][223][169][223][169]  [151][161]"
  151. 825 PRINT"[161][151] [165]    [206] [203] [182][146] --     -- [151][161]"
  152. 830 PRINT"[161][151]     [167]     [146][165]  ---   - [151][161]"
  153. 835 PRINT"[161][151]/[163][163]  [167]      [150][223][169][223][169][223][169][223][146]   [151][161]"
  154. 840 PRINT"[161][151]     [206]  [167]    [201][201][201][201][201][146][169]   [151][161]"
  155. 845 PRINT"[161][151]     [164]   [205]  /[223][146][163][183][163]     [151][161]"
  156. 850 PRINT"[161][151] [213]            [146][161]       [151][161]"
  157. 855 PRINT"[161][151] [203]  '    [164][164]/  /[188][146][187]     [151][161]"
  158. 860 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]":POKE53265,27:IFA=1THENRETURN
  159. 865 S1=5:GOSUB1360:PRINT"[150]":PRINTTAB(27);"            [146]"
  160. 875 PRINTTAB(27);" > SNORT! < [146]":PRINTTAB(27);" THE DRAGON [146]"
  161. 885 PRINTTAB(27);" > LURKS! < [146]"
  162. 890 PRINTTAB(27);"            [146]":B=20:GOSUB:RETURN
  163. 895 REM    *  * DRAGON DINES
  164. 900 POKE53265,11:GOSUB275:SYSZ,4,0:PRINT"[152][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  165. 905 PRINT"[161][146]       [223][223][146]       [152][161]"
  166. 910 PRINT"[161][146]      [169][146][169]  [169][146][169]       [152][161]"
  167. 915 PRINT"[161][146]     [169][202][202][202][202][202][223][146]       [152][161]"
  168. 920 PRINT"[161][146]    [169][202][202][202][202][202][202][202][223][146]      [152][161]"
  169. 925 PRINT"[161][146]   [169][202][202][202] [205][202][202][202] [146][206]     [152][161]"
  170. 930 PRINT"[161][146]  [169][202][202][202][202][207][213][205] [165][206][201][146]     [152][161]"
  171. 935 PRINT"[161][146] [188][202][202][202][202][202][204][202][203][165][167][202][203][146]     [152][161]"
  172. 940 PRINT"[161][146] [188][202][202][202][202][202][202][202][202][202][202][202][202][223][146]    [152][161]"
  173. 945 PRINT"[161][169][202][202][202][202][202][202][202][202][202][202][202][202][202][223][146]   [152][161]"
  174. 950 PRINT"[161][169][202][202][202][202][202][202][202][202][202][202][202] [176][174][176][174][146]  [152][161]"
  175. 955 PRINT"[161][202][202][202][202][202][202][202][202][202][202][202][202] [173][189][173][189][223][146] [152][161]"
  176. 960 PRINT"[161][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202] [146][165][152][161]"
  177. 965 PRINT"[161][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][146][165][152][161]"
  178. 970 SYSZ,18,0:PRINT"[161][202][202][202][146][169][163][163][163][223] [167][150][146][223][169][223][169][223][169][223][169] [152][161]"
  179. 975 PRINT"[161][202][202] [223][146]    [223][167][146]    [151][167]    [152][161]"
  180. 980 PRINT"[161][202]/[202][202][223][146][164][164]  [223][223][150][223][169][223][169][223][169][146]  [152][161]"
  181. 985 PRINT"[161]/[202][202][202][202][202][202][223][146][223]      [146][165] [152][161]"
  182. 990 PRINT"[161][202][202][202][202][202][202][202][202][223][146]  [163][183][183][184][183][163]  [152][161]"
  183. 995 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]":POKE53265,27:B=5:GOSUB:RETURN
  184. 1000 IFQ=0THENGOSUB1430:Q=1
  185. 1005 IFQ=4THENRETURN
  186. 1010 Q=Q+1:GOSUB1420:GOSUB1395:GOSUB970:GOTO1005
  187. 1015 PRINT"":PRINTTAB(21);"[158]*   [159]HEH HEH HEH   [158]*"
  188. 1025 PRINTTAB(21);"NEVER GIVE A SUCKER"
  189. 1030 PRINTTAB(21);"[158]*  AN EVEN BREAK  [158]*":GOSUB265:RETURN
  190. 1040 REM    *  * DRAGON DIES
  191. 1045 POKE53265,11:GOSUB275:PRINT"[152] [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  192. 1050 PRINT" [161][146]                   [161]"
  193. 1055 PRINT" [161][146]     [158][168][166][166][166][166][166][166][168]      [152][161]"
  194. 1060 PRINT" [161][146]     [158][166][166][166][166][166][166][166][166]      [152][161]"
  195. 1065 PRINT" [161][146]     [158][166][150][164][187]  [172][164][146][158][166]      [152][161]"
  196. 1070 PRINT" [161][146]   [150][167]. [213][201]  [213][201] .[146][165]    [152][161]"
  197. 1075 PRINT" [161][146]    [150][223] [202][203]  [202][203] [146][169]     [152][161]"
  198. 1080 PRINT" [161][146]    [150][167]   [202][203]   [146][165]     [152][161]"
  199. 1085 PRINT" [161][146]    [150][167] [146][223][164][164][164][164][146][169] [146][165]     [152][161]"
  200. 1090 PRINT" [161][146]    [150][167] [146] [155][188][190][188][190] [150] [146][165]     [152][161]"
  201. 1095 PRINT" [161][146]     [150][223][223][146][155][172][187][172][187][150][169][146][169]      [152][161]"
  202. 1100 PRINT" [161][146]      [150][223]    [146][169]       [152][161]"
  203. 1105 PRINT" [161][146]        [150][163][163][146]         [152][161]"
  204. 1110 PRINT" [161][146]   [169]  [176][192][192][192][192][174]  [223][146]    [152][161]"
  205. 1115 PRINT" [161][146]  [169]   [221]HERO[221]   [223][146]   [152][161]"
  206. 1120 PRINT" [161][146] [169] [146][169]  [173][192][192][192][192][189]  [146][223] [223][146]  [152][161]"
  207. 1125 PRINT" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]":POKE53265,27
  208. 1130 SYSZ,7,24:PRINT"** [158]AH, NOBLE **"
  209. 1135 PRINTTAB(24)"[158]DRAGON SLAYER!!":IFRND(1)>.5THEN1155
  210. 1140 PRINTTAB(24)"* TRULY, YOUR *":PRINTTAB(24)"GREATNESS KNOWS"
  211. 1150 PRINTTAB(24)"* NO BOUNDS!! *":GOTO1170
  212. 1155 PRINTTAB(24)"*  [156]AMONG MEN  *":PRINTTAB(24)"  [156]YOU ARE THE  "
  213. 1165 PRINTTAB(24)"* [156]CATS MEOW!! *"
  214. 1170 PRINTTAB(28);"[159]_(YOU)[146]":GOSUB1455:GOSUB265:B=8:GOSUB:RUN
  215. 1175 REM    *  * DRAGON CRAWLS
  216. 1180 POKE53265,11:GOSUB275:PRINT"[155][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  217. 1185 PRINT"[161][146]     [169][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][146][155][161]"
  218. 1190 PRINT"[161][146]    [169][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][146][155][161]"
  219. 1195 PRINT"[161][146]   [169][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][202][146][155][161]"
  220. 1200 PRINT"[161][146]  [169][202][202][202][202][202][202][202][202][202][202] [205][202][202][202][202][202][202][146][155][161]"
  221. 1205 PRINT"[161][146] [169][202][202][202][202][202][202][202][202][202][202][202]  [165][202][202][202][202][202][146][155][161]"
  222. 1210 PRINT"[161][146] [202][202][202][202][202] [205][202][202][202][202][202][202] [165][202][202][202][202][202][146][155][161]"
  223. 1215 PRINT"[161][146][167][202][202][202][146][169][163][163][163][223][202][202][202][202] /      [146][155][161]"
  224. 1220 PRINT"[161][146] [202][202] [223][146]    [202][202][202] [146][169][223][164][164][164][164][164][164][146][155][161]"
  225. 1225 PRINT"[161][146] [223][202][202][163][223][146]   [223][202][202] [146]     [223][202][202][146][155][161]"
  226. 1230 PRINT"[161][146]  [223][202][202] [223][146]   [223][202][202][223][146]     [223][202][146][155][161]"
  227. 1235 PRINT"[161][146]   [223][202][202][202][223][146][164][164][169][202][202][202][223][146][164][164][164] [169][202][146][155][161]"
  228. 1240 PRINT"[161][146]    [163][163][223][202][205][202][202][202][202][202][202][202][202][202][223][165][202][146][155][161]"
  229. 1245 PRINT"[161][146]      [169][205][202][205][202][202][202][202][202][202][202][202][202][205][202][146][155][161]"
  230. 1250 PRINT"[161][146]      [169][163][223][202][223][146][163][163][163][163][223][167][167][167][167][146][163][155][161]"
  231. 1255 PRINT"[161][146]         [223][202][223][146]    [223][223][223][223] [155][161]"
  232. 1260 PRINT"[161][146]          [163][163]         [155][161]"
  233. 1265 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]":PRINT""
  234. 1275 PRINTTAB(25);"              [146]":PRINTTAB(25);"*  S*N*O*R*T *[146]"
  235. 1285 PRINTTAB(25);"* THE DRAGON *[146]":PRINTTAB(25);"*   CRAWLS   *[146]"
  236. 1295 PRINTTAB(25);"              [146]":POKE53265,27:B=20:GOSUB:RETURN
  237. 1300 GOSUB1370:FORW=28TO13STEP-1
  238. 1305 SYSZ,L,0:PRINTTAB(W)"[152]_[192][192][192] ":B=.2:GOSUB:IFW=27THENSYSZ,13,31:PRINT" [159]-[189][146]"
  239. 1310 NEXT:IFL=9THENPRINT"";:GOSUB1380:GOTO1330
  240. 1320 B=.3:GOSUB:SYSZ,13,11:PRINT"[151]_[192][146][152][192][192]     ":GOSUB
  241. 1325 SYSZ,13,9:PRINT"[150][171][192][151]  [146][165]   ":GOSUB1380:RETURN
  242. 1330 P=INT(RND(1)*3)+1
  243. 1335 IFP=1THENPRINT" YOU NEED GLASSES!!                  ":GOTO1355
  244. 1340 IFP=2THENPRINT" TAKE SOME LESSONS!!                 ":GOTO1355
  245. 1345 IFP=3THENPRINT" TRY AGAIN, BUDDY!!                  ":GOTO1355
  246. 1350 PRINT" ARE YOU KIDDING!!                   "
  247. 1355 FORD=1TO700:NEXT:SYSZ,9,12:PRINT"       ":RETURN
  248. 1360 GOSUB1370:FORW=13TO32:SYSZ,14,W:PRINTF$:IFW=>24THENSYSZ,14,23:PRINT"[151][161][157][161]"
  249. 1365 NEXT:SYSZ,14,32:PRINT"        [157][157][157][157][157][157][157][157]        ":GOSUB1390:RETURN
  250. 1370 POKEE+5,20:POKEE+6,60:POKEE+1,S1:POKEE,185:POKEE+4,129:RETURN
  251. 1380 FORTE=ETOE+23:POKETE,0:NEXT
  252. 1385 POKEE+1,50:POKEE+4,17:POKEE+4,16
  253. 1390 FORTE=ETOE+23:POKETE,0:NEXT:RETURN
  254. 1395 SYSZ,18,8:PRINT"[163][223][167]":PRINTTAB(9)" [223][223][150][223][169][223][169][223][169][146]  [152][161]"
  255. 1405 PRINTTAB(10)" [223]      [146][165] [152][161]":PRINTTAB(11)" [163][183][183][184][183][163]  [152][161]"
  256. 1415 PRINTTAB(11)"       ":B=4:GOSUB:RETURN
  257. 1420 FORXP=50TO10STEP-10:POKEE+1,XP:POKEE+4,129:B=.35:GOSUB:POKEE+4,128:NEXT
  258. 1425 FORW=ETOE+23:POKEW,0:NEXT:RETURN
  259. 1430 POKEE+5,45:POKEE+6,165:POKEE+4,33:POKEE+1,6:POKEE,71
  260. 1435 B=5:GOSUB:POKEE+4,32:POKEE+1,0:POKEE,0:POKEE+4,33:POKEE+1,4
  261. 1440 POKEE,180:B=5:GOSUB:POKEE+4,32:FORW=ETOE+23:POKEW,0:NEXT:RETURN
  262. 1445 X=17:FORJ=1TO17:FORT=XTO0STEP-1:POKE54296,T
  263. 1450 POKE54296,0:NEXT:X=X-1:NEXT:RETURN
  264. 1455 GOSUB1475:FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
  265. 1460 POKE54277,25:POKE54278,255:POKE54276,21
  266. 1465 FORK=1TO4:F1=67:FORY=1TO2:F2=55:POKE54273,F1:FORX=1TO5:POKE54287,F2
  267. 1470 F1=F1*.71:F2=F2*.8345:NEXT:NEXT:NEXT:POKE54278,15:GOTO1485
  268. 1475 B=20:GOSUB:SYSZ,10,8:PRINT"[150]      ":SYSZ,14,8:PRINT"[223][146][155][188][190][188][190][150][169]"
  269. 1480 PRINTTAB(8)"      ":RETURN
  270. 1485 SYSZ,10,8:PRINT"[150][213][201]  [213][201]":SYSZ,14,8:PRINT" [155][188][190][188][190] "
  271. 1490 PRINTTAB(8)"[150][223][146][155][172][187][172][187][150][169]":POKEE+24,0:RETURN
  272. 1495 FORT=15TO0STEP-1:POKE54296,T:NEXT:RUN
  273. 1500 FORT=0TO15:POKE54296,T:NEXT:RETURN
  274. 1505 IFRND(1)<.33THENPRINT"  [158]* [158]JUST MISSED HIM! [158]*":GOTO460
  275. 1510 IFRND(1)>.66THENPRINT"  [159]*  [158]HE MOVED AWAY!  [158]*":GOTO460
  276. 1515 PRINT"  [158]* DODGED THE SPEAR [158]*":GOTO460
  277. 1520 IFRND(1)>.5THEN1530
  278. 1525 SYSZ,19,1:PRINT"[150]CAVE NUMBERS!! WOW! OH! WOW-WOW!!":GOTO1535
  279. 1530 SYSZ,19,1:PRINT"[150]MY WHAT A CLASSY JOINT! CAVE NUMBERS!"
  280. 1535 B=20:GOSUB:SYSZ,19,0:PRINT"                                      ":GOTO415
  281. 1540 FORT=1TO8:PRINT"  IT IS ";RIGHT$(STR$(H),1);M$" O'CLOCK"
  282. 1545 PRINT"[158]  IT IS ";RIGHT$(STR$(H),1);M$" O'CLOCK":NEXT:RETURN
  283. 1550 FORT=1TO10:SYSZ,18,3:PRINT"** EIGHT O'CLOCK - SUPPER TIME!! **":B=.2:GOSUB
  284. 1555 FORJ=15TO0STEP-1:POKEE+24,J:POKEE+24,0:NEXT:B=.5
  285. 1560 SYSZ,18,3:PRINT"[158]** EIGHT O'CLOCK - SUPPER TIME!! **":GOSUB:NEXT:GOTO660
  286.