home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / DOORS-GAME (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.1 KB  |  400 lines
  1. 3 PRINT"[147][144]"
  2. 4 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  3. 5 PRINT"    [207][183][183][183][183][205] [206][183][183][183][183][205] [206][183][183][183][183][205] [207][183][183][183][183][205] [206][183][183][183][183][205]"
  4. 6 PRINT"    [180]    [170] [180]    [170] [180]    [170] [180]    [170] [180]"
  5. 7 PRINT"    [180]    [170] [180]    [170] [180]    [170] [180]    [170] [180]"
  6. 8 PRINT"    [180]    [170] [180]    [170] [180]    [170] [204][175][175][175][175][206] [205][175][175][175][175]"
  7. 9 PRINT"    [180]    [170] [180]   [209][170] [180]   [209][170] [180]  [205]        [205]"
  8. 10 PRINT"    [180]    [170] [180]    [170] [180]    [170] [180]   [205]       [170]"
  9. 11 PRINT"    [180]    [170] [180]    [170] [180]    [170] [180]    [205]      [170]"
  10. 12 PRINT"    [204][175][175][175][175][206] [205][175][175][175][175][206] [205][175][175][175][175][206] [180]     [205][205][175][175][175][175][206]"
  11. 13 FORH=1TO500:NEXTH
  12. 14 PRINT:PRINT:PRINTSPC(15)"HIT ANY KEY"
  13. 15 FORG=1TO15
  14. 16 FORT=1TO15
  15. 17 POKE53281,G:POKE53280,T
  16. 18 GETA$:IFA$=""THEN20
  17. 19 IFA$<>""THEN22
  18. 20 NEXTT,G
  19. 21 GOTO15
  20. 22 PRINT"[154]":POKE53281,6:POKE53280,14
  21. 23 X=0:Y=0:Z=0
  22. 24 PRINT"[147]"
  23. 25 PRINT"DO YOU WANT INSTRUCTIONS?(Y/N)"
  24. 26 GETO$:IFO$=""THEN26
  25. 27 IFO$="N"THEN54
  26. 28 PRINT"[147]   THIS IS AN ADVENTURE CALLED
  27. 29 [153]"   'DOORS'. YOU HAVE BEEN ACCUSED OF A
  28. 30 PRINT"   TERRIBLE CRIME. TO DETERMINE YOUR
  29. 31 [153]"   INNOCENCE OR GUILT, THE 'MAZE OF
  30. 32 PRINT"   DOORS' HAS BEEN CHOSEN. YOU WILL BE
  31. 33 [153]"   CONFRONTED WITH SETS OF DOORS. BE-
  32. 34 PRINT"   HIND SOME DOORS WILL BE A DEADLY
  33. 35 [153]"   BEAST. BEHIND OTHERS,WEAPONS TO DE-
  34. 36 PRINT"   FEAT THE BEASTS. TO ENTER A DOOR,
  35. 37 [153]"   YOU ENTER THE # PRINTED ON THE
  36. 39 PRINT"   DOOR. YOU MIGHT NEED COMMANDS LIKE
  37. 40 [153]"   GET,KILL,USE,AND SAY. THERE MAY BE
  38. 41 PRINT"   A NEED FOR A MAGIC WORD. IF YOU
  39. 42 [153]"   MAKE IT TO THE END OF THE MAZE,YOU
  40. 44 PRINT"   WILL BE TOLD THE MAGIC WORD FOR
  41. 46 [153]"   THE NEXT TIME YOU COMMIT A CRIME.
  42. 47 PRINT"   WELL, GOOD LUCK....YOU'LL NEED IT!
  43. 48 [153]:[153]:[153]:[153]:[153]
  44. 49 [153]"               HIT ANY KEY."
  45. 50 [161]B$:[139]B$[178]""[167]50
  46. 54 [153]"LOAD":[151]53280,0:[151]53281,0
  47. 55 [153]:[153]:[153]
  48. 80 [153]"     YOU ARE PLACED IN FRONT OF THE
  49. 90 PRINT"            FIRST SET OF DOORS.
  50. 95 [153]:[153]:[153]:[153]
  51. 100 [153]"      VERIFY(null)USRUSRUSRUSR(null) (null)USRUSRUSRUSR(null) (null)USRUSRUSRUSR(null)  (null)USRUSRUSRUSR(null)"
  52. 110 [153]"      SGN SYS1  VERIFY+ SGN SYS2  VERIFY+ SGN SYS3  VERIFY+ (null)  SYS4   VERIFY(null)"
  53. 120 [153]"      SGN    + SGN    + SGN    + SGN      +"
  54. 130 [153]"      SGN   SYS(null)VERIFY+ SGN   SYS(null)VERIFY+ SGN   SYS(null)VERIFY+ SGN     SYS(null)VERIFY+VERIFY
  55. 140 PRINT"      [180]    [170] [180]    [170] [180]    [170] [205]      [206]"
  56. 150 PRINT"      [180]    [170] [180]    [170] [180]    [170]  [205]    [206] "
  57. 155 PRINT"[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  58. 157 PRINT"[154]"
  59. 160 PRINT:PRINT
  60. 170 PRINT"     THERE ARE THREE REGULAR DOORS,
  61. 180 [153]"           BUT THE FOURTH...
  62. 200 INPUT"ENTER DOOR #";A
  63. 210 IFA=1THENGOSUB1700:GOTO259
  64. 220 IFA=2THENGOSUB1800:GOTO550
  65. 230 IFA=3THENGOSUB1600:GOTO1110
  66. 232 PRINT"[147]YOU ENTER THE STRANGE-SHAPED DOOR"
  67. 233 PRINT"AND BEGIN WHAT APPEARS TO BE A NEVER-
  68. 234 [153]"ENDING TREK. YOU WALK...":[129]R[178]1[164]2000:[130]R
  69. 235 [153]"AND WALK...":[129]R[178]1[164]1000:[130]R
  70. 236 [153]"AND WALK...":[129]R[178]1[164]1000:[130]R
  71. 237 [153]"AND FINALLY REACH A CAVERNOUS
  72. 238 PRINT"ENCLOSURE WITH NO APPARENT EXITS.
  73. 239 [153]"AS YOU NEAR THE CENTER OF THE ROOM,
  74. 240 PRINT"A HUGE IRON GATE DESCENDS,BLOCKING
  75. 241 [153]"THE ENTRANCE. SCANNING THE AREA,YOU
  76. 242 PRINT"REALIZE THET THE ROOM IS GETTING SMAL-
  77. 243 [153]"LER. THERE IS NO ESCAPING AS YOU FEEL
  78. 244 PRINT"THE CEILING BEARING DOWN UPON YOUR
  79. 245 [153]"HEAD. YOU TRY, HOPELESSLY, TO DUCK
  80. 246 PRINT"TO THE FLOOR. BUT THEN THE CEILING'S
  81. 247 [153]"DECENT ALLOWS YOU NO MORE ROOM AS
  82. 248 PRINT"IT MEETS YOUR BODY. YOU STRUGGLE IN
  83. 249 [153]"VAIN AS THE EXTREME PRESSURE OF THE
  84. 250 PRINT"CEILING CRUSHES YOUR BODY TO
  85. 251 [153]"WORTHLESS DUST."
  86. 252 [153]"                 HIT A KEY."
  87. 253 [161]L$:[139]L$[178]""[167]253
  88. 254 [137]1330
  89. 259 [139]A[178]1[167][141]1800:[137]270
  90. 260 [139]A[178]2[167][141]1600:[137]580
  91. 270 [139]A[178]1[167][141]1900
  92. 280 [139]A[178]2[167][141]1600:[137]320
  93. 290 [139]A[178]3[167][141]1700:[137]310
  94. 300 [139]A[178]1[167][141]1800:[137]330
  95. 310 [139]A[179]3[167][141]1900
  96. 320 [141]1800:[137]330
  97. 330 [139]A[178]1[167][141]1700:[137]360
  98. 340 [139]A[178]2[167][141]1900
  99. 350 [139]A[178]3[167][141]3000:[141]1700:[137]380
  100. 360 [139]A[178]1[167][141]1600:[137]400
  101. 370 [139]A[178]2[167][141]1800:[137]410
  102. 380 [139]A[178]1[167][141]1600:[137]460
  103. 390 [139]A[178]2[167][141]1900:[141]1800:[137]790
  104. 400 [141]1600:[141]1600:[141]1900
  105. 410 [139]A[178]1[167]400
  106. 420 [139]A[178]2[167][141]1700:[137]440
  107. 430 [139]A[178]3[167]380
  108. 440 [139]A[178]1[167]460
  109. 450 [139]A[178]2[167][141]1900
  110. 460 [141]1800:[139]A[178]1[167]490
  111. 470 [139]A[178]2[167][141]1900:[141]1700:[137]490
  112. 480 [139]A[178]3[167][141]1700:[137]510
  113. 490 [141]1700:[139]A[178]1[167]1450
  114. 500 [139]A[178]2[167][141]1900:[137]1450
  115. 510 [139]A[178]1[167]490
  116. 520 [139]A[178]2[167][141]1700
  117. 530 [139]A[178]1[167][141]1900
  118. 540 [139]A[178]2[167]1450
  119. 550 [139]A[178]1[167][141]1600:[137]580
  120. 560 [139]A[178]2[167][141]1700:[137]600
  121. 570 [139]A[178]3[167][141]1600:[137]620
  122. 580 [141]1700:[139]A[178]1[167][141]3000:[141]1700:[137]660
  123. 590 [139]A[178]2[167][141]1900
  124. 600 [139]A[178]1[167][141]1800:[137]630
  125. 610 [139]A[178]2[167][141]1900
  126. 620 [141]1600:[141]1900
  127. 630 [139]A[178]1[167][141]1700:[137]680
  128. 640 [139]A[178]2[167][141]1600:[141]1800:[137]960
  129. 650 [139]A[178]3[167][141]1700:[137]700
  130. 660 [139]A[178]1[167][141]1800:[137]740
  131. 670 [139]A[178]2[167][141]1600:[141]1800:[137]830
  132. 680 [139]A[178]1[167][141]1700:[137]660
  133. 690 [139]A[178]2[167][141]1700:[137]720
  134. 700 [139]A[178]1[167][141]1900
  135. 710 [139]A[178]2[167][141]1700:[137]1050
  136. 720 [139]A[178]1[167][141]1600:[141]1800:[137]830
  137. 730 [139]A[178]2[167][141]1800:[137]960
  138. 740 [139]A[178]1[167][141]1900:[141]1800:[137]790
  139. 750 [139]A[178]2[167][141]1900:[137]770
  140. 760 [139]A[178]3[167][141]1900:[141]1800:[137]790
  141. 770 [139]A[178]1[167][141]1900:[141]1800:[137]790
  142. 780 [139]A[178]2[167][141]1800:[137]790
  143. 790 [139]A[178]1[167][141]1700:[137]530
  144. 800 [139]A[178]2[167][141]1900
  145. 805 [139]A[178]3[167]860
  146. 810 [139]A[178]1[167]490
  147. 820 [139]A[178]2[167][141]1700:[137]530
  148. 830 [139]A[178]1[167][141]1700:[137]880
  149. 840 [139]A[178]2[167][141]1700:[137]920
  150. 850 [139]A[178]3[167][141]1900:[141]1600:[141]1900
  151. 860 [141]1900:[141]1700:[139]A[178]1[167][141]1700:[137]530
  152. 870 [139]A[178]2[167][141]1900
  153. 880 [139]A[178]1[167][141]1900:[141]1600:[141]1900
  154. 890 [139]A[178]2[167][141]1900:[141]1600:[141]1700
  155. 900 [139]A[178]1[167][141]1700:[137]530
  156. 910 [139]A[178]2[167][141]1900
  157. 920 [139]A[178]1[167][141]1600:[141]1900:[141]1700:[141]1900
  158. 930 [139]A[178]2[167][141]1900:[141]1800
  159. 940 [139]A[179][177]2[167][141]1900
  160. 950 [137]1450
  161. 960 [139]A[178]1[167][141]1900
  162. 970 [139]A[178]2[167][141]1600:[141]1700:[137]1010
  163. 980 [139]A[178]3[167][141]1700
  164. 990 [139]A[178]1[167][141]1700:[137]1010
  165. 1000 [139]A[178]2[167][141]1900
  166. 1010 [139]A[178]1[167][141]1900
  167. 1020 [139]A[178]2[167][141]1800
  168. 1023 [129]H[178]1[164]500:[130]H
  169. 1030 [139]A[178]1[167][141]1900
  170. 1040 [139]A[177]1[167]1450
  171. 1050 [139]A[178]1[167][141]1900
  172. 1060 [139]A[178]2[167][141]1800
  173. 1070 [139]A[179][177]2[167][141]1900
  174. 1080 [139]A[178]2[167][141]3000:[141]1600:[141]1900:[141]1700
  175. 1090 [139]A[178]1[167]1450
  176. 1100 [139]A[178]2[167][141]1900
  177. 1110 [141]1600:[141]1700:[139]A[178]1[167][141]1600:[141]1900
  178. 1120 [139]A[178]2[167][141]1700
  179. 1130 [139]A[178]1[167][141]3000:[141]1700:[137]1190
  180. 1140 [139]A[178]2[167][141]4000
  181. 1160 [141]1800:[139]A[178]1[167][141]1700:[137]1190
  182. 1170 [139]A[178]2[167][141]1700:[137]1230
  183. 1180 [139]A[178]3[167][141]1800:[137]1280
  184. 1190 [139]A[178]1[167][141]1900:[141]1700:[141]1900
  185. 1200 [139]A[178]2[167][141]1900:[141]1700
  186. 1210 [139]A[178]1[167][141]1700:[137]1090
  187. 1220 [139]A[178]2[167][141]1900
  188. 1230 [139]A[178]1[167][141]1700:[137]1210
  189. 1240 [139]A[178]2[167][141]1800
  190. 1250 [139]A[178]1[167][141]1700:[137]1090
  191. 1260 [139]A[178]2[167][141]1900
  192. 1270 [139]A[178]3[167][141]1600:[141]1900
  193. 1280 [139]A[178]1[167][141]1800:[137]1250
  194. 1290 [139]A[178]2[167][141]1700
  195. 1300 [139]A[178]1[167][141]1800:[137]1250
  196. 1310 [139]A[178]2[167][141]1900
  197. 1320 [139]A[178]3[167]1450
  198. 1330 [153]"LOADI GUESS YOU WERE ONE OF
  199. 1331 PRINT"THOSE 'CURIOUS' PEOPLE. DON'T
  200. 1332 [153]"FORGET: CURIOSITY KILLS THE CAT!":[129]QQ[178]1[164]3000:[130]QQ
  201. 1340 [153]"LOADPOKE"
  202. 1342 [153]"    (null)USRUSRUSR(null) SGN   + + +     USRUSR(null)USRUSR+     SGN (null)
  203. 1343 PRINT"    [180]     [180]   [170] [170] [170]       [170]   [205]   [206]  [221]
  204. 1344 [153]"    SGN USRUSR(null) SGN   + + +       +    (null)AND(null)   (null)
  205. 1345 PRINT"    [180]   [170] [180]   [170] [170] [170]       [170]     [221]
  206. 1346 [153]"    (null)ANDANDAND(null) (null)ANDANDAND(null) + +ANDANDANDANDAND  +     (null)    (null)
  207. 1349 PRINT
  208. 1350 PRINT"[151]                     [175][175][175][175]
  209. 1351 [153]"                    (null)USRUSRUSR(null)(null)CLOSE
  210. 1352 PRINT"                    [180]RIP[170][170]
  211. 1353 [153]"                    SGNUSRUSRUSR++
  212. 1354 PRINT"                    [180]   [170][170]
  213. 1355 [153]"                    (null)ANDANDANDSQR(null)SGN
  214. 1356 PRINT"                   [206]    [206][206]
  215. 1357 [153]"                  (null)    (null)(null)
  216. 1358 PRINT"                 [206]    [206][206]
  217. 1359 [153]"                (null)    (null)(null)
  218. 1360 PRINT"               [206]    [206][206]
  219. 1361 [153]"              (null)USRUSRUSRUSRRIGHT$(null)
  220. 1362 PRINT"              [183][183][183][183][183][183]
  221. 1363 [153]
  222. 1364 [153]"   YOU HAVE BEEN DEALT YOUR PUNISHMENT."
  223. 1365 [137]1560
  224. 1399 [137]1399
  225. 1450 [153]"LOAD":[153]:[153]
  226. 1451 [151]53281,6:[151]53280,6
  227. 1452 [153]"OPENSGN   + (null)USRUSRUSR(null) SGN   +   +    SGN SGN+(null)    SGN  (null)"
  228. 1453 [153]"(null)   (null) SGN   + SGN   +   +    SGN SGN+ (null)   SGN  (null)"
  229. 1454 [153]" (null)AND(null)  SGN   + SGN   +   +    SGN SGN+  (null)  SGN  (null)"
  230. 1455 [153]"  (null)   SGN   + SGN   +   + (null)(null) SGN SGN+   (null) SGN   "
  231. 1456 [153]"  (null)   (null)ANDANDAND(null) (null)ANDANDAND(null)   +(null)  (null)SGN SGN+    (null)SGN  (null)"
  232. 1465 [153]:[153]"SYS                    (null)
  233. 1470 PRINT"             [205]      [221]      [206]
  234. 1475 [153]"              (null)     (null)     (null)
  235. 1480 PRINT"               [205]         [206]
  236. 1485 [153]"                (null) STEP   (null)WAIT (null)
  237. 1490 PRINT"                       [146]
  238. 1495 [153]"          LENLENLENLENLENLEN  (null)   WAITSTEP  LENLENLENLENLEN
  239. 1500 PRINT"[154][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  240. 1501 PRINT"     YOU, NOW AN INNOCENT MAN, WALK "
  241. 1502 PRINT"     OFF INTO THE SUNSET, READY TO"
  242. 1503 PRINT"     FACE ANY NEW ADVENTURES THAT"
  243. 1504 PRINT"     AWAIT YOU ON THE ROAD OF LIFE."
  244. 1505 PRINT"        (THE WORD IS 'PTOOII'.)
  245. 1560 [153]"     WOULD YOU LIKE TO PLAY AGAIN?"
  246. 1570 [161]W$:[139]W$[178]""[167]1570
  247. 1580 [139]W$[178]"Y"[167]24
  248. 1590 [128]
  249. 1600 [153]"LOAD"
  250. 1601 [153]:[153]:[153]:[153]:[153]:[153]:[153]
  251. 1602 [153]"VERIFY                  ANDANDANDANDANDANDAND "
  252. 1604 [153]"                  SGN     +   "
  253. 1606 [153]"                 POKE+VERIFYSGN  SYS1  VERIFY+ "
  254. 1608 [153]"                  SGN     +   "
  255. 1610 [153]"                  SGN    SYS(null)VERIFY+  "
  256. 1612 [153]"                  SGN     +   "
  257. 1614 [153]"                 POKE+VERIFYSGN     + "
  258. 1616 [153]"                  SGN     +  "
  259. 1618 [153]"POKEUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  260. 1619 [153]"CONT"
  261. 1620 [153]:[153]
  262. 1621 [153]"          THERE IS ONE DOOR HERE."
  263. 1622 [153]:[133] "            WHAT NUMBER DOOR";A
  264. 1623 [142]
  265. 1700 [153]"LOAD"
  266. 1702 [153]:[153]:[153]:[153]:[153]:[153]:[153]
  267. 1704 [153]"VERIFY            ANDANDANDANDANDANDAND    ANDANDANDANDANDANDAND"
  268. 1706 [153]"            SGN     +    SGN     +"
  269. 1707 [153]"           POKE+VERIFYSGN  SYS1  VERIFY+   POKE+VERIFYSGNCLOSECLOSESYS2  VERIFY+"
  270. 1708 [153]"            SGN     +    SGN     +"
  271. 1710 [153]"            SGN    SYS(null)VERIFY+    SGN    SYS(null)VERIFY+"
  272. 1712 [153]"            SGN     +    SGN     +"
  273. 1714 [153]"           POKE+VERIFYSGN     +   POKE+VERIFYSGNCLOSECLOSECLOSECLOSECLOSE+"
  274. 1716 [153]"            SGN     +    SGN     +"
  275. 1718 [153]"POKEUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  276. 1720 [153]"CONT"
  277. 1722 [153]:[153]
  278. 1724 [153]"          THERE ARE TWO DOORS HERE."
  279. 1725 [153]:[133]"             WHAT NUMBER DOOR";A
  280. 1730 [142]
  281. 1800 [153]"LOAD"
  282. 1802 [153]:[153]:[153]:[153]:[153]:[153]:[153]
  283. 1804 [153]"VERIFY    ANDANDANDANDANDANDAND     ANDANDANDANDANDANDAND     ANDANDANDANDANDANDAND"
  284. 1806 [153]"    SGN     +     SGN     +     SGN     +"
  285. 1808 [153]"   POKE+VERIFYSGN  SYS1  VERIFY+    POKE+VERIFYSGN  SYS2  VERIFY+    POKE+VERIFYSGN  SYS3  VERIFY+"
  286. 1810 [153]"    SGN     +     SGN     +     SGN     +"
  287. 1812 [153]"    SGN    SYS(null)VERIFY+     SGN    SYS(null)VERIFY+     SGN    SYS(null)VERIFY+   "
  288. 1814 [153]"    SGN     +     SGN     +     SGN     +"
  289. 1816 [153]"   POKE+VERIFYSGN     VERIFY+    POKE+VERIFYSGN     VERIFY+    POKE+VERIFYSGN     VERIFY+"
  290. 1818 [153]"    SGN     +     SGN     +     SGN     +"
  291. 1819 [153]"POKEUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  292. 1820 [153]"CONT"
  293. 1821 [153]
  294. 1822 [153]"       THERE ARE THREE DOORS HERE."
  295. 1824 [133]"          WHAT NUMBER DOOR";A
  296. 1826 [142]
  297. 1900 [153]"LOAD"
  298. 1901 [153]:[153]:[153]:[153]:[153]:[153]
  299. 1902 [153]"        VERIFY          ANDANDANDANDANDANDAND
  300. 1903 PRINT"                  [180]     [170]
  301. 1904 [153]"                 POKE+VERIFYSGN     +
  302. 1905 PRINT"                  [180]     [170]
  303. 1908 [153]"                  SGN     +
  304. 1909 PRINT"                 [151][170][149][180]     [170]
  305. 1910 [153]"                  SGN     +
  306. 1911 PRINT"[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  307. 1916 V=53248
  308. 1917 POKEV+21,16
  309. 1918 POKE2044,13
  310. 1919 FORN=0TO62:READ Q:POKE832+N,Q:NEXT
  311. 1920 POKEV+23,16:POKEV+29,16
  312. 1921 POKEV+8,170
  313. 1922 POKEV+9,120
  314. 1923 DATA 0,1,240,0,3,248,0,7,124,0,15,232
  315. 1924 DATA 2,31,192,1,63,212,2,255,252,1,63,248
  316. 1925 DATA 2,255,192,1,63,224,2,255,241
  317. 1926 DATA 1,63,254,2,255,241,1,63,240,2,127,224
  318. 1927 DATA 0,255,192,1,255,128,3,239,128
  319. 1928 DATA 7,207,128,31,15,224,248,15,240
  320. 1929 DATA 0,1,240,0,3,248,0,7,124,0,15,232
  321. 1930 DATA 2,31,192,1,63,212,2,255,252,1,63,248
  322. 1931 DATA 2,255,192,1,63,224,2,255,241
  323. 1932 DATA 1,63,254,2,255,241,1,63,240,2,127,224
  324. 1933 DATA 0,255,192,1,255,128,3,239,128
  325. 1934 DATA 7,207,128,31,15,224,248,15,240
  326. 1935 FORG=1TO100:NEXTG
  327. 1936 FORM=1TO3
  328. 1937 POKE53280,2:POKE53281,2
  329. 1938 FORD=1TO250:NEXTD
  330. 1939 POKE53280,0:POKE53281,0
  331. 1940 FORD=1TO250:NEXTD
  332. 1941 NEXTM
  333. 1942 RESTORE
  334. 1950 IFX=1THENGOTO2000
  335. 1980 FORF=1TO500:NEXT:POKEV+21,0:PRINT"[147]":GOTO1340
  336. 2000 PRINT:PRINT:PRINT"YOU HAVE THE POWER TO KILL THE BEAST."
  337. 2005 INPUT"          COMMAND";D$
  338. 2010 LETX=0:POKEV+21,0:PRINT"[147]"
  339. 2011 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  340. 2012 PRINT"                [158][205]   [221]   [206]
  341. 2013 [153]"                 (null)  (null)  (null)
  342. 2014 PRINT"                  [205] [221] [206]
  343. 2015 [153]"               LENLENLENPOOF!LENLENLEN
  344. 2016 PRINT"                  [206] [221] [205]
  345. 2017 [153]"                 (null)  (null)  (null)
  346. 2018 PRINT"                [206]   [221]   [205]
  347. 2019 [153]"STOP"
  348. 2020 [129]K[178]1[164]500:[130]:[153]:[153]:[153]"YOU HACK THE BEAST AND IT DISAPPEARS IN
  349. 2021 PRINT"        A PUFF OF DIRTY GRAY SMOKE."
  350. 2022 POKE53281,12:POKE53280,12
  351. 2023 FORG=1TO2000:NEXTG
  352. 2024 POKE53281,0:POKE53280,0
  353. 2025 PRINT"[147]":RETURN
  354. 3000 PRINT"[147]"
  355. 3005 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  356. 3010 PRINT"                [149] [175][175][175][175][175][175][175]
  357. 3015 [153]"                 SGN  SYS WAIT  VERIFY+
  358. 3020 PRINT"                [151][170][149][180] [158][175] [146][175] [149][170]
  359. 3025 [153]"                 SGN  POKE WAIT  VERIFY+
  360. 3030 PRINT"                 [180]  [151] [146]  [149][170]
  361. 3035 [153]"                 SGN  POKE WAIT  VERIFY+
  362. 3040 PRINT"                [151][170][149][180]  [151] [146]  [149][170]
  363. 3045 [153]"                 SGN POKE STEP  VERIFY+
  364. 3050 PRINT"[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  365. 3055 PRINT"[154]":PRINT"         THERE IS A SWORD HERE!"
  366. 3060 INPUT "               COMMAND";K$
  367. 3065 PRINT"        IT'S YOURS, USE IT WELL."
  368. 3070 FORI=1TO1500:NEXTI
  369. 3074 LETX=1
  370. 3075 RETURN
  371. 4000 PRINT"[147]"
  372. 4005 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  373. 4010 PRINT"   [149][207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208] [207][183][208] [151][207][183][208]
  374. 4015 [153]"VERIFY   SGN1+ SGN2+ SGN3+ SGN4+ SGN5+ SGN6+ SGN7+ SGN8+ POKE(null)ANDSQR
  375. 4020 PRINT"[149]   [180] [170] [180] [170] [180] [170] [180] [170] [180] [170] [180] [170] [180] [170] [180] [170]  [151][221]
  376. 4025 [153]"POKEUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  377. 4026 [153]"CONT"
  378. 4030 [153]"  THERE ARE EIGHT DOORS AND A SIGN HERE."
  379. 4035 [133]"              COMMAND";Z$
  380. 4040 [153]"LOAD":[153]"      THE SIGN SAYS: 'SEVEN OF EIGHT"
  381. 4045 [153]"             YOU DARE NOT GO,"
  382. 4050 [153]"      UNLESS THE MAGIC WORD YOU KNOW.'"
  383. 4055 [153]:[153]"   DO YOU WANT TO GUESS THE WORD?(Y/N)"
  384. 4060 [161]K$:[139]K$[178]""[167]4060
  385. 4061 [139]K$[178]"N"[167]5000
  386. 4065 [153]"LOAD":[133]"WHAT IS YOUR GUESS";L$
  387. 4070 [139]L$[179][177]"PTOOII"[167][153]"SORRY, THAT IS WRONG.":[137]5000
  388. 4075 [153]"LOAD":[153]"       MAGICALLY, THE SIGN CHANGES:"
  389. 4080 [153]"        IN THE SYSTEM THERE ARE NINE,"
  390. 4085 [153]"  WHAT IS THE NUMBER OF YOURS AND MINE?"
  391. 5000 [153]:[133]"WHAT DOOR DO YOU WANT";P
  392. 5005 [139]P[178]3[167][137]5100
  393. 5010 [141]1900:[137]1340
  394. 5100 [153]"          CORRECT!!!":[129]O[178]1[164]1000:[130]O
  395. 5120 [142]
  396. 5200 [143]      MIKE FLEISCHNER
  397. 5300 [143]      96 EMERSON ST.
  398. 5400 [143]      SPFLD., MASS. 01118
  399. 5500 [143]      (413) 782-4955
  400.