home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #2 / Floppy_Magazine_86-2_1986_Megasystems_Oy_fi.d64 / adv.mdis (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  26KB  |  575 lines
  1. 2 ifl=0then18
  2. 3 ifl=0thenl=1:load"view.lda",8,1
  3. 4 ifl=1thenl=2:load"print.lda",8,1
  4. 5 print"[147][207]dota hetkinen ...":print"[144]new"
  5. 6 print"l[207]"chr$(34)"mx"chr$(34)",8":print"r[213]"
  6. 7 poke198,3:poke631,13:poke632,13:poke633,13:end
  7. 11 q=50336:c=20:print"[147]":x=0:w=197:e=1050
  8. 12 pokeq+c,15:x=peek(w):ifx=64then15
  9. 13 ifx=12andc>1thenc=c-1:goto15
  10. 14 ifx=55andc<37thenc=c+1
  11. 15 printtab(rnd(1)*38)"  ":ifpeek(q+c)=160then563
  12. 16 e=e-1:ifethen12
  13. 17 goto540
  14. 18 gosub585
  15. 19 clr:v=53280:b=v+1:r=35000:dims$(35),s(35):forc=1to35:reads$(c):reads(c):next
  16. 20 forc=679to695:readx:pokec,x:next
  17. 21 pokev,3:pokeb,0:print"[147]"tab(14)"[193][196][214][197][206][212][213][210][197] of"
  18. 22 printtab(14)"[158][183][183][183][183][183][183][183][183][183][183][183][183]":printtab(10)"[205][217][211][212][197][210][201][207][213][211] [196][201][211][203][197][212][212][197][211]"
  19. 23 printtab(10)"[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  20. 24 printtab(7)"[153][195]opyright [202]ukka [211]akki 1985"
  21. 25 print"[200]uom ! ohjelman tekij[ ei ota mink[[n-  laista vastuuta ohjelman aihe";
  22. 26 print"uttamista  j[lkiseuraamuksista."
  23. 27 print"[208]eliss[ esiintyv[t henkil\- ja paikanni-met ovat t[ysin keksittyj[ eik[";
  24. 28 print" niill[  ole mit[[n yht[l[isyytt[ mahdollisten   saman nimisten to";
  25. 29 print"dellisten henkil\iden  tai paikkojen kanssa."
  26. 30 goto36
  27. 31 print"[208]aina [210][197][212][213][210][206][201][193]"
  28. 32 forx=0to50:next:poke198,0
  29. 33 geta$:ifa$=""then33
  30. 34 ifa$=chr$(13)thenreturn
  31. 35 goto33
  32. 36 gosub31:print"[147][203]uten aktiivin floppy-lehden lukija on  huomannut lehte[ ei";
  33. 37 print" ole painettu pape-  rille vaan levylle."
  34. 38 print"[212][m[ tietysti harmittaa kaikkia [211]uomen  paperitehtaita."
  35. 39 print"[197]rityisesti suurta monikansallista      [210]yp[ [211]k\mberkki[, niin pal";
  36. 40 print"jon, ett[ se  palkkasi agentin nimelt[ [200]ekka [203]aavola, tuhoamaan kaikki";
  37. 41 print" [198]loppy-lehdelle tarkoi-tetut [210]asf-disketit."
  38. 42 print"[211]inun t[ytyy est[[ t[m[ hirve[ teko."
  39. 43 print"[212]ai sitten seuraava [198]loppy ilmestyy     paperilla."
  40. 44 print"(seh[n ei en[[ olisi mik[[n [198]loppy)"
  41. 45 print"[200]aluatko pelastaa [198]loppy-lehden tulevai-suuden ?":goto57
  42. 46 print:forc=0to50:next:poke198,0:a$="":b$="":d=9
  43. 47 print" [146]";
  44. 48 geta$:ifa$=""then48
  45. 49 a=asc(a$)
  46. 50 ifa=13thenprint"[157] ";:return
  47. 51 ifa=20andpos(x)>1thenb$=left$(b$,len(b$)-1):print"[157]"a$" [146]";:goto48
  48. 52 if((a<44ora>95)anda<>32)orpos(x)>38then48
  49. 53 print"[157]"a$" [146]";:b$=b$+a$:goto48
  50. 54 b$=left$(b$,1):return
  51. 55 print"rahaa j[ljell["r"mk":return
  52. 56 gosub46:gosub54:d=val(b$):return
  53. 57 gosub46:gosub54
  54. 58 ifb$="e"thenprint"[147][212]eit tyhm[n valinnan, [198]loppysi tilaus   loppuu.":goto61
  55. 59 ifb$="k"then73
  56. 60 goto57
  57. 61 print"[205]egasystems on rekister\inyt sinut      zcbm-64x-342 rekisteriin, joka"
  58. 62 print"aiheuttaa h[iri\it[ koneesi [201]/[207] toimin- noissa."
  59. 63 forc=0to4000:next:poke808,225:sys679
  60. 64 open15,8,15:open5,8,5,"#":printchr$(8)
  61. 65 print#15,"b-r:"5;0;1;2:print#15,"b-r:"5;0;35;2:poke53272,30
  62. 66 pokeb,rnd(1)*16:forc=0to1200:next:poke53272,19:poke53270,peek(53270)and247
  63. 67 poke53270,peek(53270)or16
  64. 68 c=54272:pokec+14,5:pokec+18,16:pokec+3,1
  65. 69 pokec+24,143:pokec+6,240:pokec+4,81:pokec,10:pokec+1,19
  66. 70 forc=0to14step2:poke53272,(peek(53272)and240)orc
  67. 71 fore=0to200:next:next
  68. 72 poke53272,19:new
  69. 73 print"[147][153][203]uinka ai'ot pelastaa [198]lopyn            tulevaisuuden ?"
  70. 74 print"1 - [197]st[t [200]ekka [203]aavolaa saamasta           levyj[."
  71. 75 print"2 - [204][hdet varmuuden vuoksi  hakemaan       tyhji[ levyj[ [210]asf:in ";
  72. 76 print"tehtailta."
  73. 77 gosub56:ondgoto362,79
  74. 78 goto77
  75. 79 print"[147][158][205]it[ joko selvisit [203]aavolasta ???       no samapa tuo."
  76. 80 print"[210]asf-levyj[ valmistetaan vain yhdess[   tehtaassa,";
  77. 81 print" [196]iscoveryss[. [211]inne p[[see   kolmella tavalla."
  78. 82 print"[211]aat mukaasi 35000 mk."
  79. 83 print"1 - junalla (150 mk)"
  80. 84 print"2 - lentokoneella (2500 mk)"
  81. 85 print"3 - laivalla (1000 mk)"
  82. 86 gosub56:ondgoto133,96,88
  83. 87 goto86
  84. 88 print"[147][158][204]aiva, joka muten on [203]iivin [203]ine varus- tamon [210]osalyne kulkee ";
  85. 89 r=r-1000:print"reitti[:":forc=1to34::prints$(c)"-",:next:print" [196]iscovery"
  86. 90 gosub31:ti$="120000":forc=1to34:print"[147]l[ht\satama  "s$(c)
  87. 91 h$=str$(val(ti$)+s(c)):x$=ti$:ti$=right$(h$,6):h$=ti$:ti$=x$
  88. 92 print"m[[r[np[[    "s$(c+1):print"saapumisaika "h$
  89. 93 print""tab(5)"kello:"ti$
  90. 94 ifval(ti$)<val(h$)then93
  91. 95 next:goto244
  92. 96 r=r-2500:print"[147][158][211]aat ikkuna paikan [208][201][206][193][201][210] yhti\n [196][195]-10  suihkukoneessa."
  93. 97 print"[193]lhaalla n[kyy meri.":gosub31
  94. 98 gosub586:pokeb,2:pokev,8
  95. 99 print"huomaat makro-nappi lehden.":print"auki olevalla sivulla on mainos."
  96. 100 print"[144][172][146][161][172][146][161][223][169][161][187]":print"[172][146][190][188][146][161][161][161][161][190]"
  97. 101 printtab(30)"[145][205][214][214][214][206][157][157][157][157][150][215] [215][157][157][157] [209] [157][157][157][146][223][196][146][169]"
  98. 102 printtab(31)"[144][183][205][207][205][205][205][157][206][157][157][157][157][186][150][223][144][146][206][157][157][145][157][170][145][157][170][205][157][206][145][157][157][157].[145][157]."
  99. 103 printtab(28)"[205][145][157][206][145][206][145][206][157][206][180][157][157][205][180]":printtab(29)"[205][150][169][146][144][204][175][157][157][157][170][180][157][157][157][157][157][170][175][180]";
  100. 104 print"[157][157][157][157][157][157][167][170][180][165][157][157][157][157][157][167][167][165][165][157][157][157][157][158][166][166][157][157][157][157][157][129][161]    [146][161][157][157][157][157][157][158][163][163]"
  101. 105 print"[144][176][192][192][192][192][192][192][192][192][192][192][178][192][174]":forc=0to6:printtab(4)"[221]          [221][166][221]":next
  102. 106 print"[173][192][192][192][192][192][192][192][192][192][192][177][192][189][145][157][157]#":printtab(11)"[221]":print"               [146][161]"
  103. 107 print" 1234567890+-\ [146][161]":print" qwertyuiop    [146][161]"
  104. 108 print" asdfghjkl:;=  [146][161]":print" zxcvbnm,./    [146][161]"
  105. 109 print"           [150] [158]   [146][144][161]":print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  106. 110 print"ready."tab(20)"[146]pinklair"
  107. 111 printtab(20)"snektrum +":print"[153]luetko mainoksen tekstin ?":poke198,0
  108. 112 geta$:ifa$="e"thengosub585:pokev,3:pokeb,0:goto123
  109. 113 ifa$<>"k"then112
  110. 114 gosub585:pokev,3:pokeb,0:print"[158][203]un m[ liityiin tietokonejengiin m["
  111. 115 print"halusin sellasen jolla voi teh[ muutakinkuin pelata ja mun valinta oli";
  112. 116 print" t[[ [206][197][203][213].":print"[145][203]averit sano et ota sellanen jolla voi"
  113. 117 print"teh[ kakkureseptimuistion, ja johon saa lis[varusteena printterin."
  114. 118 print"[205][ olen nyt pomo m[ hallitsen tietoko-  neen kuin tietokoneen."
  115. 119 print"[211]e on mun paras kaveri.":print"[200]yv[n n[k\nen ja makee."
  116. 120 print"[211]iin[ on upee grafiikka ja sis[inen     piippi, [214][193][213]!"
  117. 121 print"[205][219] [207][204][197][206][160][206][217][212] [194][207][211]."
  118. 122 print"":gosub31
  119. 123 print"[147][158][203]oneen etuosaan tulee mies, jonka kasvoton naamioitu ja h[nell[ on"
  120. 124 print"konekiv[[ri matkustajia kohden (siis    sinuakin)"
  121. 125 print"[200][n huutaa murteellisesti:"
  122. 126 print"[206]opody not move !":print"[212]is is hijack !"
  123. 127 print"[214]i take tis plane now in our h[nd !"
  124. 128 print"[206]ow tis plane go to [208]eirut's airport !"
  125. 129 print"[202]uu teik juor mounth close ,unterstant !"
  126. 130 print"[145][201]f juu aa iisi vi not must kill enyone !"
  127. 131 goto167
  128. 132 stop
  129. 133 r=r-150:print"[147][158][214]aatteesi likaantuvat kun kiipe[t       vaunuun."
  130. 134 print"[203]iskot kolkkaavat mukavasti....":gosub31
  131. 135 gosub586:pokeb,14:pokev,11
  132. 136 print"[144] [146][162][188][188][187][162][146][162][162][162][151][182]     [221]     [221]     [221]     [146][161]"
  133. 137 print"[145][144][161]    [190][146][186][169]256[146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161]"
  134. 138 print" [183][183][183] [210]                        "
  135. 139 print"[164][164][164][169][215][215][209][209][209][173][177][209][209][209][209][177][215]   [215][183][215]   [215][183][215]   [215][183][215]   [215][164]";
  136. 140 print"[129]   [144][146][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][129] ";
  137. 141 forc=0to7:fore=0toc+3:print"[129] ";:next:fore=0to15-c*2:print"[144][146][214]";:next
  138. 142 fore=20to35-c*2:printtab(e+c)"[144][146][214]";:next:fore=0toc+2:print"[129] ";:next
  139. 143 print:next:print"[157] [145][157] [145][157] [145][157] [145][157] [145][157] [145][157] [145][157] ":printtab(12)"[144][206]";
  140. 144 print"[145][206][145][206][145][206][145][206][145][206][145][206][145][206][205][205][205][205][205][205][205][205]":print"[129][145]            ";
  141. 145 print"           ":fore=0to3:print"                  ";
  142. 146 print"          [129]           ":next:print"[157] [145][157] [145][157] [145][157] [145][157] [144][146]paina returnia"
  143. 147 e=200:x=-4:poke198,0
  144. 148 print"@[145]@ @@ @@ @@ @@ @@ @@  ":e=e+x:ife<6thenx=-x
  145. 149 gosub151:print" [145]@@ @@ @@ @@ @@ @@ @@ ":gosub151:ife>200thenx=-x
  146. 150 print"@[145] @@ @@ @@ @@ @@ @@ @@":gosub151:goto148
  147. 151 forc=0toe:next:geta$:ifa$<>chr$(13)thenreturn
  148. 152 gosub585:pokev,3:pokeb,0
  149. 153 print"[158][207]ho nukahdit vahingossa, ei kai her[[mi-nen tapahtunut";
  150. 154 print"liian my\h[[n?":gosub31:print"[147][197]i sent[[n.":gosub31
  151. 155 print"[147][205]it[ nyt vaunu alkaa t[rist[..."
  152. 156 print"[153][199][210][193][199][211]..[199]ruusian sosialististenliitto-   tasavaltojen valtiollisessa"
  153. 157 print"vaunutehtaassa tehty akseli katkeaaa ja juna suistuu kiskoilta."
  154. 158 print"[210]yt[k[ss[ kaikki rahasi lent[v[t ilmaan ja ly\t p[[si":gosub31
  155. 159 print"[147][205]uisti m[n....\\h?"
  156. 160 print"[203]aaaksi vanhaaaa tukkij[tk[[[[ istuuuu  illan tummetesaaa."
  157. 161 print"toinen imeee piippuansa....."
  158. 162 print"[214]alkopukuiset miehet hakevat sinut.":gosub31:print"[147][158][200]er[[t sairaalassa"
  159. 163 print"[203]oetatko uudestaan ?"
  160. 164 gosub46:gosub54:ifb$="k"thenrun
  161. 165 ifb$="e"then352
  162. 166 goto164
  163. 167 gosub31:print"[147]"
  164. 168 print"[205]it[ teet":print"1 - pakenet":print"2 - lahjot kaapparit"
  165. 169 print"3 - pyyd[ koneen radion avulla suurval-     tion p[[miest[ [210]enalt ";
  166. 170 print"[210]oikania          vetoamaan panttivankien puolesta..."
  167. 171 print"4 - odota"
  168. 172 gosub56:ondgoto174,202,197,213
  169. 173 goto172
  170. 174 print"?[147]1 - [200]ivuttaudut hitaasti ovelle  ja         siit[ ulos"
  171. 175 print"2 - [202]uokset p[[ kolmantena jalkana."
  172. 176 gosub56:ondgoto178,184
  173. 177 goto176
  174. 178 print"[147][208][[set ovelle ilman ett[ kaapparit      huomaavat":gosub31
  175. 179 print"[147][207]let nyt oven luona, unohtuiko mit[[n   (k/e) ?":gosub46:gosub54
  176. 180 ifb$="e"then188
  177. 181 ifb$<>"k"then179
  178. 182 print:print"mit[ ?":gosub46:ifleft$(b$,5)="lasku"then195
  179. 183 goto188
  180. 184 print"[147]sinut huomataan ja"
  181. 185 forc=0to500:print"rata..tata.";:poke646,rnd(1)*16
  182. 186 next:print
  183. 187 print"[207]losi on jotenkin outo, eik[ samariini  taida auttaa.":gosub31:goto163
  184. 188 print"[147][206]yt sin[ vasta oikein em[munauksen teit hypp[sit koneesta ilman lasku";
  185. 189 print"varjoa, se tiet[[ kuolemaa 8000 metri[ alempana"
  186. 190 c=8000
  187. 191 printtab(20-len(str$(c)))"[145]"c:c=c-3:ifc>0then191
  188. 192 print"[147][203]ehoosi kohdistui niin suuri hidastuvuus(13542 m/s^2), ett[ maksasi";
  189. 193 print" paikalla on nyt keuhkot ja munuaiset ovat jossain   nurmikolla."
  190. 194 print"[211]ori peli loppui.":goto163
  191. 195 print"[147][214]iisas p[[t\s.":forc=0to9:print"l[hestyt maata hiljalleen leijumalla"
  192. 196 gosub31:next:print"[212]\mps olet maassa":gosub31:goto244
  193. 197 print"[147][210]enalt [210]oikan vastaa avunpyynt\\si:"
  194. 198 print"[193]i am so big boss that ai have not time to help you."
  195. 199 print"[201]t is juu roplem to get out that plane."
  196. 200 print"[193]i must go to gongres raise military    money $10000000000 for next year."
  197. 201 print"[203][204][201][203]. [212][217][217][212][160][212][217][217][212][160][212][217][217][212].":goto168
  198. 202 ifr=0thengosub241:goto168
  199. 203 print"[147][211]inulla on rahaa j[ljell["r"mk"
  200. 204 print"[208]aljonko annat kaappareille ?"
  201. 205 print"([214]asemmisto [198]alangisteilla, siis n[ill[ kaappareilla ei ole mit[[n k[";
  202. 206 print"sityst[    markan arvosta)":print
  203. 207 gosub46:print:c=val(b$):ifc>rthen207
  204. 208 ifc<rthenprint"[203]aapparit olisivat tahtoneet tietysti   kaikki rahasi":goto211
  205. 209 r=r-c:print"[147][203]aapparit ottavat rahasi ja j[tt[v[t    sinut rauhaan."
  206. 210 print"[205]utta olet yh[ lentokoneessa joka on    ilmassa.":goto168
  207. 211 print"[206]yt he viskelev[t seteleit[ pitkin ja   alkavat osoitella aseillaan"
  208. 212 gosub31:goto185
  209. 213 print"[147][207]dotat siis...":print"1 - [207]tat torkut":print"2 - [207]tat drinkin"
  210. 214 gosub56:ondgoto216,218
  211. 215 goto214
  212. 216 print"[147][206]ukkuessasi n[it n[yn, jossa pakenit    kaapatusta lentokoneesta ja";
  213. 217 print" pelastuit":goto168
  214. 218 print"[147]"
  215. 219 gosub55:print"[205]ink[ juoman valitset:":print"1 - [202][rmutti [214]eill[ 35 mk"
  216. 220 print"2 - [211]pecial [212]onic 55 mk":print"3 - [210]oyal [195]ola 29 mk":print"4 - [208]ilsneri 9 mk"
  217. 221 print"5 - [211]murffi limonaatia 5 mk"
  218. 222 gosub56:ondgoto224,226,231,233,236
  219. 223 goto222
  220. 224 ifr<35thengosub241:goto168
  221. 225 r=r-35:print"[147][193]aaah":goto168
  222. 226 ifr<55thengosub241:goto168
  223. 227 r=r-55:print"[147][200]yv[[, mutta aivan liian vahvaa sinulle.":print"[212]akanasi istunut ";
  224. 228 print"henkil\ huomasi sinun  tarkkaivaisuutesi lopahtavan ja anasti  sinulta";
  225. 229 ifr<1000thenprint" kaikki rahasi":r=0:goto168
  226. 230 c=int(rnd(1)*900)+23:printc"mk.":r=r-c:goto168
  227. 231 ifr<29thengosub241:goto168
  228. 232 r=r-29:print"[147][217][k mit[ litkua.":print"[205]ahaasi polttelee vimmatusti.":goto168
  229. 233 ifr<9thengosub241:goto168
  230. 234 r=r-9:print"[147][212][m[ on oikea [205][201][197][211][212][197][206][160]juoma, oikein     miehen mittainen ... r\yh."
  231. 235 print"([202]os olet tosi mies juot viel[ yhden    samanlaisen)":goto219
  232. 236 ifr<5thengosub241:goto168
  233. 237 forc=0to100:pokev,0:pokeb,1:forx=0to20:next:pokev,3:pokeb,0:forx=0to20:next:next
  234. 238 print"[147][158][211]murrffi juoma antoi sinulle ";:r=r-5
  235. 239 print"kymmenen   miehen voimat ja paiskaat kaapparit     koneesta ulos."
  236. 240 print"[207]let sankari.":print"[205]atka jatkuu normaalisti.":gosub31:goto244
  237. 241 print
  238. 242 ifr=0thenprint"[212]uhlasit jo kaikki rahasi.":return
  239. 243 print"[211]inulla on liian v[h[n rahaa.":return
  240. 244 print"[147][158][207]let saapunut [196]iscoveryyn.":print"[202]a kuin sattumalta olet [210]asf:in "
  241. 245 print"tehtaiden luona.":print"[205]enetk\ sis[lle sinne:"
  242. 246 print"1 - [208]ortista, jota vartioivat kone-         kiv[[rein varustautuneet ";
  243. 247 print"miehet."
  244. 248 print"2 - [193]idassa olevasta reij[st[."
  245. 249 gosub56:ondgoto251,257
  246. 250 goto249
  247. 251 print:print"[205]iehet tuijottavat sinua todella vihai- sen n[k\isesti."
  248. 252 print"[205]enetk\ varmasti portista."
  249. 253 gosub46:gosub54:ifb$="e"then256
  250. 254 ifb$="k"then261
  251. 255 goto253
  252. 256 print:print"[205]enetk\ tehtaaseen:":goto246
  253. 257 print"[147][158][204]uuletko olevasi nokkela."
  254. 258 print"[214]artijat huomaavat yrityksesi ja laske- vat koirat irti."
  255. 259 print"[199][210][210][210][210][210]rrr..":print"[215][207][198] [215][207][198] [215][207][198]":print"[199][210][206][199][211][203]"
  256. 260 print"[205][193][201][211][203][201][211], koirat lipovat suupieli[[n.":print"[208]elisi on loppunut.":goto163
  257. 261 print"[147][158][207]let nyt [210]asf:in levytehtaalla."
  258. 262 print"[213]nohdit kysy[ l[htiess[si millaisia     levyj[ ostat ja kuinka paljon."
  259. 263 print"[211]ein[ll[ on yleis\puhelin, voit tietystisoittaa [198]loppyyn ja kysy[ neuvoa."
  260. 264 print"[208]uhelu suomeen maksaa 10 mk/sek."
  261. 265 print"[205]it[ teet?":print"1 - [207]stat levyj[.":print"2 - [214]arastat levyj[."
  262. 266 print"3 - [211]oitat [198]loppyyn ja kysyt neuvoa."
  263. 267 q=0:gosub56:ondgoto269,277,282
  264. 268 goto267
  265. 269 print:print"[147][205]enet tiskin luokse ja toiselle puolelletiski[ tulee myyj["
  266. 270 ifr=<0thenprint"[211]inulla ei ole rahaa.":goto265
  267. 271 gosub55:gosub31:print"[147][158]":gosub55
  268. 272 print"[158][204]evyt maksavat 14 mk kappale.":print"[205]ontako levy[ ostat":gosub46
  269. 273 l=int(val(b$)):ifl<1orr<l*14thenprint:gosub55:goto272
  270. 274 print:print"[205]onenko tuuman":gosub46:t$=b$
  271. 275 print:print"1 vai 2 puoleisia?":gosub56:ifd<>1andd<>2then275
  272. 276 print:print"[158][211]e tekee yhteens["l*14" mk":r=r-l*14:gosub55:gosub31:goto280
  273. 277 print:print"[205]ontako levy[ jaksat kanntaa?":gosub46:l=val(b$):ifl<1then277
  274. 278 ifl>2700thenprint:print:print"[207]letko muka joku [208]ekka [206]iemi!":goto277
  275. 279 l=d:print:gosub31:print"[147][208]akene [kki[.":gosub31:q=1
  276. 280 print"[147][205]enetk\ ulos?":gosub46:gosub54:ifb$<>"k"then280
  277. 281 goto297
  278. 282 print"[147][158][211]uomen puhelin liikenteen suuntanumero  on 990358"
  279. 283 print"[205]ihin numeroon soitat?":gosub46:c=val(b$):ifc=99035890448924then289
  280. 284 print:print"[214]arattu numero...":print"[217]rit[tk\ uudelleen ?"
  281. 285 gosub46:gosub54
  282. 286 ifb$="k"then282
  283. 287 ifb$<>"e"then285
  284. 288 goto261
  285. 289 ti$="000000":print"[147][200]aloo t[[ll[ on [201]lpo-set[ [198]loppy-       lehdest[."
  286. 290 print"[203]uka siell[ ?":gosub46
  287. 291 print:print"[206]o terve "b$".":print"[211]un pit[is ostaa 1950 kpl [210]asf:in yks-"
  288. 292 print"puoleisia 5.25 tuuman levyj[."
  289. 293 print"[203]oitahan p[rj[ill[.":gosub31:c=int(ti/60):r=r-c*10:ifr>0then261
  290. 294 print"[147][208]uhuit niin pitk[[n, ett[ rahasi lop-   puivat."
  291. 295 print"[201]lman rahaa on liian vaikeaa suorittaa  t[t[ vaativaa teht[v[[."
  292. 296 goto163
  293. 297 print"[147]"
  294. 298 print"[158][205]ill[ l[hdet takaisin [211]uomeen:":gosub55:print"1 - taksilla (1mk/km)."
  295. 299 print"2 - linja-autolla (700 mk).":print"3 - lentokoneella (2500 mk)."
  296. 300 gosub56:ondgoto302,310,322
  297. 301 goto300
  298. 302 print"[147][158][212]aksissa on mukava istua."
  299. 303 print"[205]utta taksamittari raksuttaa.":gosub31
  300. 304 print"[147][206]o onhan viel[ v[h[n rahaa j[ljell[.":gosub31
  301. 305 print"[147][207]nkohan tuo mittari varmasti kunnossa.":gosub31
  302. 306 print"[147][197]i, nyt rahat loppuivat.":print"[212]aksilla voi menn[ kotiinsa kyll[kin"
  303. 307 print"kantapaikastaan, mutta ei [196]iskoveryst[, toiselta puolelta maapalloa."
  304. 308 print"[210]ahasi loppuivat jossain maailmankolkas-sa ja levyt j[iv[t toimittamatta."
  305. 309 goto163
  306. 310 ifr<700thengosub241:goto298
  307. 311 print"[147][158][204]inja-autossa on tunnelmaa...":gosub31:r=r-700
  308. 312 print"[147][204]aitat levyt viereiselle istuimelle ja  alat katselemaan maisemia."
  309. 313 print"[212][[ll[ p[in maailmaa on aika suuria     m[ki[.":gosub31
  310. 314 print"[147][202]a koska on m[ki[ on m[kisi[ teit[."
  311. 315 print"[202]a koska on m[ki[ auto pomppii          hirve[sti.":gosub31
  312. 316 print:print"[212][219][210][201][206][219] [207][206][160][200][201][210][214][197][219] !":forc=0to400:poke53270,(peek(53270)and248)+rnd(1)*8
  313. 317 poke53265,(peek(53265)and248)+rnd(1)*8:next
  314. 318 poke53265,(peek(53265)and248)+3:poke53270,(peek(53270)and248)
  315. 319 print"[206]iin hirve[, ett[ levyt tipahtivat linjaauton k[yt[v[lle ja niihin"
  316. 320 print"tarttui 472037251 p\lyhiukkasta, sorry  ei sellaset levyt kelpaa ";
  317. 321 print"kenellekk[[n.":goto163
  318. 322 ifr<2500thengosub241:goto298
  319. 323 print"[147][158][204]entokone kohoaa korkeuksiiiiiin..."
  320. 324 print"[206][193][203][211] korvasi meniv[t lukkoon.":print"[205]it[ teet ?":gosub46
  321. 325 ifleft$(b$,4)<>"niel"thenprint:print"[158][197]i auttanu.":goto324
  322. 326 print"[147][158][206]ielaisu [206][193][203][211] [210][213][212][211] [208][207][203][211] [208][193][205], t[rykalvot ovat taas normaali asennossa."
  323. 327 gosub31:print"[147][203]one laskeutuu [211]uomeen.":gosub31
  324. 328 print"[147][202][201][208][208][201][201] [158][202][201][208][208][201][201] [202][201][208][208][201][201][160][153][202][201][208][208][201][201][159] [202][201][208][208][201][201]"
  325. 329 print"[158][203]iljut riemuissasi lentokent[n terminaa-lissa.":gosub31
  326. 330 print"[147][202][rjestysmiehet ottavat sinut kiinni    ja joudut tarkastukseen."
  327. 331 print"[200]allustasi l\ytyy levyj[.":print"[217]litarkastaja [202]ulo [208]aittoliemi tutkii"
  328. 332 print"levyj[ ja huomaa niiden olevan per[isin ulkomailta."
  329. 333 ifqthen338
  330. 334 print"[205]utta onneksi sinulla on kuitti mukanasija voit todistaa ostaneesi levyt."
  331. 335 print"[211]inulle annetaan porttikielto t[lle     lentokent[lle."
  332. 336 print"[208][[set kuitenkin menem[[n":print"[206]yt kiireen vilkkaa [198]loppyyn..."
  333. 337 gosub31:goto345
  334. 338 print"[197]ik[ sinulta l\ydy kuittia, ett[ olisit ostanut n[m[ levyt."
  335. 339 print"[206]yt olet vaikeuksissa.":gosub31:print"[211]inut pid[tet[[n ep[iltyn[ salakul-"
  336. 340 print"jetuksesta.":gosub31
  337. 341 print"[147][202]oudut putkaan.":gosub31:print"[147][212]akuusummasi maksaa rikas t[tisi, mutta"
  338. 342 print"levyt j[[v[t poliisin haltuun."
  339. 343 print"[197]i kannata olla ep[rehellinen !"
  340. 344 print"[198]loppy ei[158] voi en[[ ilmesty[.":gosub163
  341. 345 ifk=0then359
  342. 346 print"[147][211]ait levyt tuoduksi [198]loppyyn,"
  343. 347 ifl<1950thenprint"mutta niit[ on liian v[h[n.":goto361
  344. 348 ift$<>"5.25"andt$<>"5,25"thenprint"mutta vika kokoa.":goto361
  345. 349 print"ja [198]loppy-lehti voi jatkaa ilmestymis-  t[[n."
  346. 350 print"[212]eht[v[ on suoritettu.":gosub31
  347. 352 goto3
  348. 359 print"[147][158][200]ekka [203]aavola otti levyt kainalostasi   ja heitti ne lattialle."
  349. 360 print"[200]ypitty[[n niiden p[[ll[ jonkin aikaa   h[n poistuu nauraen."
  350. 361 print"[212]aas tyrit.[160][202]a n[in l[hell[ loppua.":goto163
  351. 362 gosub586:pokeb,15:pokev,12
  352. 363 printtab(17)"[144][168][166][168][157][157][157][157][150][182][215] [215][146][181][157][157][157][157][157][182] u [146][181][157][157][157][157][223][183][146][169]":forc=0to3
  353. 364 printtab(16)"[161]   [146][161]":next:printtab(16)"[211][211][211][145][157][150].[211][211][157][157][157][157][157][211][211][211][211][211]"
  354. 365 printtab(16)"[211][211][211][211][150]":forc=0to4:printtab(16)"[161][182][181][146][161]":next
  355. 366 printtab(15)"[162][190]  [188][190][145][145][145][145]":printtab(16)"[150]  "
  356. 367 x=500:forc=0to20
  357. 368 print""tab(11)" [157]  [157]  [157]      [145][157]  [145][157]  [145][157] "
  358. 369 print""tab(16)"[150][169][157][157][169] [157][157][157][169][146][169][157][157] [157] [157] [157][157][146][170] [146][190][150][157][157][183]"
  359. 370 print""tab(20)"[223][157] [223][157][146][223][223][157] [157] [157] [157][157][146][188] [146][180][157][157][183]"
  360. 371 fore=0tox:next:x=x-23
  361. 372 print""tab(16)" [146][157][157] [161][146][157][157][157]  [157][157] [157] [157] [157][157]   [157][157] "
  362. 373 print""tab(20)" [146][157][161] [157]  [157] [157] [157] [157][157]   [157][157] "
  363. 374 print""tab(11)"[150][172][157][146][223][223][157][146][223][223][146][157][223]      [146][169][145][157][169][146][169][145][157][169][146][169][145][157][187]"
  364. 375 fore=0tox:next:next
  365. 376 print""tab(15)"[164][164]":gosub380:print""tab(15)"[175][175]"
  366. 377 print""tab(15)"[185][185]":gosub380:print""tab(15)"[185][185]"
  367. 378 print""tab(15)"[162][162]":gosub380:print""tab(15)"[184][184]"
  368. 379 gosub380:print""tab(14)"[144][205][200][157][150][183]"tab(21)"[145][144][146][199][206][150][157][157][183]":goto381
  369. 380 fore=0to500:next:return
  370. 381 print"[156]paina jotain":poke198,0
  371. 382 geta$:ifa$=""then382
  372. 383 gosub585:pokev,3:pokeb,0:print"[158][201]lpohan se siin[ teki aamujumppaansa."
  373. 384 print"[200][n n[ki eilen [201]ltajumpan, jossa er[s   iso rin..reisinen ";
  374. 385 print"voimistelijatar":print"oli mit[ ihmeellisimmiss[ asennoissa."
  375. 386 print"[206]yt [201]lpo harjoittelee p[[st[kseen mukaanvoimistelemaan(??)"
  376. 387 print"[200]uomasit kai [201]lpon oikean k[den peukalonsiin[ on joystick-vamma ";
  377. 388 print"(tullut liiasta [211]tar [215]arsin pelaamisesta)."
  378. 389 print"[211]ilmien hypnoottinen katse johtuu kyll[ muustakin kuin pelaamisesta."
  379. 390 print"[201]lpon vasen isovarvas on turvoksissa,   koska sen p[[lle tippui laatikko."
  380. 391 print"[204]aatikossa oli postiin menevi[ [198]loppyja."
  381. 392 print"[145][204]evyt levisiv[t pitkin toimituksen lat- tiaa (pesty viimeksi joulukuu";
  382. 393 print"ssa -81)."
  383. 394 print"[212][m[ ja se, ett[ [201]lpo oli juuri k[ynyt  heitt[m[ss[ vett[ aiheuttivat sen"
  384. 395 print"ett[ joihinkin levyihin tuli [197][210][210][207][210][197][201][212][193]  [201]lpolla oli kuitenkin kiire";
  385. 396 print" ravin...":print"raveihin. [202]a niin asia unohtui.":gosub31
  386. 397 print"[147][198]lopyn toimitus toivottaa sinulle onnea yrityksess[si saada [203]aavola ";
  387. 398 print"kiinni."
  388. 399 print"[214]armuuden vuoksi saat mukaasi"
  389. 400 print"[200]arrington & [210]ichardson:in 32 kaliiperinaseen ja yhden patruunan."
  390. 401 print"[205]it[ teet :":print"1 - [205]enet [210]yp[ [211]k\mperkin tehtaille."
  391. 402 print"2 - [197]tsit puhelinluettelosta [200]ekka          [203]aavolan osoitteen."
  392. 403 print"3 - [193]mmut varoituslaukauksen.":print"4 - [203]aivat varpaankynsi[."
  393. 404 gosub56:ondgoto406,422,424,428
  394. 405 goto404
  395. 406 print"[147][158][207]let nyt [210]yp[ [211]k\mperkin huonopaperi    tehtaalla."
  396. 407 print:print"[205]it[ teet :":print"1 - [203]ysyt [200]ekka [203]aavolaa."
  397. 408 print"2 - [203]atselet ymp[rillesi."
  398. 409 gosub56:ondgoto411,421
  399. 410 goto409
  400. 411 print"[147][158][214]alittava huutosi kuullaan ja paikalle  saapuu muutamia duunareita."
  401. 412 print"'[203]uka sut l[hetti ?'"
  402. 413 gosub46:ifb$=""then412
  403. 414 ifleft$(b$,4)="flop"orleft$(b$,4)="ilpo"then419
  404. 415 print:print"[200]ekka on jossain tuolla kaupungilla."
  405. 416 print"[205]it[ teet :":print"1 - [205]ene kaupungille":print"2 - [197]t mene kaupungille."
  406. 417 gosub56:ondgoto430,407
  407. 418 goto417
  408. 419 print:print"[205]iehet arvaavat aikeesi ja heitt[v[t    sinut pulpperiin."
  409. 420 print"[211]ielt[ ihminen ei voi selvit[ hengiss[.":goto163
  410. 421 print"[147][153][212][[ll[ haisee selv[ paska.":print"[197]ik[ [200]ekka [203]aavolaa n[y miss[[n":goto407
  411. 422 print"[147][153][208]l[r[[t luetteloa ja lopulta l\yd[t     oikean sivun."
  412. 423 print"[203]aavola [200]ekka  [204]ahjomatie 3[193] ... 364527":goto401
  413. 424 print"[147]       [188][190]  ":print"         ":print"       [146][188][190]  "
  414. 425 print"      ":print"[153][211]iin[ meni ainoa patruunasi ja [208][204][220][210][212][211].."
  415. 426 gosub31:print"[147][208]el[styit pamahdusta ja p[[stit vetel[t housuihisi."
  416. 427 print"[212]aitaa olla parasta lopettaa t[m[ peli  t[h[n.":goto163
  417. 428 print"[147][158][200][217][201][160][200][197][204][214][197][212].. milloin viimeksi pesit     jalkasi."
  418. 429 print"[208]ist[ keng[t jalkaasi, ennenkuin saat   kaasumyrkytyksen.":goto401
  419. 430 print"[147][159][207]let nyt stadilla."
  420. 431 print"[205]enetk\ :":print"1 - [208]ubiin.":print"2 - [203]aavolan kotiin."
  421. 432 print"3 - [208]elastusarmeijan kokoukseen."
  422. 433 gosub56:ondgoto435,487,505
  423. 434 goto433
  424. 435 print"[147][158][207]let [203]uparisessa [193]nkkurissa.":print"[206][et neitokaisen."
  425. 436 print"[205]it[ teet :":print"1 - [205]enet ulos."
  426. 437 print"2 - [201]sket naisen itsellesi.":print"3 - [207]tat oluen."
  427. 438 print"4 - [206][yt[t nurkassa istuvalle miehelle      kuka on t[m[n kaupungin vah";
  428. 439 print"vin":print"mies."
  429. 440 gosub56:ondgoto430,442,450,453
  430. 441 goto440
  431. 442 print"[147][158][206]ainen katsoo sinua ja kysyy :":print"-[203]et[ etsit ?"
  432. 443 gosub46:ifb$=""then443
  433. 444 ifleft$(b$,3)="sin"then576
  434. 445 ifleft$(b$,4)<>"kaav"andleft$(b$,4)<>"hekk"thenprint:print"[197]i oo n[kyny t[[ll[.":goto436
  435. 446 print:print"[158][205]iks' s[ et heti sanonu.":print"[211]e roisto ei maksa elatusmaksujaan."
  436. 447 print"[211][h[n voit auttaa mua.":print"[212]odenn[k\isesti se pukki on jossain"
  437. 448 print"hengellisess[ kokouksessa piilossa."
  438. 449 print"[219]l[ vaan mene sen kotiin siell[ on sen  kaveri [208]unto [203]altanen.":goto436
  439. 450 print"[147][158][211]ulla ei oo yht[[n rahaa mukana.":print"[197]ik[ luottoa anneta sinun ";
  440. 451 print"n[k\isille":print"tyypeille.":print"[203]aikki tuijottavat sinua."
  441. 452 print"[208]aras olla hiljaa vaan.":goto436
  442. 453 print"[147][158][205]ies ei huomannut sinua.":print"[203]uinka menettelet :"
  443. 454 print"1 - [211]anot pari valikoivaa sanaa tyypin      kaljamahasta."
  444. 455 print"2 - [201]sket suoraan vy\n alle.":print"3 - [212]aputat olkap[[lle."
  445. 456 gosub56:ondgoto458,462,470
  446. 457 goto456
  447. 458 print"[147][158][205]ies nauraa ja ty\nt[[ kaljamukinsa     suuhusi.":gosub31
  448. 459 print"[147][212]ietenkin ensin juotuaan sen tyhj[ksi."
  449. 460 print"[212]uopille tekiv[t tilaa hampaasi.":print"[200]amfaattomana on liian faikea foitaa"
  450. 461 print"t[lfeit[ afioita, etenkin pufumalla.":gosub163
  451. 462 print"[147][158][204]y\t voimiesi takaa ja mies kaatuu      lattialle tuoleineen."
  452. 463 print"[200][n nousee yl\s.":gosub31:print"[202]ostakin tarttuu h[nen k[teens[ rikko-"
  453. 464 print"nainen pullo.":gosub31:print"[200][n l[hestyy sinua hitaasti.":gosub31
  454. 465 print"[193][210][205][207][193]....":gosub31:print"[203]uulet jo h[nen murinan.":gosub31
  455. 466 print"[144][205][193][193][201][204][205][193] [205][213][211][212][213][213] [211][201][204][205][201][211][211][219][211][201].[158]"
  456. 467 forc=0to100:pokev,rnd(1)*16:pokeb,rnd(1)*16:forx=0tornd(1)*5+1:next:next
  457. 468 pokev,0:pokeb,1:forc=0to800:x=rnd(1)*999:poke50176+x,160:poke55296+x,0
  458. 469 poke50177+x,160:poke55297+x,0:next:pokev,3:pokeb,0:print"[147][158][207]let voitettu.":goto163
  459. 470 print"[147][158][205]ies k[[ntyy ja sanoo:":print"[203]iitos kun raavit selk[[ni, sit[ kutit-"
  460. 471 print"tikin viet[v[sti."
  461. 472 print"[211][ kuulema etsit [203]aavolan [200]ekkaa.":print"[205][ voin auttaa sua. [205][ n[[s tunnen"
  462. 473 print"[200]ekan aika hyvin."
  463. 475 print"[212][ss on joitain tietoja [200]ekasta.":print"[211]en sostunnus on 041151-032[200]."
  464. 476 print"[211]ill[ on s[[st\tili [203][207][208]:ssa.":print"[212]ilinumero on 245562-428521."
  465. 477 print"[203]eng[n numero on 41. [208]ituus 189 cm."
  466. 478 print"[193]utona sill[ on [204]ada 1200 [211] -83.":print"[200]uhun mukaan siihen on j[lkiasennettu"
  467. 479 print"[212]urbo.":print"[203]ainalokotelossa on 38 kaliiperin       patruunoilla ladattu";
  468. 480 print" [211]mith & [215]esson.":print"[211]ille ei tule [200]esaria eik[ se osta"
  469. 481 print"koskaan pehmytj[[tel\[.":gosub31:print"[147][200]ekka ei osaa vihelt[[ ja juo";
  470. 482 print" [215]hiskyns[ aina raakana."
  471. 483 print"[211]e harrastaa surffausta, squassia,      slalomia ja tennist[."
  472. 484 print"[202]anoon h[n juo [208]artwallin":print"[207]mena-[204]imonadia."
  473. 485 print"[212]oivottavasti n[ist[ on jotain apua."
  474. 486 print"[204]ykky[ tyk\":gosub31:goto435
  475. 487 print"[147][193]nna [200]ekan k[mp[n osoite.":gosub46
  476. 488 ifb$<>"lahjomatie 3a"thenprint:print"[214][[r[ osoite.":gosub31:goto430
  477. 489 print"[147][158][217]ksi sekunti sen j[lkeen kun olit p[[s- syt sis[lle [208]unto [203]altanen";
  478. 490 print" iskee sinua  ja tiput porraskuiluun.":gosub31:print"[147]"
  479. 491 x=0:y=-1:q=0:w=24:e=39:r=1:v=50176
  480. 492 y=y+1:gosub500:ify<wthen492
  481. 493 w=w-1
  482. 494 x=x+1:gosub500:ifx<ethen494
  483. 495 e=e-1
  484. 496 y=y-1:gosub500:ify>qthen496
  485. 497 q=q+1
  486. 498 x=x-1:gosub500:ifx>rthen498
  487. 499 r=r+1:goto492
  488. 500 pokev+x+40*y,105
  489. 501 ify=12andx=27thenforc=0to1000:next:goto503
  490. 502 return
  491. 503 print"[147][153][211]ilmiss[si vilkkuvat portaat ja         kaiteet."
  492. 504 print"[211]inut tyrm[ttiin.":goto163
  493. 505 print"[147][153][208]elastusarmeijan partio ja [193]ikaisempien [193]ikojen [208]yhien [202]eesuksen ";
  494. 506 print"[203]irkon isku-   joukko taistelevat kilpalaulannassa."
  495. 507 print"[203]atselet hoilausta ja huomaat virsikir- jattoman miehen seisovan";
  496. 508 print" vaikean        n[k\isesti riviss[."
  497. 509 print"[200][n ei tunnu kuuluvan hengelliseen      porukkaan.":gosub31:print
  498. 510 print"[205]ies huomaa sinut ja pinkoo pakoon.":gosub31:print
  499. 511 print"[205][201][197][211] [207][206] [200][197][203][203][193] [203][193][193][214][207][204][193] !!![153]":print"[206]opeasti per[[n."
  500. 512 print"[203]uinka aloitat takaa-ajon:":print"1 - [202]uoksemalla."
  501. 513 print"2 - [212]aksilla.":print"3 - [205]enet kadun toisella puolella ole-      vaan ";
  502. 514 print"[200]engellisen [202]engity\n bussiin.":print"4 - [200]eit[t virsikirjalla p[[h[n."
  503. 515 gosub56:ondgoto517,524,531,557
  504. 516 goto515
  505. 517 print"[147][207]tatko:":print"1 - [204]yhyit[ askeleita monta."
  506. 518 print"2 - [208]itki[ askeleita v[h[n."
  507. 519 gosub56:ondgoto521,523
  508. 520 goto519
  509. 521 print"[147][158][202]aksoit juosta pari kilometri[, mutta   sitten tossuistasi puhkesi ";
  510. 522 print"pohja.":print"[202]a kaaduit.":goto163
  511. 523 print"[147][158][207]tit liian pitki[ askeleita ja rev[ytit nivusesi.":goto163
  512. 524 print"[147][153][201]stut taksiin ja sanot kuskille:'[193]nna   palaa min[ maksan bensat'."
  513. 525 gosub31:print"[202]a kuski ajaa mink[ [205]ersulla p][see."
  514. 526 print"[208][[set [203]aavolan ohi ja k[sket pys[ytt[[.":gosub31
  515. 527 print"-[211]e tekee sitte 214,50 markkaa, sanoo   kuski."
  516. 528 print"[211]ulla ei tietenk[[n ole rahaa joten."
  517. 529 print"kuski iskee keskuslukituksen p[[lle ja  kiikuttaa sinut poliisiasemalle."
  518. 530 gosub31:print"[212][ll[ v[lin [203]aavola p[[si pakoon.":goto163
  519. 531 print"[147][158][211]elit[t hepuille (hipeille) bussissa,   ett[ ajat takaa vaarallista"
  520. 532 print"rikollista ja pyyd[t, ett[ he voisivat  auttaa bussinsa kanssa."
  521. 533 print"[197]r[s tyyppi sanoo:'[202]ees(us) saat s[ lai-nata [200][201][203]! t[t[ meir[n koslaa.'"
  522. 534 print"[200]uomaat, ett[ jengi on nauttinut liikaa yrttiteet[ ja niinp[ istut ";
  523. 535 print"puikkoihin":print"itse.":gosub31
  524. 536 print"[147][194]ussia ohjataan z n[pp[imell[ vasemmalleja / n[pp[imel[ oikealle."
  525. 537 print"[203]aavolan etumatka on jo 1050 m.":print"paina jotain":poke198,0
  526. 538 geta$:ifa$=""then538
  527. 539 goto11
  528. 540 poke198,0:forc=0to1000:next:print"[147][158][211]ait kaavolan kiinni."
  529. 541 print"[203]uinka toimit:":print"1 - [213]hkaat aseella.":print"2 - [212]appelet."
  530. 542 gosub56:ondgoto544,548
  531. 543 goto542
  532. 544 print"[147][158][203][219][196][197][212] [217][204][220][211] !":print"[203]aavola nostaa k[tens[ yl\s ja antautuu."
  533. 545 print"[212]oimitat h[net poliisin huostaan ja     huokaat helpotuksesta."
  534. 546 print"[206]yt nopeasti hakemaan levyj[ [198]loppyyn."
  535. 547 k=1:gosub31:goto73
  536. 548 print"[147][203]uinka tappelet:":print"1 - [200]eit[t niskalenkin."
  537. 549 print"2 - [204]y\t nyrkill[ leukaan.":print"3 - [200]uudat karatekahuudon."
  538. 550 print"4 - [207]dotat [203]aavolan aloitetta."
  539. 551 gosub56:ondgoto553,553,555,548
  540. 552 goto551
  541. 553 print"[147][158][203]aavola onkin karatemestari ja keikaut- taa sinut maahan ja pakenee."
  542. 554 print"[212]eht[v[si j[i kesken.":goto163
  543. 555 print"[147][153][200][202][210][193][193][193][200][203]kk kr\h r\ k\h k\h..."
  544. 556 print"[203]aavola pel[styy huutoasi ja antautuu.":goto545
  545. 557 print"[147][153][206]appaat virsikirjan yhdelt[ kiihkolai-  selta."
  546. 558 print"[202]a heit[t sill[ [203]aavolaa.":print"[203]irja ei tietenk[[n osu."
  547. 559 gosub31:print"[211]aarnaajat piiritt[v[t sinut ja alkavat"
  548. 560 print"rukoilla sinun turmeltuneelle sielulle  armoa ja pelastusta jne.."
  549. 561 print"[203]aavola h[ipyi horisontista ennen kuin  p[[sit eroon sielusi pelasta";
  550. 562 print"jista.":goto163
  551. 563 rem aani
  552. 564 print"[147][158][203]aavolan etumatka oli"e" metri["
  553. 565 print"kun t\rm[sit kadulla olleeseen mummoon."
  554. 566 print"[203]aavola p[[si karkuun.":goto163
  555. 567 data"[200]elsinki",10,"[212]ukholma",13,"[203]\\penhamina",14,"[207]slo",20,"[210]eykjavik",19
  556. 568 data"[204]ontoo",11,"[196]ublin",23
  557. 569 data"[204]issabon",13,"[199]ibraltar",10,"[195]asablanca",17,"[204]as [208]almas",20
  558. 570 data"[196]akar",25,"[204]agos",40,"[203]apkaupunki",32,"[196]ar es [211]alaam",43
  559. 571 data"[203]arachi",19,"[194]ombay",24,"[195]olombo",32,"[203]alkutta",48,"[211]ingapore",13
  560. 572 data"[211]aigon",22,"[200]ong[203]ong",17,"[211]haghai",14,"[198]ukuoka",9
  561. 573 data"[202]okohama",63,"[211]ydney",27,"[215]ellington",59,"[203]ap [200]orn",21
  562. 574 data"[205]ontevideo",18,"[211]antos",30,"[199]eorgetown",21
  563. 575 data"[208]anama",32,"[200]avanna",8,"[205]iami",15,"[196]iscovery",
  564. 576 print"[147][158][207]h hani, h[n vastaa."
  565. 577 print"[204][hdet beibin kanssa tutkimaan perinn\l-lisyyteen vaikuttavia ";
  566. 578 print"kromosomeja."
  567. 579 print"[202]aa'a [203]aavolan etsiminen taisi loppua."
  568. 580 print"[203]oetatko uudestaan (siis t[t[ peli[)?":gosub46:gosub54
  569. 581 ifb$="k"thenrun
  570. 582 ifb$="e"then352
  571. 583 goto580
  572. 584 data169,178,141,20,3,169,2,141,21,3,96,238,33,208,76,49,234
  573. 585 print"[147]":poke56576,196:poke53272,19:poke648,196:print"[147]":return
  574. 586 print"[147]":poke56576,199:poke53272,21:poke648,4:print"[147]":return
  575.