home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 21 / Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_C.d64 / 0.c64 (.txt) next >
Commodore BASIC  |  2023-02-26  |  13KB  |  400 lines
  1. 1 poke45,052:poke46,66:clr
  2. 3 poke53281,0:poke53280,14:print"[147][155]"chr$(14):gosub2000:goto2500
  3. 4 forq=1to500:next:return
  4. 5 print"[201] can't do that.":goto299
  5. 7 poke53281,0:poke53280,30:goto9
  6. 8 print"[207][203]
  7. 9 [137]299
  8. 10 [137]50
  9. 15 vf[178]vf[170]1:q9[178]1:j$[178]" ":ln[178]0:[153]"tocmd";:ti$[178]"000000"
  10. 20 [161]b$:[139]q9[167][139]ti$[177]"000150"[167][153]"(NULL)ake me up when you're ready.":q9[178]0
  11. 21 [139]b$[178]""[167]20
  12. 30 [139]b$[178][199](20)[167][139]ln[167]ln[178]ln[171]1:[153]"cmdto cmdcmd";:j$[178][200](j$,ln[170]1)
  13. 35 [139]b$[178][199](13)[176]ln[177]99[167]j$[178][202](j$,2):[153]" ":[142]
  14. 37 [139]ln[178]0[167][139]b$[178]" "[167]45
  15. 38 [139]b$[179]"0"[176]b$[177]"z"[167][139]b$[179][177]" "[167]20
  16. 40 j$[178]j$[170]b$:ln[178]ln[170]1:[153]b$"tocmd";
  17. 45 [137]20
  18. 50 [139]l(18)[179][177]201[167][139]l(18)[179][177]h[167]100
  19. 52 [139]gc[178]0[175]l[179][177]3[167]100
  20. 54 gc[178]gc[170]1
  21. 58 [139]gc[179]9[167][139]l[179][177]4[167]65
  22. 60 [153]"chr$iant caught me and took his hen back.":l[178]3:l(18)[178]7:gc[178]0:[137]9
  23. 65 [139]gc[177]5[167][153]"chr$iant is at the bottom of the beanstalk!":[137]100
  24. 70 [139]gc[177]2[167][153]"chr$iant is coming down the beanstalk      after me!"
  25. 100 r$[178]"(NULL)ook":gf[178]l:[153]"(NULL)hat should right$ do?"
  26. 101 [141]15:[139][200](j$,2)[179][177]"in"[167][151]53281,0:[151]53280,30:[153]"list";
  27. 102 q8[178][171]6[172](vf[177]np):l[178]q8[171](q8[178]0)[172]gf:[139]j$[179][177]""[167]r$[178]j$:[137]3500
  28. 104 v$[178][200](r$,2)
  29. 105 v$[178][199]([198]([200](v$,1))[176]128)[170][199]([198]([201](v$,1))[175]127)
  30. 110 [139][195](r$)[167][139][201](r$,1)[178]" "[167]r$[178][200](r$,[195](r$)[171]1):[137]110
  31. 115 [143]
  32. 118 ms$[178]"":n$[178]"":r$[178]r$[170]"  ":v[178]h:[129]q[178]1[164]nv:[139]v$[178]v2$(q)[167]v[178]q:q[178]h
  33. 120 [130]:[129]q[178][195](r$)[171]2[164]1[169][171]1
  34. 125 [139][202](r$,q,1)[179][177]" "[167]130
  35. 128 ms$[178][202](r$,q[170]1):n$[178][200](ms$,2):q[178]0:q9[178][195](ms$)[171]2:ms$[178][202](ms$,1,q9)
  36. 130 [130]:[139][194](sh[170]2)[167]l[178]gf
  37. 131 [139]v[178]h[167][153]"load"r$:[137]170
  38. 132 [139][195](n$)[167]n$[178][199]([198]([200](n$,1))[176]128)[170][199]([198]([201](n$,1))[175]127)
  39. 135 [139]v$[178]"chr$o"[167]200
  40. 140 n[178]0:[129]q[178]1[164]ni
  41. 142 [139]n$[178]n2$(q)[167]n[178]q:[141]3000:n[178]0:[139]j[167]n[178]q:q[178]h
  42. 155 [130]:[153]"load"v$(v)" "n$(n);:[139]lx[178]0[167][139]n[178]0[167][153]ms$;
  43. 158 [141]3000:[153]:[153]:[139]v[178]0[167]170
  44. 160 [145]v[137]300,200,400,500,600,700,900,800,1001,1100,1200,1300,1400,1500,1600
  45. 165 [145]v[171]15[137]1700,1800,1900,1900,1900,400,2300,2400,1900,2500
  46. 170 [153]"right$ don't understand.":[137]10
  47. 200 n[178]0:t$[178]e$(l):[129]q[178]1[164]np:[139]n$[179][177]p2$(q)[167]227:[143]"chr$(NULL)"
  48. 210 [129]k[178]1[164][195](t$)[169]2:[139]q[178][197]([202](t$,k,2))[167]n[178]q:q[178]h:k[178]h
  49. 225 [130]
  50. 227 [130]:[153]"load"v$(v)" "p$(n);:[139]n[178]0[167][153]ms$;
  51. 228 [139]n[178]15[176]n[178]16[167][153]"chr$o "p$(n)"    ";
  52. 229 [153]:[153]
  53. 230 [139]n[178]0[167][139]n$[178][200](p$(l),2)[167][153]"right$'m already at "p$(l)".":[137]9
  54. 231 [139]n[178]0[167][153]"right$ can't go there!":[137]9
  55. 235 [139]n[178]11[167][153]"chr$oing to the (NULL)(NULL)atn(NULL) would be hazardous to my health.":[137]9
  56. 240 [139]n[178]10[167]6000
  57. 245 [139]l[178]3[175]n[178]15[167]n[178]4
  58. 250 [139]l[178]4[175]n[178]16[167]n[178]3
  59. 255 [139]l[178]4[175]n[178]15[167]n[178]14
  60. 260 [139]l[178]14[175]n[178]16[167]n[178]4
  61. 290 l[178]n
  62. 299 n[178]0:n$[178]""
  63. 300 x[178]l:[139]n[178]0[167]317:[143] "(NULL)(NULL)(NULL)(NULL)"
  64. 302 x[178]n[170]200:[139]l(n)[177]0[167][139]l(n)[171]h[167][153]"right$ don't have "n$(n):[137]9
  65. 310 [137]320
  66. 317 [139]n$[179][177]""[167]n$[178]"":[153]"right$ can't find "ms$:[137]9
  67. 318 [153]"right$ am at "p$(l):[139]l[178]6[167]320
  68. 319 [153][163]8)[200]("tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(",[195](p$(l)))
  69. 320 j[178]1:[153]"right$ see:";
  70. 321 [139]n[178]8[167][139]l(9)[178]0[167]l(9)[178]208
  71. 322 [129]q[178]1[164]ni:k[178]l(q)
  72. 323 [139][182](k)[171]x[167]326
  73. 324 [153][163]el)n$(q):j[178]0
  74. 325 [139]x[177]200[167][139]l(x[171]200)[178]h[167][139]l(q)[177]0[167][139]q[179][177]18[167]l(q)[178]h
  75. 326 [130]
  76. 330 [139]j[172]n[167][153][163]el)"(NULL)othing special."
  77. 335 [139]n[167]10
  78. 336 [139]j[167][153][163]el)"(NULL)othing special."
  79. 339 [153]:[153]"right$ can go:";
  80. 345 [129]q[178]1[164][195](e$(l))[169]2:j[178][197]([202](e$(l),q,2))
  81. 350 [153][163]el)p$(j):[130]
  82. 360 [139]l(18)[179][177]h[176]l[179][177]6[167]10
  83. 365 [153]"(NULL)oopsss!!!":[153]"left$en squawked, giant heard her, and"
  84. 370 [153]"he swatted me back to earth!":l(18)[178]7:l[178]3
  85. 375 [129]q[178]1[164]2500:[130]:at[178]1:[137]9
  86. 400 [143] get
  87. 403 [139]l(n)[178]h[167][153]"right$ already have "n$(n)"!":[137]1000
  88. 408 [139]j[175]l(n)[177]0[167]450
  89. 414 [139]j[178]0[167][153]"right$ don't see it here.":[137]299
  90. 416 [139]n[178]20[176]n[178]21[167][153]"(NULL)hat am right$ going to do with "n$(n)"?":[137]9
  91. 418 [139]n[178]15[167][153]"(NULL)ou must be joking!  (NULL)his turkey weighs over a ton!":[137]9
  92. 435 [153]"right$ can't get "n$(n);:[139]n[178]0[167][153]ms$;
  93. 436 [153]".":[153]
  94. 445 [137]9
  95. 450 [139]gp[178]0[167][139]n[178]8[167][153]"(NULL)hat have you got to trade for it?":[137]470
  96. 455 [139]n[178]1[175]l(2)[178]0[167][153]"atnha!  atn trapdoor.":l(2)[178][171]2
  97. 460 l(n)[178]h:[137]9
  98. 470 [141]15:[139][200](j$,2)[179][177]"eg"[167][153]"right$ can't trade rifle for that.":[137]9
  99. 472 [139][200](j$,2)[179][177]"eg"[167][153]"right$ can't trade rifle for that.":[137]9
  100. 475 [139]l(17)[179][177]h[167][153]"right$ don't have gold egg.":[137]9
  101. 480 [153]"right$ traded the gold egg for the rifle.":gp[178]1:l(17)[178]18
  102. 490 l(n)[178]h:[137]9
  103. 500 [143] put
  104. 505 [139]l(n)[178]h[167]510
  105. 506 [153]"right$ don't have "n$(n);:[139]n[178]0[167][153]ms$;
  106. 507 [153]".":[137]1000
  107. 510 [153]"(NULL)here (one word please)?":[141]15:j$[178][200](j$,2)
  108. 512 [139]n[178]18[175]j$[178]"ru"[167]2435:use cover routine
  109. 515 [139]l[179][177]2[167][139]l[179][177]13[167][153]"(NULL)hat won't do anything.":[137]9
  110. 517 [139]l[178]13[167]530
  111. 520 [139]n[178]10[167][139]j$[178]"tr"[176]j$[178]"ke"[167]l(n)[178]203:[137]592
  112. 525 [139]n[178]16[167][139]j$[178]"tr"[176]j$[178]"ke"[167]591
  113. 529 [153]"(NULL)hat won't do anything.":[137]9
  114. 530 [139]n[178]16[167][139]j$[178]"do"[176]j$[178]"ke"[167]593
  115. 590 [153]"(NULL)hat won't do anything.":[137]9
  116. 591 [153]"(NULL)asskey doesn't fit this keyhole.":[137]9
  117. 592 [153]"chr$unpowder is in keyhole.":[137]9
  118. 593 e$(13)[178]"100717":n$(22)[178]"str$(NULL)(NULL)(NULL) to henhouse- opened":d1[178]1:[137]9
  119. 600 [143] kill
  120. 605 [139]j[178]0[167][153]"right$ don't see it here.":[137]9
  121. 610 [139]n[178]18[167][153]"atnre you kidding, this hen is worth a    sheik's ransom!":[137]9
  122. 620 [139]n[179][177]15[167][153]"(NULL)hat won't help.":[137]9
  123. 630 [139]l(8)[179][177]h[167][153]"right$'m only one person, not an army!":[137]9
  124. 640 [153]"right$ would need a cannon for that!":[137]9
  125. 700 [143] shoot
  126. 705 [139]j[178]0[167][153]"right$ don't see it here.":[137]9
  127. 707 [139]l(8)[179][177]h[167][153]"right$ don't have anything to shoot with.":[137]9
  128. 710 [139]n[178]18[167][153]"atnre you kidding, this hen is worth a    sheik's ransom!":[137]9
  129. 712 [139]n[178]2[176]n[178]3[176]n[178]10[167]750
  130. 720 [139]n[179][177]15[167][153]"(NULL)hat won't help.":[137]9
  131. 740 [153]"right$ need a canon!":[137]9
  132. 750 [139]sk[179].[167][153]"(NULL)rapdoor already blown open.":[137]9
  133. 755 sk[178]1:[139]l(10)[179][177]203[167]770
  134. 760 [153]"(NULL)atn-peek(NULL)(NULL)(NULL)":[153]"(NULL)hat blew the lock open!":sk[178][171]1:e$(2)[178]"0301":[137]9
  135. 770 [153]"(NULL)ifle is not powerful enough to blow    open the trapdoor.":[137]9
  136. 800 [143] chop
  137. 801 [139]j[178]0[175]n$[179][177]"peeke"[167][153]"right$ don't see it here.":[137]9
  138. 805 [153]"(NULL)ith what?":[141]15:[139][200](j$,2)[179][177]"ax"[167][153]"(NULL)hat won't work.":[137]9
  139. 810 [139]l(4)[179][177]h[167][153]"right$ don't have the ax.":[137]9
  140. 812 [139]n[179][177]13[167]840
  141. 815 [139]tm[167][153]"(NULL)ne tree over the moat is enough.":[137]9
  142. 820 tm[178]1:[153]"(NULL)right$(NULL) - peekval(NULL)":e$(5)[178]"141112":[137]9
  143. 840 [139]n$[179][177]"peeke"[167][153]"(NULL)hat didn't do anything.":[137]9
  144. 845 [139]l[179][177]3[167][153]"right$ can't chop the beanstalk from here!":[137]9
  145. 850 [139]l(18)[179][177]h[175]l(18)[179][177]201[167][153]"(NULL)he idea is to get the hen!!!":[137]9
  146. 855 [153]"***len(NULL)atn(NULL)left$***":[129]q[178]1[164]3500:[130]:[153]"(NULL)he evil giant was killed in the fall.
  147. 860 print"[206]o longer will he terrorize             your village."
  148. 865 print"[217]our hen will make you very rich!"
  149. 868 forq=1to2000:next:end
  150. 900 rem unlock
  151. 910 ifl=2then990
  152. 915 ifl<>13thenprint"[206]othing here to unlock.":goto9
  153. 920 ifn<>22andn<>23thenprint"[201] can't unlock that.":goto9
  154. 925 ifl(16)<>hthenprint"[201] need a key.":goto9
  155. 930 e$(13)="101707":n$(22)="[196][207][207][210] to henhouse- open":d1=1:goto9
  156. 990 ifn<>2andn<>3thenprint"[201] can't unlock that.":goto9
  157. 991 ifl(16)=hthenprint"[208]asskey doesn't fit this lock.":goto9
  158. 992 print"[201] can't unlock the trapdoor.":goto9
  159. 995 goto9
  160. 1000 n$="":rem inventory
  161. 1001 rem do not move this line!!!
  162. 1055 j=1:print"[201] have:":print:forq=1toni:ifl(q)=hthenprintn$(q):j=0
  163. 1060 next:ifjthenprint"[206]othing.
  164. 1099 [137]10
  165. 1100 [143] swim
  166. 1110 [139]n[179][177]12[167][153]"right$ can't swim there.":[137]9
  167. 1120 [153]"(NULL)wimming in the moat would be hazardous to my health.":[137]9
  168. 1200 [143] hit
  169. 1210 [139]j[178]0[167][153]"right$ don't see it here.":[137]9
  170. 1220 [139]n[178]15[167][153]"right$'m not going to hit this bozo!":[137]9
  171. 1250 [153]"(NULL)hat had no effect.":[137]9
  172. 1300 [143] open
  173. 1305 [139]j[178]0[167][153]"right$ don't see it here.":[137]9
  174. 1310 [139]n[178]2[167]1350
  175. 1315 [139]n[179][177]22[167][153]"right$ can't open that.":[137]9
  176. 1320 [139]d1[167][153]"str$oor to henhouse is already opened.":[137]9
  177. 1325 [153]"right$ can't, the door is locked.":[137]9
  178. 1350 [139]sk[179]0[167][153]"(NULL)rapdoor is already opened.":[137]9
  179. 1360 [153]"right$ can't, the trapdoor is locked.":[137]9
  180. 1390 [137]5
  181. 1400 [143] drop
  182. 1410 [139]l(n)[171]h[167][153]"right$ don't have "n$(n):[137]9
  183. 1420 [139]n[178]18[176]n[178]1[167][153]"(NULL)ight need "n$(n)" later.":[137]9
  184. 1499 l(n)[178]l:[137]8
  185. 1500 [143] water
  186. 1505 [139]j[178]0[167][153]"right$ don't see it here.":[137]9
  187. 1510 [139]n[178]7[175]l(7)[179][177][171]3[167][153]"right$ can't water the seeds yet.":[137]9
  188. 1520 [139]n[179][177]7[167][153]"(NULL)othing here to water.":[137]9
  189. 1530 [139]l(6)[178]0[167][153]"(NULL)o more water in pitcher.":[137]9
  190. 1540 [139]l(5)[179][177]h[167][153]"right$ don't have anything to water with.":[137]9
  191. 1550 [139]l[179][177]3[167][153]"(NULL)othing here to water.":[137]9
  192. 1555 [153]"load"
  193. 1560 x[178]15:l(7)[178]0:e$(3)[178]"02080415":l(6)[178]0:bs[178]1
  194. 1561 [153][163]x)"(NULL)(NULL)(NULL)! atn":[141]4
  195. 1562 [153][163]x)" giant":[141]4
  196. 1563 [153][163]x)"bean-":[141]4
  197. 1564 [153][163]x)" stalk":[141]4
  198. 1565 [153][163]x)"grew up":[141]4
  199. 1566 [153][163]x)" into":[141]4
  200. 1567 [153][163]x)"the sky":[141]4
  201. 1568 [153][163]x)"  as":[141]4
  202. 1569 [153][163]x)" soon":[141]4
  203. 1570 [153][163]x)"  as":[141]4
  204. 1571 [153][163]x)"  right$":[141]4
  205. 1572 [153][163]x)"started":[141]4
  206. 1573 [153][163]x)"  to":[141]4
  207. 1574 [153][163]x)" water":[141]4
  208. 1575 [153][163]x)"seeds.":[141]4
  209. 1576 [153][163]x)"(NULL)he":[141]4
  210. 1577 [153][163]x)"bean-":[141]4
  211. 1578 [153][163]x)" stalk":[141]4
  212. 1579 [153][163]x)"reaches":[141]4
  213. 1580 [153][163]x)" past":[141]4
  214. 1581 [153][163]x)" the":[141]4
  215. 1582 [153][163]x)"clouds":[141]4
  216. 1583 [153][163]x)"  to ":[141]4
  217. 1584 [153][163]x)" the":[141]4
  218. 1585 [153][163]x)" home":[141]4
  219. 1586 [153][163]x)" of":[141]4
  220. 1587 [153][163]x)"the":[141]4
  221. 1588 [153][163]x)"evil":[141]4
  222. 1589 [153][163]x)" giant.":[141]4
  223. 1590 [153][163]x)"(NULL)here you":[141]4
  224. 1591 [153][163]x)"will find":[141]4
  225. 1592 [153][163]x)"the hen":[141]4
  226. 1593 [153][163]x)"that lays":[141]4
  227. 1594 [153][163]x)"gold eggs.":[141]4
  228. 1599 [137]9
  229. 1600 [143] plant
  230. 1605 [139]j[178]0[167][153]"right$ don't see it here.":[137]9
  231. 1610 [139]l[179][177]3[167][153]"right$ can't plant anything here.":[137]9
  232. 1620 [139]n[179][177]7[167][153]"right$ can't plant "n$(n)".":[137]9
  233. 1630 [139]l(n)[178][171]3[167][153]"(NULL)he seeds are already planted.":[137]9
  234. 1640 [153]"(NULL)(NULL), seeds are planted.":l(7)[178][171]3:n$(7)[178]"(NULL)valvalstr$(NULL)- planted":[137]9
  235. 1700 [143] climb
  236. 1701 [139]n$[178]"str$o"[167]n[178]16
  237. 1702 [139]n$[178]"(NULL)p"[167]n[178]15
  238. 1703 [139]l[178]3[175]n[178]15[167]l[178]4:[137]9
  239. 1704 [139]l[178]4[175]n[178]16[167]l[178]3:[137]9
  240. 1705 [139]l[178]4[175]n[178]15[167]l[178]14:[137]9
  241. 1706 [139]l[178]14[175]n[178]16[167]l[178]4:[137]9
  242. 1710 [139]n$[179][177]"peeke"[167][153]"right$ can't climb "ms$".":[137]9
  243. 1720 [139]bs[178]0[167][153]"(NULL)here's no beanstalk!":[137]9
  244. 1730 [139]l[178]3[167]l[178]4:[137]9
  245. 1732 [139]l[178]5[167]l[178]14:[137]9
  246. 1734 [139]l[178]14[167]l[178]4:[137]9
  247. 1736 [139]l[178]4[167]l[178]14:[137]9
  248. 1740 [153]"right$ can't climb the beanstalk from here.":[137]9
  249. 1799 [153]"(NULL)hat didn't work.":[137]9
  250. 1800 [143] cross
  251. 1810 [139]n[179][177]12[175]n[179][177]27[167][153]"right$ can't cross that.":[137]9
  252. 1820 [139]tm[178]0[167][153]"(NULL)ot a good idea to cross the moat with":[137]1890
  253. 1830 [153]"right$ crossed over on the tree."
  254. 1840 [139]l[178]6[167]l[178]5:[137]9
  255. 1850 [139]l[178]5[167]l[178]6:[137]9
  256. 1890 [153]"all of those hungry alligators!":[137]9
  257. 1900 [143] buy/purchase/swap
  258. 1910 [137]400:use [161] routine
  259. 2000 [134]p$(50),e$(50),n$(100),l(100),v$(50),p(7):np[178]17:ni[178]30:nv[178]25:el[178]11:ge[178]458
  260. 2001 [134]n2$(100),v2$(50),p2$(50),m$(45)
  261. 2003 t[178]9:[153]:h[178]199:hw[178]198:l[178]2
  262. 2004 [141]4000
  263. 2020 i$[178]"          ":t1$[178]"                              ":[153]
  264. 2030 [129]a[178]1[164]np:[135]a,p$(a),p2$(a),e$(a):[130]:[135]a
  265. 2060 [129]a[178]1[164]ni:[135]a,n$(a),n2$(a),l(a):[130]:[135]a
  266. 2065 [153]:[153]
  267. 2070 [129]q[178]1[164]nv:[135]v$(q):v2$(q)[178][200](v$(q),2):[130]
  268. 2080 [129]q[178]1[164]37:[135]m$(q):[130]
  269. 2100 ge[178]h[170]ge:yu$[178]" you"
  270. 2110 [139][194](sh[170]2)[171]h[167][151]sh[170]2,[171]h[172]([194](ge)[179][177]0)
  271. 2120 [141]4500
  272. 2199 [153]"load":[142]
  273. 2300 [143] help
  274. 2305 [139]l[178]2[175]sk[167][153]"right$ need an explosive to help me shoot    open the lock.":[137]9
  275. 2310 [139]l[178]5[175]tm[178]0[167][153]"right$ need something over the moat.":[137]9
  276. 2315 [139]l[178]3[175]at[167]at[178]0:[137]2391
  277. 2390 [153]"right$ can't think of anything now.":[137]9
  278. 2391 [153]"right$ need to use something to keep that    hen quiet!":[137]9
  279. 2400 [143] cover
  280. 2405 [139]j[178]0[167][153]"right$ don't see it here.":[137]9
  281. 2420 [153]"(NULL)ith what (one word please)?":[141]15
  282. 2430 [139]n[179][177]18[176][200](j$,2)[179][177]"ru"[167][153]"(NULL)hat won't do anything.":[137]9
  283. 2435 [139]l(1)[179][177]h[167][153]"right$ don't have the rug.":[137]9
  284. 2440 [153]"right$ covered the hen with the rug.":l(18)[178]201:[137]9
  285. 2500 [143] verbs
  286. 2510 [153]"(NULL)ou may use the following verbs:
  287. 2520 print"[200]elp    [214]erbs   [204]ook    [199]o      [199]et
  288. 2530 [153]"(NULL)ut     (NULL)ill    (NULL)hoot   (NULL)nlock  lenhop
  289. 2540 print"[211]wim    [200]it     [207]pen    [196]rop    [215]ater
  290. 2550 [153]"(NULL)lant   lenlimb   lenross   peekuy     (NULL)wap
  291. 2560 print"[201]nventory       [212]rade   [208]urchase
  292. 2570 [153]"(NULL)ake    lenover
  293. 2590 ifu%then10
  294. 2592 u%=1:goto9
  295. 3000 j=0:k=n:forqe=1to7:k=abs(l(k)):ifk>200thenk=k-200:next:return
  296. 3005 ifk=lork=hthenj=1
  297. 3010 qe=h:next:return
  298. 3410 l(n)=h:goto8
  299. 3500 y$=" "+j$+" ":forq=1tolen(y$)
  300. 3510 ifmid$(y$,q,4)=yu$thenprint"[147]"y$"too!":j=q:q=9e9:next:l=gf:goto3550
  301. 3520 next:goto104
  302. 3550 ifmid$(y$,j,6)=" your "thenprint"[147]"left$(y$,j+5)"own "mid$(y$,j+6)"[157]!":goto10
  303. 3560 l=gf:print"[147]"y$"too!":goto10
  304. 4000 print"[147]         [202]ack and the [194]eanstalk[145]tm"
  305. 4005 print"         [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  306. 4010 [153]"         lenopyright (c) 1983 by:
  307. 4020 print"             [194]ruce [210]obinson
  308. 4050 [153]"          atnll rights reserved.
  309. 4060 print"             [196]istributed by:
  310. 4070 [153]"      (NULL)ictory (NULL)oftware lenorporation
  311. 4080 print"               [208]aoli, [208][193]
  312. 4100 [153]"  chr$et the hen that lays gold eggs and
  313. 4110 print"         defeat the evil giant.
  314. 4120 [142]
  315. 4500 [153]"             (hit any key)
  316. 4510 poke198,0:wait198,1:print"[147]":poke198,0
  317. 4999 return
  318. 6000 print"[147][198]ind your way through the underground
  319. 6010 o[178][168].:a[178]2:b[178]3:c[178]6:d[178]7:e[178]4:f[178]9
  320. 6020 [153]"(NULL)atnpeek(NULL)(NULL)right$(NULL)(NULL)left$.  (NULL)he exit for the lenatn(NULL)(NULL)(NULL)val is
  321. 6030 print"located on the [206][207][210][212][200][215][197][211][212] end of the
  322. 6040 [153]"labyrinth, and the exit for the left$val(NULL)
  323. 6050 print"[200][207][213][211][197] is located on the [211][207][213][212][200][197][193][211][212] end
  324. 6060 [153]"of the labyrinth.
  325. 6070 print"[208]ress [206],[197],[215],[211] to move.  [212]hese are your
  326. 6080 [153]"only controls until you get out!
  327. 6090 a$=""
  328. 6095 b$=""
  329. 6100 printa$:printb$"[157][157][215][146][157]e[157]s[157]t[211][146]outh";
  330. 6110 print"[145][145]t[145][157]s[145][157]a[145][157][197][146][145][145][145][157][157][157][157][157][157][157][157][206][146]orth"
  331. 6120 print"[158]"
  332. 6200 ifl=6thenx=4:y=3:goto6300:remgoto6700
  333. 6210 x=22:y=35:remgoto6900
  334. 6300 yp=y+a:ym=y-a
  335. 6310 printa$:fork=ymtoyp:printb$mid$(m$(k),x-b,d):next
  336. 6500 poke198,0:wait198,1:getd$:printa$
  337. 6505 ifd$="n"then6600
  338. 6510 ifd$="e"then6700
  339. 6515 ifd$="s"then6800
  340. 6520 ifd$="w"then6900
  341. 6530 goto6500
  342. 6600 ifmid$(m$(y-a),x,1)<>" "then6500:move north
  343. 6606 xm=x-b
  344. 6610 forj=ytoy-estepo:printa$:fork=j-atoj+a:printb$mid$(m$(k),xm,d):next:next
  345. 6630 y=y-e:goto7000
  346. 6700 ifmid$(m$(y),x+b,1)<>" "then6500:move west
  347. 6706 yp=y+a:ym=y-a
  348. 6710 forj=x-btox+b:printa$:fork=ymtoyp:printb$mid$(m$(k),j,d):next:next
  349. 6730 x=x+c:goto7000
  350. 6800 ifmid$(m$(y+a),x,1)<>" "then6500:rem move south
  351. 6806 xm=x-b
  352. 6810 forj=y-atoy+a:printa$:fork=jtoj+e:printb$mid$(m$(k),xm,d):next:next
  353. 6830 y=y+e:goto7000
  354. 6900 ifmid$(m$(y),x-b,1)<>" "then6500:rem move west
  355. 6906 yp=y+a:ym=y-a
  356. 6910 forj=x-btox-fstepo:printa$:fork=ymtoyp:printb$mid$(m$(k),j,d):next:next
  357. 6930 x=x-c
  358. 7000 ifx=4andy=3thenl=6:print"[155]":goto9
  359. 7010 ifx=22andy=35thenl=13:print"[155]":goto9
  360. 7020 goto6500
  361. 10000 rem stored as follows: rm #,"rm name","1st 2 letters","exits"
  362. 10001 data1,"[196]amp [194][193][211][197][205][197][206][212]","[194]a","02"
  363. 10002 data2,"[200][207][213][211][197] with thatched roof","[200]o","03"
  364. 10003 data3,"[204]arge [217][193][210][196]","[217]a","0208"
  365. 10004 data4,"[199]iant [194][197][193][206][211][212][193][204][203]","[194]e","03141516"
  366. 10005 data5,"[197][196][199][197] of [205]oat","[197]d","1411"
  367. 10006 data6,"[207]minous [195][193][211][212][204][197]","[195]a","111012"
  368. 10007 data7,"[200][197][206] [200]ouse","[200]e","13"
  369. 10008 data8,"[212][207][215][206]","[212]o","0309"
  370. 10009 data9,"[199][213][206][211][205][201][212][200] [211]hop","[199]u","08"
  371. 10010 data10,"[213]nderground [204][193][194][217][210][201][206][212][200]","[204]a","0613"
  372. 10011 data11,"[205][207][193][212]","[205]o","0506"
  373. 10012 data12,"[212][210][197][197] over [205]oat","[212]r","1406"
  374. 10013 data13,"[207][213][212][211][201][196][197] of hen house","[207]u","1017"
  375. 10014 data14,"[212][207][208] of [194]eanstalk","[212]o","040516"
  376. 10015 data15,"[213][208]","[213]p",""
  377. 10016 data16,"[196][207][215][206]","[196]o",""
  378. 10017 data17,"[211]ecret [208][193][211][211][193][199][197][215][193][217] to [195]astle","[208]a","06"
  379. 10199 data0:rem indicates end of room data
  380. 12000 rem stored as: item#, item name, 1st 2 ltrs,location (<0 if can't get it!)
  381. 12001 data1,"[215]ool [210][213][199]","[210]u",2
  382. 12002 data2,"[211]turdy [212][210][193][208][196][207][207][210]","[212]r",0
  383. 12003 data3,"[203][197][217][200][207][204][197] in [212]rapdoor","[203]e",-202
  384. 12004 data4,"[193][216]","[193]x",1
  385. 12005 data5,"[208]ewter [208][201][212][195][200][197][210]","[208]i",2
  386. 12006 data6,"[211]pring [215][193][212][197][210]","[215]a",-205
  387. 12007 data7,"[211]eeds","[211]e",8
  388. 12008 data8,"[210]ifle","[210]i",9
  389. 12009 data9,"[194]ullets","[194]u",0
  390. 12010 data10,"[199]unpowder","[199]u",09
  391. 12011 data11,"[204]arge [199][210][197][197][206] [204]eaves","[199]r",-4
  392. 12012 data12,"[205]oat","[205]o",-5
  393. 12013 data13,"[212]all [212][210][197][197][211]","[212]r",-226
  394. 12014 data14,"[200]ungry [193][204][204][201][199][193][212][207][210][211]","[193]l",-212
  395. 12015 data15,"[211]leeping [199][201][193][206][212]","[199]i",-6
  396. 12016 data16,"[208]asskey","[208]a",215
  397. 65287 (NULL)(NULL)(NULL)(NULL)(NULL)sgn(NULL)(NULL)d valchr$chr$","valg",22?
  398. 12018 [131]18,"(NULL)agic left$val(NULL)","left$e",7
  399. 12019 [131]1
  400. [199]
  401.