home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / hostage (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  13.7 KB  |  180 lines
  1. 1 print""chr$(8):poke53280,6:poke53281,6:print"[147]";:dimvt$(24):vt$(0)="":fort=1to24:vt$(t)=vt$(t-1)+"":next:bv=1:gosub4280:gosub3820
  2. 100 ifbv<>1thendimvt$(24):vt$(0)="":fort=1to24:vt$(t)=vt$(t-1)+"":next:bv=1
  3. 105 gosub3160:goto195
  4. 150 print"[147][200]ostage!                by [193]llan [208]orter
  5. 160 [153]"--------------left$)elp (NULL)ption-------------":[153]"(NULL))orth  val)ast  (NULL))p  asc)ree  (NULL))pen  (NULL))ook":[153]"(NULL))outh  (NULL))est  str$)own  atn)ttack  (NULL))uit":[153]"---------------------------------------":[142]
  6. 195 [141]150
  7. 200 t1[178]t1[171][181](([187](.)[172]1.25)[170](le[171].5)):[151]53280,6:[151]53281,6:[151]646,1:[137]246
  8. 210 [153]"sys";n$;"--> time left:";[181](t1);"cmd minutes.":[153]"(NULL)ou have";ch%;"cmd hit points.":[139]mk%[179][177]0[167][153]"(NULL)ou have killed";
  9. 235 [139]mk%[179][177]0[167][153]mk%"cmd terrorist";:[139]mk%[177]1[167][153]"s";
  10. 236 [139]mk%[179][177]0[167][153]".
  11. 245 print"":return
  12. 246 print:gosub210
  13. 270 gosub780:ifr(ro%,7)=10thenprint"[217]ou can see a dead terrorist here.
  14. 290 [139]mr%[179][177]1[175]mk%[179]5[167][141]3000
  15. 300 [139]mr%[178]1[167][141]2940
  16. 310 [139]r(ro%,8)[178]1[167][153]"(NULL)our friend is tied to a chair.
  17. 320 iffr%=1thenprint"[217]our friend, the banker, is here.
  18. 340 :
  19. 350 [153]"-->";:[151]198,0:[146]198,1:[161]co$:co$[178][199]([198](co$)[171]32[172](co$[177]"(NULL)")):[141]5000:[139]co$[178]"l"[167]270
  20. 370 [139]co$[178]"q"[167]5300
  21. 380 [139]co$[178]"n"[175]r(ro%,1)[178]0[167]3120
  22. 400 [139]co$[178]"s"[175]r(ro%,2)[178]0[167]3120
  23. 420 [139]co$[178]"e"[175]r(ro%,3)[178]0[167]3120
  24. 440 [139]co$[178]"w"[175]r(ro%,4)[178]0[167]3120
  25. 460 [139]co$[178]"u"[175]r(ro%,5)[178]0[167]3120
  26. 480 [139]co$[178]"d"[175]r(ro%,6)[178]0[167]3120
  27. 500 [139]co$[178]"f"[167][141]3610
  28. 510 [139]co$[178]"a"[175]mr%[179][177]1[167][153]"(NULL)here is nothing here to attack.
  29. 530 ifco$="a"andmr%=1thengosub2860
  30. 550 ifco$="o"andro%<>10thenprint"[212]here is nothing to open here.
  31. 570 [139]co$[178]"o"[175]ro%[178]10[167][141]3760
  32. 590 [139]co$[178]"n"[167]ro%[178]r(ro%,1)
  33. 600 [139]co$[178]"s"[167]ro%[178]r(ro%,2)
  34. 610 [139]co$[178]"e"[167]ro%[178]r(ro%,3)
  35. 620 [139]co$[178]"w"[167]ro%[178]r(ro%,4)
  36. 630 [139]co$[178]"u"[167]ro%[178]r(ro%,5)
  37. 640 [139]co$[178]"d"[167]ro%[178]r(ro%,6)
  38. 641 [139]co$[178]"h"[167][141]160:[141]210:[137]340
  39. 645 qc[178]0:[129]qd[178]1[164]12:[139][202]("nsewudoafqlh",qd,1)[178]co$[167]qc[178]qd
  40. 646 [130]:[139]qc[178]0[167][153]"(NULL)ry again.  (valnter 'left$' for help)":[137]350
  41. 650 [139]mr%[178]1[167][141]3670
  42. 690 [139]ro%[178][171]99[175]fr%[178]1[167][153]:[153]"(NULL)ell, at least you rescued the banker.
  43. 693 ifro%=-99andfr%=1thenprint"[217]ou did leave "5-mk%" terrorists alive.":print:goto4170
  44. 695 ifro%=-99thenprint:print"[217]our fellow officers are disappointed
  45. 696 [139]ro%[178][171]99[167][153]"that you gave up.":[153]:[137]4170
  46. 700 [139]ch%[179]1[167][153]:[153]:[153]n$;" has died.":[137]4170
  47. 710 [139]t1[177]0[167][137]720
  48. 711 [153]:[153]"(NULL)he house and all of its occupants":[153]"are consumed in a fiery, earth-         shaking explosion.":[137]4170
  49. 720 [139]r(ro%,7)[179][177][171]1[167][137]730
  50. 721 [153]:[153]"(NULL)ou activated a tripwire bomb!":[153]:[153]"atn searing white light is the last       thing you remember.":[137]4170
  51. 730 [139]mk%[178]5[175]fr%[178]1[175]ro%[178]1[167]4080
  52. 735 [139]co$[178]"a"[176]co$[178]"f"[167]350
  53. 740 [137]200
  54. 780 [139]ro%[178]0[167][142]
  55. 786 [145][181](ro%[173]8[170].9)[137]790,792,794
  56. 790 [145]ro%[141]820,910,990,1080,1170,1250,1380,1480:[142]
  57. 792 [145]ro%[171]8[141]1580,1670,1750,1840,1930,1990,2080,2150:[142]
  58. 794 [145]ro%[171]16[141]2250,2350,2410,2490,2580,2680,2750:[142]
  59. 820 [153]"(NULL)ou are standing on the front sidewalk":[153]"of a beautiful suburban home.  right$t is so":[153]"quiet that all you can hear are the":[153]"police radios in the street to the":[153]"south.  (NULL)he front door is to the north,":[153]"blasted open by the (NULL)(NULL)atn(NULL) team.  (NULL)here
  60. 880 print"is a thorn hedge on both sides on the   sidewalk.":print:print"[197][216][201][212][211]--[206]/[211]":return
  61. 910 print"[217]ou are in the foyer of an elegant":print"home.  [212]he floor and walls are scorched":print"from the blast that opened the front":print"door.  [206]o sounds come from inside.":print:print"[197][216][201][212][211]--[206]/[211]/[197]/[215]":return
  62. 990 print"[212]he garage is empty but it looks like":print"at least three cars could park here.":print"[201]t alsolooks as if the people who live":print"here never do any yard or handy work of":print"their own.  [212]he garage door is closed.":print:print"[197][216][201][212]--[197]":return
  63. 1080 print"[212]he dining room is well lighted by a":print"row of windows to the south and a large":print"chandelier over a beautiful dark wooden":print"dining table.  [197]ight chairs surround":print"the table, which has a centerpiece of   fresh flowers.":print:print"[197][216][201][212][211]--[206]/[215]":return
  64. 1170 printn$;", you find yourself in a":print"large, dark closet that runs the length":print"of the west wall of the game room.  [212]he":print"closet is full of games, toys, and      other recreational devices.":print:print"[197][216][201][212]--[197]":return
  65. 1250 print"[217]ou are in a large, underground room":print"that has been converted to a game room":print"with great attention to detail and":print"luxury.  [212]here is a row of five [212][214]'s":print"mounted in the south wall, a billiards":print"table against the east wall and a ping
  66. 1310 [153]"pong table near the center of the room.":[153]"(NULL)n the table, you can see a timer":[153]"connected to a battery and some plastic explosives.":[153]:[153]"val(NULL)right$(NULL)(NULL)--(NULL)/(NULL)":[142]
  67. 1380 [153]"(NULL)ou are in the west end of the living":[153]"room.  (NULL)ou feel dwarfed, ";n$;",":[153]"by the huge fireplace against the west":[153]"wall.  (NULL)o the north you can see an open":[153]"glass door leading out to a sunny":[153]"patio.  (NULL)here are many green plants in
  68. 1430 print"the room and there is a concert piano   to the south.":print:print"[197][216][201][212][211]--[206]/[197]":return
  69. 1480 print"[217]ou have entered the east end of the":print"living room.  [201]t is a large room with a":print"vaulted ceiling.  [200]eavy wood beams run":print"up to the peak.  [198]our large white":print"couches form a square.  [207]il paintings":print"depicting pastoral scenes are hanging
  70. 1530 [153]"on the walls.  atn spiral staircase leads":[153]"up to the second floor.":[153]:[153]"val(NULL)right$(NULL)(NULL)--(NULL)/val/(NULL)/(NULL)":[142]
  71. 1580 [153]"(NULL)ou are in the kitchen where you find":[153]"a woman lying face down on the":[153]"tile floor, her white uniform bloodied":[153]"and torn.  (NULL)here is an island in the":[153]"center of the room with a chopping":[153]"block on top of it.  (NULL)ater is still
  72. 1630 print"running from the faucet in the sink.":print:print"[197][216][201][212][211]--[206]/[211]/[197]/[215]":return
  73. 1670 printn$;", you find yourself in a":print"large, well-stocked pantry.  [212]he smell":print"of spices is very strong.":ifr(10,3)=13thenprint"[193] door is open to the east showing you
  74. 1695 [139]r(10,3)[178]13[167][153]"a stairway leading down.":[153]:[153]"val(NULL)right$(NULL)(NULL)--val/(NULL)":[137]1730
  75. 1700 [153]"atn glimmer of light seems to peek out    from the east wall.":[153]:[153]"val(NULL)right$(NULL)--(NULL)
  76. 1730 return
  77. 1750 print"[217]ou are standing on a pleasant patio":print"with red tiles and comfortable yard":print"furniture.  [204]arge potted plants are on":print"the outer edges of the patio, which is":print"surrounded by a thick hedge with an     opening to the east.":print:print"[197][216][201][212][211]--[211]/[197]":return
  78. 1840 printn$;", you find yourself in a":print"small landscaped garden with a circular":print"walkway.  [204]ying at the east end of the":print"walkway is the bloody form of a man":print"dressed like a gardener.  [200]e is holding":print"a small seedling in one hand.":print:print"[197][216][201][212][211]--[211]/[215]":return
  79. 1930 print"[217]ou are in a small stairway.  [208]rints":print"on the wall depict animals of various":print"species playing billiards and cards.":print:print"[197][216][201][212][211]--[215]/[196]":return
  80. 1990 print"[217]ou are in the south end of the large,":print"l-shaped west bedroom.  [215]indows along":print"the west wall allow the sunlight to":print"the yellow tones of the furniture":print"and bedcovers.  [208]aintings from the":print"impressionistic period are on the walls.
  81. 2050 [153]"val(NULL)right$(NULL)(NULL)--(NULL)/val":[142]
  82. 2080 [153]"(NULL)ou are at the south end of the hall.":[153]"atn window to the south gives you a view":[153]"of the street below.  (NULL)olice, media and":[153]"onlookers all seem to be looking up at  you -- waiting.":[153]:[153]"val(NULL)right$(NULL)(NULL)--(NULL)/val/(NULL)":[142]
  83. 2150 [153]"(NULL)ou are in a bedroom decorated in light":[153]"blue.  (NULL)indows to the south and east":[153]"provide plenty of light.  (NULL)any small":[153]"oil paintings by rustic artists crowd":[153]"the walls.  (NULL)ou can see no personal":[153]"effects, leading you to believe that
  84. 2210 print"you must be in the guest bedroom.":print:print"[197][216][201][212]--[215]":return
  85. 2250 print"[212]he narrow, north portion of the west":print"bedroom contains an arrangement of":print"antique furniture, like a sitting room.":print"[212]here are many cigarette stubs, some":print"still burning, in an ash tray on the":print"fragile, glass coffee table.
  86. 2310 [153]:[153]"val(NULL)right$(NULL)(NULL)--(NULL)/val":[142]
  87. 2350 [153]"(NULL)ou are in a large bathroom with both a":[153]"shower and a tub.  (NULL)he tiles are yellow":[153]"and the floor is white.  (NULL)he entire     south wall is a mirror.":[153]:[153]"val(NULL)right$(NULL)(NULL)--val/(NULL)":[142]
  88. 2410 [153]"(NULL)ou see an upstairs hallway running":[153]"north and south.  (NULL)he floor is covered":[153]"with a beautiful, thick, white carpet.":[153]"(NULL)he walls are decorated with water-     colors of birds.":[153]:[153]"val(NULL)right$(NULL)(NULL)--(NULL)/(NULL)/(NULL)/str$":[142]
  89. 2490 [153]"(NULL)his bathroom off the master bedroom":[153]"is really two bathrooms with a large":[153]"dressing area in the center.  atngainst":[153]"the south wall is a jacuzzi finished":[153]"in redwood.  (NULL)he walls are onyx and     gold.":[153]:[153]"val(NULL)right$(NULL)--(NULL)":[142]
  90. 2580 [153]"(NULL)ou are in the study.  (NULL)ood-panelled":[153]"walls and many bookshelves add to the":[153]"feeling of quiet study.  atn leather":[153]"chair and brass lamp are next to the":[153]"large desk.  (NULL)he lenommodore computer":[153]"provides a contrast to the old-
  91. 2640 print"fashioned atmosphere of the room.":print:print"[197][216][201][212]--[197]":return
  92. 2680 print"[217]ou are in the master bedroom.  [205]ore":print"of the bedroon is to the east.  [212]his":print"part is furnished to provide a sitting":print"room decorated in black and gold.":print:print"[197][216][201][212][211]--[211]/[197]/[215]":return
  93. 2750 print"[217]ou are in the eastern portion of the":print"master bedroom.  [193] large poster bed":print"with an oriental comforter is against":print"the north wall.  [212]he eastern wall is":print"composed of floor to ceiling windows.
  94. 2800 [153]"right$n the southeast corner, a stereo is    playing softly.":[153]:[153]"val(NULL)right$(NULL)(NULL)--(NULL)/(NULL)":[142]
  95. 2860 [139]ch%[179]1[167]2915
  96. 2863 [151]53280,2:[151]53281,2:[153]:[153]"(NULL)ou attack!":[141]5200:[129]zz[178]0[164][181]([187](.)[172]3):[141]5400:[129]z9[178]0[164]100[170][181]([187](.)[172]500):[130]:[130]:mw[178][187](.):[139]mw[177].4[167]mh[178]mh[171][187](1)[172]10:[153]"(NULL)ou wounded ";mn$;"!
  97. 2890 ifmw<=.4thenprint"[217]ou missed.
  98. 2900 [139]mh[179]1[167][151]53280,6:[151]53281,6:[153]"(NULL)ou have killed ";mn$;".
  99. 2910 ifmh<1thenmk%=mk%+1:mr%=0:r(ro%,7)=10:goto2915
  100. 2913 print:forzz=1to500+int(rnd(.)*500):next
  101. 2915 return
  102. 2940 mx=rnd(1):ifmx<.3thenreturn
  103. 2955 poke53280,2:poke53281,2:print"[217]ou can see ";mn$;" here.":return
  104. 3000 ifro%=1thenreturn
  105. 3010 mr%=(rnd(1)*6)+1:ifmr%<>1thenreturn
  106. 3020 wm%=wm%+1:onwm%gosub3060,3070,3080,3090,3100:mh=rnd(1)*(le*6)+10:return
  107. 3060 mn$="a short terrorist":return
  108. 3070 mn$="a tall terrorist":return
  109. 3080 mn$="a fat terrorist":return
  110. 3090 mn$="a bearded terrorist":return
  111. 3100 mn$="a blonde terrorist":return
  112. 3120 print"[212]ry another direction...":goto350
  113. 3160 printchr$(147);
  114. 3180 print"[208]lease enter your character's name":print:input"and then touch <[210][197][212][213][210][206]> : ";n$:print:iflen(n$)<1orlen(n$)>10then3180
  115. 3190 print"[147][208]lease enter a level of difficulty":print:print" (1-3)> : ";
  116. 3191 getle$:ifle$=""then3191
  117. 3192 le=val(le$):printle$:ifle<1orle>3thenprint:print"[208]lease enter a number between 1 and 3.
  118. 3194 [139]le[179]1[176]le[177]3[167][129]qn[178]1[164]1000:[130]:[137]3190
  119. 3200 [153]vt$(15);"...peekuilding your character...":[153]:ro%[178]1:mr%[178]0:mk%[178]0:wm%[178]0:t1[178]60:[134]rf(23):[134]r(23,8):r(6,8)[178]1:[129]l[178]1[164]23:[129]no[178]1[164]7:[135]r(l,no):[130]:[130]:[131]2,-99,0,0,0,0,0,8,1,4,3,0,0,0,0,0,2,0,0,0,0,9,0,0,2,0,0,0,0,0,6
  120. 3291 [131]0,0,0,0,0,0,0,5,13,0,1,11,0,8,0,0,0,0,0,2,9,7,19,0,0,12,4,10,8,0,0,0,0,0,0,9,0,0,0,0,7,12,0,0,0,0,0,9,0,11,0,0,0,0,0,0,10,0,6,0,17,0,15,0,0,0,0,19,15,16,14,0,0,0,0,0,0,15,0,0,0,0,14,18,0,0,0,0,0,0,19,17,0,0,0,22,15,0,18,0,8
  121. 3310 [131]0,23,0,0,0,0,0,0,0,0,22,0,0,0,0,0,19,23,21,0,0,0,0,20,0,22,0,0,0:ch%[178][181]([187](1)[172]12)[170]18
  122. 3550 tr%[178][181]([187](1)[172]23)[170]1:[139]tr%[178]1[176]tr%[178]6[176]tr%[178]2[167]3550
  123. 3570 r(tr%,7)[178][171]1:[142]
  124. 3610 [139]r(ro%,8)[179][177]1[167][153]"(NULL)here is no one here to free.":[137]3640
  125. 3620 [153]"(NULL)our friend leaps to his feet.":[129]zz[178]1[164]1500:[130]:fr%[178]1:r(6,8)[178]0
  126. 3640 [142]
  127. 3670 mz[178][187](1):[139]mz[177].8[167]3730
  128. 3685 [151]53280,2:[151]53281,2:[153]"atn"[202](mn$,2)" attacks!":cw[178][187](1):[141]5200:[129]zz[178]0[164][181]([187](.)[172]3):[141]5400:[129]z9[178]0[164]100[170][181]([187](.)[172]500):[130]:[130]:[139]cw[179][178].5[167][153]"(NULL)he"[202](mn$,2)" missed.":[137]3740
  129. 3710 [153]"(NULL)he"[202](mn$,2)" has wounded you!":ch%[178]ch%[171]([181]([187](1)[172](le[172]2)[170]1)):[153]:[153]"sysleft$it points remaining:";ch%;"
  130. 3730 :
  131. 3740 return
  132. 3760 print"[212]he east wall opens--it is a secret":print"door.  [212]hrough the door you can see a":print"stairway leading down.":r(10,3)=13:return
  133. 3820 print"[147]";:print:print"[198]ive urban terrorists have taken a":print:print"local bank president hostage.  [212]hey":print:print"are demanding ransom.  [212]he bank presi-":print:print"dent happens to be an old friend whom":print:print"you have not seen since you joined the
  134. 3890 [153]:[153]"police force.  left$eld at bay for two":[153]:[153]"hours, the chief has asked you to use":[153]:[153]"your special skills and rescue your":[153]:[153]"friend.":[153]vt$(23);"       (NULL)ouch any key to continue.";:[151]198,0:[146]198,1:[161]y$:[153]"load":[153]"(NULL)nfortunately, you have only one hour.
  135. 3960 print:print"[212]he terrorists have announced they will":print:print"kill your friend and blow up the house":print:print"if they don't have guaranteed asylum in":print:print"one hour.  [212]he chief has given you that":print:print"long to turn the standoff around.
  136. 4010 [153]:[153]"(NULL)ou are carrying your trusty lenolt .45":[153]:[153]"and you have enough ammo for all five":[153]:[153]"terrorists.  peeke careful!  (NULL)hey may":[153]:[153]"attack you before you see them.         chr$ood luck!":[153]vt$(23);"       (NULL)ouch any key to continue.";
  137. 4050 [161]y$:[139]y$[178]""[167]4050
  138. 4060 [142]
  139. 4080 [153][199](18)"load   len (NULL) (NULL) chr$ (NULL) atn (NULL) (NULL) (NULL) atn (NULL) right$ (NULL) (NULL) (NULL) !   ":[153]:[153]:[153]"(NULL)he chief and all of your fellow":[153]:[153]"officers and all the news media":[153]:[153]"surround you and cheer resoundingly.":[153]:[153]"(NULL)he chief manages to tell you that you":[153]:[153]"will get a raise and a promotion.
  140. 4140 print:print"[217]ou rescued the hostage and eliminated":print:print"the terrorists in ";int(60-t1);" minutes.
  141. 4170 :
  142. 4180 [153]:[153]"(NULL)ould you like to play again ((NULL)/(NULL))? ";:[151]198,0:[146]198,1:[161]pl$:[153]pl$:[139]pl$[178]"(NULL)"[176]pl$[178]"y"[167][138]100
  143. 4200 [139]pl$[178]"(NULL)"[176]pl$[178]"n"[167]4230
  144. 4210 [153]"(NULL)lease try again...":[137]4180
  145. 4230 [145]er[137]4260
  146. 4240 [153]"load";:[151]s[170]24,.:[159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15:[139]er[179][177]63[167][128]
  147. 4250 [147]"hello connect",8
  148. 4260 [153]"valrror.":[128]
  149. 4280 :
  150. 4550 [153]"loadstr$o you need instructions ((NULL)/(NULL))?";:[151]198,0:[146]198,1:[161]i$:[139]i$[178]"(NULL)"[176]i$[178]"y"[167]4600
  151. 4570 [139]i$[178]"(NULL)"[176]i$[178]"n"[167][142]
  152. 4580 [139]i$[179][177]"(NULL)"[176]i$[179][177]"y"[176]i$[179][177]"(NULL)"[176]i$[179][177]"n"[167]4550
  153. 4600 [153]"load    --------- right$(NULL)(NULL)(NULL)(NULL)(NULL)len(NULL)right$(NULL)(NULL)(NULL) ---------":[153]:[153]" right$nteractive fiction is like reading":[153]:[153]"a story on your micro.  (NULL)he difference:":[153]:[153]"you are an integral part of the story.":[153]:[153]"(NULL)he best way to move through the
  154. 4660 print:print"landscape of interactive fiction is to":print:print"make a map as you go.  [212]ry drawing":print:print"squares with the name of the location":print:print"inside and lines branching in the":print:print"directions of the exits.":printvt$(23);"       [212]ouch any key to continue.";
  155. 4720 getin$:ifin$=""then4720
  156. 4730 printchr$(147);:print:print" [212]he program will build a character":print:print"you will guide through the story with":print:print"the commands shown by typing '[200]' for a":print:print"help screen.  [217]our character will have":print:print"'[200][201][212] [208][207][201][206][212][211]', a term used to describe
  157. 4790 [153]:[153]"the character's potential to survive.":[153]:[153]"(NULL)our character's hit points will vary":[153]:[153]"each time you play left$(NULL)(NULL)(NULL)atnchr$val!":[153]vt$(23);"       (NULL)ouch any key to continue.";
  158. 4830 [161]in$:[139]in$[178]""[167]4830
  159. 4840 [153][199](147);:[153]:[153]"(NULL)our character will encounter others":[153]:[153]"as he or she moves through the story.":[153]:[153]"(NULL)ome of the commands are for dealing":[153]:[153]"with other characters in the story.":[153]:[153]"(NULL)our character will also have to solve
  160. 4900 print:print"a problem to win the game.  [212]here is a":print:print"room (different each time) that will":print:print"end the character's life. [196]on't worry,":print:print"you can play again!":print:print"        [206]ow, on with the show...":printvt$(23);"       [212]ouch any key to continue.";
  161. 4950 getin$:ifin$=""then4950
  162. 4960 return
  163. 5000 ifco$="s"thenprint"[211]outh
  164. 5010 [139]co$[178]"n"[167][153]"(NULL)orth
  165. 5020 ifco$="e"thenprint"[197]ast
  166. 5030 [139]co$[178]"w"[167][153]"(NULL)est
  167. 5040 ifco$="q"thenprint"[209]uit
  168. 5050 [139]co$[178]"u"[167][153]"(NULL)p
  169. 5060 ifco$="d"thenprint"[196]own
  170. 5070 [139]co$[178]"f"[167][153]"ascree
  171. 5080 ifco$="a"thenprint"[193]ttack
  172. 5090 [139]co$[178]"o"[167][153]"(NULL)pen
  173. 5095 ifco$="l"thenprint"[204]ook
  174. 5099 [139]co$[178]"h"[167][153]"left$elp
  175. 5100 return
  176. 5200 return
  177. 5300 print:print"[209]uit? (y/n)":poke198,0:wait198,1:getqs$:ifqs$<>"y"thengoto340
  178. 5310 goto4180
  179. 5400 s=54272:poke53280,1:poke53281,1:poke53280,0:poke53281,0:poke53280,2:poke53281,2:pokes+24,15:pokes+5,9:pokes+1,20:pokes+4,128:ford=1to10:next:pokes+4,129:return
  180.