home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #2 / Floppy_Magazine_88-2_1988_Megasystems_Oy_fi_Side_B.d64 / ilpo1_88 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  21KB  |  449 lines
  1. 1 remark: luodesoft creations presents: 2 remark: ** ilpon seikkailut 1/1988 **(NULL)
  2. 2 a=a+1:ifa=1thenload"ilpocontrol",8,1
  3. 4 ifa=2thenload"ilpodisplay",8,1
  4. 6 clr:gosub42000
  5. 100 sys51176:poke53265,27:poke53270,8:print"[147]";:gosub302
  6. 110 print"     [174][184][185][175][185][170] [176][165][177][170][163][163][162] [162][182][175][185] [175][162][162][175][175][185][170][177][170]"
  7. 111 print"     & [161][162][178][181][177][162][174][162][162][170] [161][166][163][161][177][163][163][183] [161][184][185][182][177][167][176]"
  8. 112 print"[185][174][176] 2.":gosub50000
  9. 120 print"[147][212]ervetuloa [201]lpon seikkailuihin!"
  10. 121 print"[200]aluatko, ett[ kerron, mit[ viime jak-  sossa tapahtui??? (k/e):?"
  11. 122 gosub51000:ifa$="e"then200
  12. 130 print"[147][214]iime jaksossa [201]lpo sai teht[v[kseen ot-taa selv[[, kuinka ja miksi"
  13. 131 print"3 geologia sai surmansa."
  14. 132 print"[217]ksi geologeista oli suomalainen, yksi  taas norjalainen ja yksi oli"
  15. 133 print"amerikkalainen.":gosub50000
  16. 134 print"[147][211]uomalainen ty\skenteli [207]utokummun pal- veluksessa."
  17. 135 print"[193]merikkalainen oli [163][166][180][163][162][177][170] [174][185][163][176]-hankkeenasiantuntija ja norjalainen
  18. 136 [153]"oli taas er[[n norjalaisen kaivosyhti\n palveluksessa."
  19. 137 [153]"(NULL)irjepommimurhien syy selvisi tavatessa-si vanhan yliopistoheilasi"
  20. 138 [153]"(NULL)ew (NULL)orkissa hotellissa: ^getor+*newfrethen oli   koko murhaketjun takana!"
  21. 139 [153]"(NULL)kandium - tuo kultaakin arvokkaampi so-tavarusteluun k[ytett[v["
  22. 140 [153]"alkuaine oli murhaajien t[ht[imess[!":[141]50000
  23. 141 [153]"load(NULL)apasit samassa hotellissa..."
  24. 142 [153]"...vali mutta katso itse asc(NULL)(NULL)(NULL)(NULL)right$(NULL) 5/87!"
  25. 143 [153]"mid$os sinulla ei sit[ ole, niin tilaa:"
  26. 144 [153]"ascloppiksen irtonumeron hintahan on 39:-"
  27. 145 [153]"ja tilausosoite l\ytyy vaikkapa toimi-"
  28. 146 [153]"tuksen sivulta. mid$a nyt pelaamaan right$(NULL)(NULL)(NULL)atn!":[141]50000
  29. 200 :
  30. 210 [153]"load(NULL)iime kerran polttaviksi kysymyksiksi"
  31. 211 [153]"j[i, kuka on t[m[ salaper[inen (NULL)(NULL)(NULL)(NULL)"
  32. 212 [153]"(NULL)(NULL)(NULL)val(NULL), ja kuinka h[n liittyy t[h[n"
  33. 213 [153]"ketjuun. (NULL)aikki selvi[[ t[ss[ jaksossa.":[141]50000
  34. 220 [153]"load(NULL)let right$lsmanin kanssa kylm[ss[ huoneessa"
  35. 221 [153]"alasti. (NULL)alot ovat sammuneet ja"
  36. 222 [153]"right$lsmanin hermot alkavat pett[[."
  37. 223 [153]"(NULL)it[ teet?":[153]"1) left$akkaat ovea":[153]"2) (NULL)utkit ulosp[[syteit["
  38. 224 [153]"3) (NULL)aivat korvaasi"
  39. 225 [141]51000:[139]a$[178]"2"[167]235
  40. 226 [139]a$[178]"1"[167]230
  41. 227 [139]a$[178]"3"[167][153]"load(NULL)aivat korvaasi. (NULL)e pit[isi puhdistaa.":[141]50000
  42. 228 [137]220
  43. 230 [153]"loadleft$akkaat ovea, mutta siit[ ei ole mit[[n hy\ty[.":[141]50000:[137]220
  44. 235 [153]"load(NULL)utkit ulosp[[syteit[. (NULL)\yd[t laatikon"
  45. 236 [153]"takaa pienen kolon, josta peltisein[ on"
  46. 237 [153]"ilmeisesti ruostunut. (NULL)olosta n[kyy"
  47. 238 [153]"valoa.":[141]50000
  48. 239 [153]"load(NULL)rit[tk\ laajentaa aukkoa? (NULL)yll[ vai ei?":[141]51000
  49. 240 [139]a$[179][177]"k"[167]220
  50. 250 [153]"atnvaat varovasti peltej[. "
  51. 251 [153]"(NULL)[et, kuinka valo ulkoa voimistuu koko  ajan.":[141]50000
  52. 252 av[178]av[170]1:[139]av[179]5[167]239
  53. 253 [153]"load(NULL)opulta koko peltisein[ r[m[ht[[ alas   ja p[[set ulos.":[141]50000
  54. 254 [153]"load(NULL)tatko right$lsmanin mukaan, (NULL)/val?"
  55. 255 [141]51000:[139]a$[179][177]"e"[167]259
  56. 256 [153]"loadright$lsman raivostuu ja napauttaa sinulta   tajun kankaalle."
  57. 257 [153]"(NULL)un her[[t, roistot ovat teilanneet right$ls-manin viereesi ja nyt onkin"
  58. 258 [153]"^new+fre+ cosfrepos=pos^new. left$(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)!!.":[141]50000:[137]1000
  59. 259 [139]a$[179][177]"k"[167]254
  60. 260 [153]"load(NULL)tat right$lsmanin mukaan. (NULL)akenette syr-"
  61. 261 [153]"j[isi[ (NULL)ew (NULL)orkin kortteleita. (NULL)[[set-"
  62. 262 [153]"tekin ihmisten ilmoille. right$hmiset kumma"
  63. 263 [153]"kyll[ tuijottavat sinua ja kumppaniasi.":[141]50000
  64. 264 [153]"load(NULL)ummastelet, miss[s sit[ nyt taas on"
  65. 265 [153]"vikaa ja saat vastauksen katsomalla"
  66. 266 [153]"alasp[in. (NULL)lit jo tottunut alastomuu-"
  67. 267 [153]"teen niin, ett[ ep[huomiossa olit"
  68. 268 [153]"unohtanut etsi[ jotain p[[llesi.":[141]50000
  69. 270 [153]"load(NULL)ustamaija korjaa teid[t talteen."
  70. 271 [153]"(NULL)oliisiasemalla selvit[t kaiken ja"
  71. 272 [153]"l[hdette right$lsmanin kanssa puettuina"
  72. 273 [153]"hotelliisi. (NULL)apaat sgn>abs>+orn aulassa."
  73. 274 [153]"left$elena pyyt[[ sinut huoneeseensa drin-"
  74. 275 [153]"kille. right$lsman saa j[[d[ ulkopuolelle.":[141]50000
  75. 276 [153]"loadmid$uotte ^new+fre+ tilaamaasi samppanjaa,"
  76. 277 [153]"juuri oikean laatuista ja makuista.     (NULL)aikki tuntuu olevan hyvin.
  77. 278 print"...[214]ai onko sittenk[[n??? [202]okin on"
  78. 279 print"hullusti. [200]elenalla piti olla vain"
  79. 280 print"yksi rakastaja, [174][162][170][166]. [211][201][204][212][201] toisesta"
  80. 281 print"huoneesta tulee kolme hyvinpuettua mies-";
  81. 282 print"t[ aseet k[dess[ osoittaen sinua.":gosub50000
  82. 283 print"[147][205]it[ teet?":print"1) [211]y\ksyt [200]elenan luokse."
  83. 284 print"2) [207]tat pistoolisi takin taskusta."
  84. 285 print"3) [206]ostat k[det kohti kattoa.":gosub51000:ifa$="1"then290
  85. 286 ifa$="2"then296
  86. 287 ifa$="3"then300
  87. 288 goto283
  88. 290 print"[147][211]y\ksyess[si [200]elenan luokse [200]elena"
  89. 291 print"ottaa taskustaan k[siaseen ja taikoo"
  90. 292 print"punaisen napin otsaasi. [203]uolet siihen"
  91. 293 print"paikkaan.":gosub50000:goto1000
  92. 296 print"[147][207]let ottamassa juuri asetta taskusta,"
  93. 297 print"kun muistat, ettei siell[ mit[[n asetta"
  94. 298 print"ole ollutkaan. [200]assu juttu. [205]iehet"
  95. 299 print"hommasivat sinut enkelikuoroon.":gosub50000:goto1000
  96. 300 gosub302:goto310
  97. 302 poke53280,0:poke53281,0:poke52340,0
  98. 303 forl=0to7:poke53287+l,11:next
  99. 304 poke646,11:return
  100. 310 print"[147][206]ostat k[det kohti kattoa. [217]ht[kki["
  101. 311 print"tunnet huimausta. [202]otakin ainetta olikinsiis sujautetttu juomaasi.."
  102. 312 print"[212]unnet, kuinka taju heikkenee ja lopultakatoaa samoin kuin jalat";
  103. 313 print" altasi.":gosub50000
  104. 318 print"[147][203]un her[[t, toteat olevasi arkussa.":sys824
  105. 319 print"[203]uuntelet. [204]entokoneen [[ni. [202][193][193][200][193]."
  106. 320 print"[210]uumisarkkutemppu, vanha kikka muiluttaa";
  107. 321 print"henkil\it[ ilmateitse maasta.":print"[203]unpa tulliviranomaiset ";
  108. 322 print"olisivat tajun-":print"neet kurkistaa sis[lle. [214]aan ei...":gosub50000
  109. 323 print"[147][212]utkit, saisiko arkun auki.":gosub50000
  110. 324 print"[147][197]t saa sit[ auki.":gosub50000
  111. 325 print"[147][204]uovutat ja p[[t[t nukahtaa odotellessa-si kohtaloa.":gosub50000
  112. 330 print"[147][193]ika kuluu.":pi$="?pic ? 3pic*":yl=48:al=98
  113. 331 vi$="[207]let lentokoneessa jossain korkealla.":gosub20000
  114. 340 print"[205]atka kest[[...":sys824
  115. 341 print"[205][[r[np[[ on kuitenkin tuntematon."
  116. 342 print"[208][[t[t taas nukkua.":gosub50000
  117. 343 sys879:print"...[205]atka kest[[ kauan...":gosub50000:sys1008
  118. 350 poke52336,0:print"[147][200]er[[t siihen, kun joku avaa arkun kant-ta.":gosub50000
  119. 351 print"[147][212]unnet olosi ep[miellytt[v[ksi, sill["
  120. 352 print"et voi muuta kuin odottaa mit[ seuraa-  vaksi tapahtuu.":gosub50000
  121. 355 print"[147][193]rkkua avataan.":pi$="?pic ? basa*":yl=192:al=255
  122. 356 vi$="[207]let mahtavassa jalokivin koristellussa palatsissa.":gosub20000:sys862
  123. 360 print"[201]tse [207]tto [210]\sel istuu uima-altaansa reu-nalla.":poke53280,3
  124. 361 print"[214]artijat nostavat sinut arkusta.":poke52340,3
  125. 362 print"[207]let aivan turtana matkasta.":print"[207]tto [210]\sel k[skee vartijoiden"
  126. 363 print"vied[ sinut selvi[m[[n matkan":print"rasituksista."
  127. 364 print"[208]er[[n h[n huutaa '[180][177][178][178][176] [175][162][162][175][175][185][170][177][170] !!"
  128. 365 print"[185][172][185][163][176][170] [174][162][170][184][182][163][176] [163][162][177][163][185][181][176]. [174][177][170] [163][176][161][162][176]":print"[174][166][166][174][163][162][170] [174][162][170][184][163].'":gosub50000
  129. 366 sys862
  130. 370 print"[211]euraavana aamuna her[[t kovalla vuo-   teella."
  131. 371 print"[193]urinko paistaa l[mmitt[v[sti huoneesi  ikkunoista. [214]ain kalterit";
  132. 372 print" ovat tiell[":print"aamuauringon kullankeltaisen hohteen"
  133. 373 print"huoneesi t[ytt[miseksi.":print"[203]uulet oven avautuvan."
  134. 374 print"[207]tto [210]\sel ja [200]elena saapuvat kolmen"
  135. 375 print"tehokkaasti aseistetun miehen kanssa    koppiisi.":gosub50000:sys862
  136. 376 print"[193]iot nousta yl\s, mutta vahdit konepis- tooleineen saavat sinut";
  137. 377 print" pysym[[n":print"s[ngyss[.. [212]aitaa olla ensimm[inen ker- ";
  138. 378 print"ta, kun tunnet olosi ep[miellytt[v[ksi  juuri [174][166][170][165][183][174][174][166]!!!"
  139. 379 gosub50000:sys862
  140. 380 print"[205]it[ teet?":print"1) [203]ysyt, mit[ [200]elena t[[ll[ tekee."
  141. 381 print"2) [203]ysyt, mit[ [210]\sel tahtoo sinusta."
  142. 382 print"3) [203]ysyt, miten [210]\sel liittyy n[ihin ta-   pahtumiin."
  143. 383 print"4) [203]ysyt, miksi [200]elena on [210]\selin puo-     lella."
  144. 384 print"5) [203]ysyt, miss[ t[[ll[ on vessa."
  145. 385 gosub51000:ifa$="4"then391
  146. 386 ifa$="5"then393
  147. 387 ifa$="2"then396
  148. 388 ifa$="3"then401
  149. 389 ifa$<>"1"then385
  150. 390 goto420
  151. 391 sys862:print"'[210]ahan ja vallan vuoksi', sanoo [200]elena   ja ampuu sinut."
  152. 392 print"[206]aiset, niist[ ei kukaan ota selv[[...":gosub50000:goto1000
  153. 393 sys862:print"[214]artijat opastavat sinut vessaan. [207]n to-della ihanaa p[[st[";
  154. 394 print" vihdoinkin vessaan,":print"sill[ yhdess[k[[n [201]lpossa [201]lpoa ei ole"
  155. 395 print"p[[stetty vessaan asialle!!!":gosub50000:sys862:goto380
  156. 396 sys862:print"[212]ahdon tietoja [211]uoposta ja kuinka paljonse tiet[[ minusta!"
  157. 397 print"[211]aatkin kohta vastata kuuteen tusinaan  kysymykseen. [202]ollet suostu";
  158. 398 print" yhteisty\h\n,";:print"annan [200]elenan toimia kirurgina, sin[    ";
  159. 399 print"tietysti preparaattina... [203]uulostaa hy- v[lt[, vai???":gosub50000
  160. 400 sys862:goto380
  161. 401 sys862:print"[207]tto sanoo: '[206]o, voinhan sen kertoa,"
  162. 402 print"koska t[[lt[ et el[v[n[ poistu. [207]len ke-hitt[m[ss[ uutta laser-";
  163. 403 print"teknologian":print"ihmett[, asetta, joka satelliittia"
  164. 404 print"apunak[ytt[en pystyy tuhoamaan mink[    tahansa alueen hetkess[."
  165. 405 gosub50000:sys862:print"";
  166. 406 print"[205]utta enh[n [167][162][170][166] nyt [170][162][162][170] [178][176][176][161][176] ole,    riitt[[, ett[ koko maapallo"
  167. 407 print"antautuu minulle. [200]aa, voin kuvitella   jo, kuinka kansat juhlivat"
  168. 408 print"[167][162][170][184][176]. [167][162][170][166] olen viisain ja mahtavin!!":gosub50000:sys862
  169. 409 print"[206]orjan kaivoksessani on aseeni viimeinenosa, satelliitti, kohta";
  170. 410 print" valmis.":print"...[202]a sitten sin[ olet historiaa, yst[- v[ni!'":t=1
  171. 411 gosub50000:sys862:goto380
  172. 420 sys862:print"'[205]y [204]ady, vastaa sin[!', huudahtaa [210]\seliloisesti."
  173. 421 gosub50000:sys862
  174. 422 print"[200]elena aloittaa: '[210]ahahan t[ss[ ratkai- see, idiootti! ...[206]iin, ";
  175. 423 print"ja luontaisedut...":print"[211]aan [207]tto-mussukalta [203][193][201][203][197][206], mit[ haluan";
  176. 424 print"ja v[h[n enemm[nkin... [207]li muuten mukavay\ siell[ [206]ykiss[...'"
  177. 425 print"[210]\sel keskeytt[[. '[211]iin[s kuulit, poju. t[[ll[ ei hinta est[";
  178. 426 print" ostamista.'":gosub50000:sys862
  179. 427 print"[212]oteat, ett[ he yritt[v[t ostaa [174][162][170][184][163][161][162][170]ruotuunsa. [205]it[ teet??"
  180. 430 print"1) [204]iityt heihin.":print"2) [197][212] liity heihin."
  181. 431 print"3) [208]akenet.":print"4) [206]appaat [200]elenan panttivangiksi."
  182. 432 print"5) [203]atselet ikkunasta ulos.":ifn=2thenprint"6) [211]y\ksyt s[nkysi alle."
  183. 433 gosub51000:sys862:a=val(a$):onagoto440,445,447,450
  184. 434 ifa$="5"thenn=n+1:onngosub460,462
  185. 435 ifn=2anda=6then470
  186. 436 ifn=3then2000
  187. 437 gosub50000:sys862:print"[205]it[ teet??":goto430
  188. 440 print"[207]tto ilahtuu ja sanoo: '[206]oin kunnon     agentti k[ytt[ytyy!!'"
  189. 441 gosub50000:sys862:print"[211]itten er[s vartija kuiskaa [207]tolle jo-  tain..."
  190. 442 print"'[207]lemme tulleet uuteen tulokseen. [204]ah-   jottavissa olevaan"
  191. 443 print"agenttiin ei voi luottaa', sanoo [207]tto jaampuu sinut."
  192. 444 gosub50000:goto1000
  193. 445 print"'[197]mme halua pakottaakaan sinua, ja sik- sip[...', sanoo [207]tto..."
  194. 446 gosub50000:sys862:print"...ja ampuu sinut.":gosub50000:goto1000
  195. 447 print"[197]t ehdi mihink[[n, kun konekiv[[rit ja  sin[ ulvahtavat."
  196. 448 gosub50000:goto1000
  197. 450 print"[206]appaat [200]elenan panttivangiksi ja sanot tappavasi [200]elenan, jollei"
  198. 451 print"[207]tto suostu neuvottelemaan kanssasi.":gosub50000
  199. 452 print"[200]elenasta huolimatta [207]tto ottaa aseen   taskustaan ja antaa sen"
  200. 453 print"soittaa surullisen s[velm[ns[.":gosub50000:goto1000
  201. 460 print"[203]atsoessasi ikkunasta ulos n[et [162][182][174][167][176][170][162][170]heiluttelevan k[si[[n."
  202. 461 return
  203. 462 print"[203]atsot uudelleen. [201]lsman osoittaa k[sil-l[ns[ alasp[in ja yritt[["
  204. 463 print"sanoa jotain h[t[isesti. [202]otain on siis tapahtumassa.":h=1:return
  205. 470 sys862:print"[200]ypp[[t s[nkysi taakse.":forg=1to500:next
  206. 471 sys824:forg=1to64:poke53280,g:poke52340,g:next
  207. 472 sys1008:poke52336,0:poke53280,0:poke52340,0
  208. 480 print"[147][200]avaitset olevasi [210]\selin lis[ksi ainoa,joka hoksasi suojautua."
  209. 481 gosub50000:print"[147][206]yt ei kuitenkaan ole aikaa ottaa [210]\sel"
  210. 482 print"sill[ palatsin vartijat kuuluvat jo pys-syt paukuten laukkaavan"
  211. 483 print"pitkin tornin rappusia. [201]lsmanillakin onkiire.":gosub50000
  212. 484 print"[147][211]y\ksytte [201]lsmanin kanssa tukka vinossa r[nni[ yh[ alas."
  213. 485 gosub50000:h=h+1:ifh<10then484
  214. 490 print"[147][211]aavutte alas. [211]y\ksytte salamannopeastipalatsin muureille."
  215. 491 print"[201]lsman huutaa jotain turkiksi ja saman- tien vet[[ sinut pois";
  216. 492 print" muurin luota.":gosub50000:sys824:forl=1to600:next:sys1008
  217. 493 print"[147][203]uuluu koneen m\yry[mist[ ja samantien  muuri hajoaa r[j[hdyksen";
  218. 494 print" voimasta.":gosub50000
  219. 495 print"[147][206][et panssarin, joka on ampunut muuriin miehenment[v[n rei[n."
  220. 496 gosub50000:print"[147][211]y\ksytte rei[st[ ulos ja menette pai-  kalla odottavaa";
  221. 497 print"n amerikanrautaan.":print"[201]lsman tarttuu rattiin.":pi$="?pic ? 3pic*"
  222. 498 yl=106:al=178:vi$="[201]lsman kaahaa autolla pois maisemista.":gosub50000
  223. 499 print"[147][205]aisemat vilist[v[t.":gosub20000:forl=53287to53295:pokel,7:next
  224. 500 poke53280,14:poke52340,14
  225. 501 print"[207]lette jo 30 kilometrin p[[ss[ [210]\selin  palatsista.";:gosub50000
  226. 510 print"...[203]unnes huomaatte helikopterin takana-p[in. [211]e alkaa tulittaa."
  227. 511 print"[201]lsman kiihdytt[[ romunsa voimat [[rim- milleen.";
  228. 512 print"                               "
  229. 513 print"[212]unnet, kuinka helikopteri saavuttaa    teit[ nopeasti.";
  230. 514 print"                        "
  231. 515 print"[203]uulet, kuinka luoteja ropisee takanan- ne."
  232. 516 print"[212]ilanne n[ytt[[ pahalta!![145][145]":gosub50000
  233. 519 sys824:forl=1to64:poke52341,l:next
  234. 520 sys1008:forl=1to32:poke52340,l:poke53280,l:next
  235. 521 poke52336,0
  236. 522 print"[147][204]opulta luotisade osuu autoonne ja auto alkaa heittelehti[."
  237. 523 gosub50000
  238. 524 print"[147][201]lsman yritt[[ pit[[ auton tiell[, muttatilanne n[ytt[[ toivot";
  239. 525 print"tomalta.":gosub50000
  240. 526 print"[147][200]ypp[[tte autosta ulos er[[n hein[kasan kohdalla ja autonne jatkaa";
  241. 527 print" matkaansa":print"savimajan, turkkilaisen talon, sein[[n"
  242. 528 print"r[j[ht[en kappaleiksi helikopterista"
  243. 529 print"lent[neen pommin [190][176][162][161][184][163][184][161][174][177][174][163][176] [176][174][162][176][176][170]..":gosub50000
  244. 539 print"[147][208]y\rryt matkan rasituksiin ja energian  puutteeseen.":gosub50000
  245. 540 print"[147][207]let tajuton.":pi$="?pic ? istanb*"
  246. 541 yl=32:al=255:vi$="[177][172][177][174][174][166][174][162] [176][190][176][184][163][184][184] [184][170][177][182][167][162][177][170] [181][176] [174][177][162][161][161][176][162][182][184][181][177][170] [162][174][163][176][170][191][184][182]."
  247. 542 gosub41000:gosub20000:forl=1to10000:next:poke198,0
  248. 543 ifpeek(52339)<>0then543
  249. 544 vi$="[208]aina jotain...":v=1:gosub20000
  250. 545 ifpeek(198)>0then550
  251. 546 ifpeek(52339)<>0then545
  252. 547 forl=1to5000:next:goto544
  253. 549 print"";:return
  254. 550 poke52338,178:gosub42000
  255. 551 gosub549:print"[200]er[[t siihen, kun iltarusko peitt[["
  256. 552 print"[201]stanbulin taivaan.[145][145]":gosub50000
  257. 553 gosub549:print"[197]nsimm[inen kysymyksesi onkin 'kuinka"
  258. 554 print"l\ysit minut??'    [145][145]":gosub50000
  259. 555 gosub549:print"[201]lsman vastaa, ett[ h[n ep[ili [200]ele- "
  260. 556 print"naa jo alussa.     [145][145]":gosub50000
  261. 557 gosub549:print"...[211]en j[lkeen [201]lsman vain seurasi, "
  262. 558 print"minne sinua vietiin.[145][145]":gosub50000
  263. 559 poke52336,0
  264. 560 print"[147][201]lsman sivelee kasvojasi jollain anti-  septisella aineella."
  265. 561 print"[203]yselet tilannetta ja kertaat asioita.  [201]lsman on hyvin kiinnostunut"
  266. 562 print"kuulemistasi asioista.":gosub50000
  267. 563 ift=1then570
  268. 564 print"[147][201]k[v[ kyll[ et tied[, miten jatkaa t[st[eteenp[in, sill[ ainoastaan"
  269. 565 print"[210]\sel tiesi, miss[ heid[n tukikohtansa  on. [207]lisi pit[nyt olla ";
  270. 566 print"uteliaampi":print"tavatessasi [210]\selin.":gosub50000
  271. 567 print"[147][208]omosi [211]uomessa erottavat sinut toimes- si.":gosub50000
  272. 568 print"[147][210]\sel saa maailman hallintaan ja muuten-kin on maailmanlopun";
  273. 569 print" meininki!":gosub50000:goto1000
  274. 570 print"[147][203]uullessaan, mist[ on kysymys, [201]lsman   soittaa pari puhelua ja "
  275. 571 print"ilmoittaa, ett[ saat passisi ja muut    tavarasi takaisin."
  276. 572 print"[206]e tulevat suoraan [213][211][193]sta erikoiskurii- ripostina [201]lsmanille."
  277. 573 gosub50000
  278. 580 print"[147][211]anot tyytyv[si kuitenkin vain hammas-  harjaan, lompakkoon ja";
  279. 581 print" sinivalkoiseen":print"sinet\ityyn taskukokoiseen pakettiin."
  280. 582 gosub50000
  281. 583 print"[147][201]lsman katsoo sinua hymyillen.":gosub50000
  282. 584 print"[147]'[211]aitko taas tukkutarjouksena joka-agen-tin-h[t[varapakkauksen???'"
  283. 585 print"...kysyy [201]lsman.":gosub50000
  284. 586 print"[147][205]y\nn[t ja sanot, ett[ [193][201][196][211]in takia nii-t[...":gosub50000
  285. 590 print"[147][211]ovitte tapaavanne [208]ohjois-[206]orjassa     [193]ltan kaupungissa."
  286. 591 gosub50000
  287. 600 print"[147][205]it[ teet???":print"1) [204][hdet satamaan."
  288. 601 print"2) [205]enet juna-asemalle.":print"3) [203]uljet lentokent[lle."
  289. 602 print"4) [205]atkaat ravintolaan.":print"5) [212]alsit alkoholiliikkeeseen."
  290. 603 print"6) [208]atikoit [211]uomen suurl[hetyst\\n.":print"7) [212]ilaat taksin."
  291. 604 gosub51000:ifa$<"1"ora$>"7"then604
  292. 605 a=val(a$):onagoto609,612,609,614,630,636,642
  293. 609 print"[147][208][[sty[si m[[r[np[[h[si varkaat ry\st[- v[t ja mukiloivat ";
  294. 610 print"sinut pahasti.":print"[197]t voi jatkaa tuossa kunnossa peli[!!"
  295. 611 gosub50000:goto1000
  296. 612 print"[147][212]oteat, ett[ [197][212] halua l[hte[ junalla    n[hty[si ne.":gosub50000
  297. 613 goto600
  298. 614 print"[147][211]aavut ravintolaan. [200]ovimestari osoittaasinulle p\yd[n ja kysyy";
  299. 615 print" tilaustasi.":gosub50000
  300. 616 print"[147] --------- [212][184]r[203][197][183]'s a' la [195][176]r[163][197] --------":print"[198]erydhye (1)"
  301. 617 print" ---------------------------------------[151]"
  302. 618 print"[212]arjoilija kysyy, mit[ haluat tilata.":print"1) [198]erydhye:t["
  303. 619 print"2) [197]t mit[[n.":print"[212]arjoilija kehuu [198]erydhye:t[."
  304. 620 gosub51000:ifa$="1"then624
  305. 621 ifa$<>"2"then620
  306. 622 print"[147][208]oistut ravintolasta nopeasti.":gosub50000:goto600
  307. 624 print"[147][203]ysyt mit[ [198]erydhye on, ja tarjoilija   vastaa sen olevan kanakeit";
  308. 625 print"toa":print"turkkilaisittain.":gosub50000
  309. 626 print"[147][211]y\ty[si annoksesi olet eritt[in kyll[i-nen. [205]aksat ja poistut."
  310. 627 r=1:gosub50000:goto600
  311. 630 print"[147][197]t l\yd[ alkoholiliikett[ n[ilt[ kulmil-ta, mutta er[[st[ supermar-"
  312. 631 print"ketista l\yd[t alkoholia enemm[n kuin   kotipuolen [193]lkon suur";
  313. 632 print"varastosta.":gosub50000
  314. 633 print"[147][202]uovut kuitenkin niin pahasti, ett[ et  voi jatkaa peli[."
  315. 634 print"[207]ma vikasi....":gosub50000:goto1000
  316. 636 print"[147][211]aavuttuasi [211]uomen suurl[hetyst\\n ta-  paat [205]oskolan.":gosub50000
  317. 637 print"[147]'[162][182][175][185]!!! [167][162][163][166] [174][162][170][166] [163][166][166][182][182][166] [163][177][177][163]???',     kysyy pomosi.":gosub50000
  318. 638 print"[147][214]astaat olevasi suorittamassa teht[v[[sija olet jo pitk[ll[."
  319. 639 print"[203]errot kaiken ja laadit [197]nsion kanssa   [211]uunnitelma [161][162][161][161][176][190][162][162][163][185][174][177][170]."
  320. 640 print"[212]eht[v[[si kuuluu menn[ mahdollisimman  suoraan [193]ltaan ja hoitaa"
  321. 641 print"homma kotiin!!!!":gosub50000:t=1:goto600
  322. 642 print"[147][208][[t[t siis tilata taksin.":print"[207]dotettuasi n. 1/2 tuntia,"
  323. 643 print"kuulet jonkin traktorin l[hestyv[n.":gosub50000
  324. 644 print"[147][197]i, eih[n se mik[[n traktori ole, vaan  sinun [163][176][161][174][162][174][162]...":gosub50000
  325. 645 print"[147][212]urkkilainen taksi, tuo vanha amerikka- lainen farmariauto, ottaa"
  326. 646 print"sinut kyytiins[.":print"[193]htauduttuasi kanojen sekaan pyyd[t"
  327. 647 print"taksiajajaa viem[[n sinut l[himp[[n     [194]osporinsalmen yli menev[[n";
  328. 648 print" laivaan.":print"'[181][177][177][174] [174][168][168][178]', sanoo kuski.":gosub50000
  329. 650 ifr=1then660
  330. 651 print"[147][205]atkalla sinulle tulee kova n[lk[.":gosub50000
  331. 652 print"[147][193]latkin katsella sopivaa kanaa paistiksisinulle."
  332. 653 print"[212]aksinkuljettaja katselee sinua ep[luu- loisesti.":gosub50000
  333. 654 print"[147][207]tat mehevimm[n kanan ja ker[[t pari    juuri munittua munaa ";
  334. 655 print"takapenkilt[.":gosub50000
  335. 656 print"[147][212]aksisuhari suuttuu, alkaa [hl[ms[hl[[- m[[n ja lopulta kalauttaa"
  336. 657 print"kalloosi hiukan liiankin kovaa.":gosub50000
  337. 658 print"[147][211]eurauksena siit[ p[[set taivaalliseen  agenttiyhdistykseen."
  338. 659 gosub50000:goto1000
  339. 660 print"[147][211]aavutte er[[seen [214][193][210][211][201][206] h[m[r[[n sata- makortteliin.":gosub50000
  340. 661 print"[147][211]uhari ajaa sinut pienen purren luo ja  sanoo, ett[ 'serkkuni"
  341. 662 print"kuljettaa teid[t eritt[in halvalla sal- men yli.'":gosub50000
  342. 663 print"[147][203]iit[t ja serkkupoika miehist\ineen"
  343. 664 print"(jotka n[ytt[v[t aivan merirosvoilta)"
  344. 665 print"irroittavat veneen satamasta.":gosub43000:gosub50000
  345. 666 print"[147]...[207]lette menneet jo hyv[n matkaa salmenyli, kun poliisivene k[[n";
  346. 667 print"tyy":print"teit[ kohti ja pist[[ melkoisen ulinan  p[[lle."
  347. 668 gosub44000:gosub50000
  348. 670 print"[147][205]iehist\ h[t[[ntyy ja 'serkku' huutaa   jotain turkiksi.":gosub50000
  349. 671 print"[147][203][[nnytte kohti etel[[. [217]hdess[ hetkess[pienest[ purresta on tul";
  350. 672 print"lut":print"kantosiipialus.":gosub40000:gosub50000
  351. 673 print"[147][193]lus l[htee kiit[m[[n t[ysi[ kohti [214][li-merta."
  352. 674 print"[203]ysyt kapteenilta, mihin olemme matkallaja kapteeni (serkku) vastaa,"
  353. 675 print"ett[ [210]hodoksen saarelle. [200]eid[n salakul-jettajaporukkansa oleskelu"
  354. 676 print"[212]urkissa on nyt liian vaarallista heid[nhengilleen...":gosub50000
  355. 679 print"[147][205]atka kest[[ kauan...":gosub50000
  356. 680 forl=1to10:print"[147]...ja kest[[...":gosub50000:next
  357. 681 print"[147]...[203]unnes tullaan [210]hodoksen saaren l[-  helle. [211]en havaitset";
  358. 682 print" lokkiparvista":print"taivaalla.":gosub50000
  359. 683 print"[147][211]aavutte [210]hodoksen satamaan.":yl=32:al=106
  360. 684 vi$="[170][166][177][163] [174][176][163][176][167][176][174][174][176] [174][176][163][185][181][176] [163][184][178][162][174][163][177][181][176], [161][183][167][167][177][170][162][166] [163][184][178][161][161][162][182][176][162][174][162][176], [181][176] [175][176][178][162] "
  361. 685 vi$=vi$+"[161][178][177][162][161][161][176][182][176][162][174][163][176]...":pi$="?pic ? rho*":gosub43000:gosub20000
  362. 686 forl=0to7:poke53287+l,0:next:sys879:gosub45000
  363. 687 forl=1to14000:next:vi$="[208]aina jotain...":v=1:gosub20000:gosub51000
  364. 690 print"[159][197]ik\ olekin huono kuva???"
  365. 691 print"[197]t saa mit[[n selv[[ [210]hodoksen satamas- ta, eth[n???"
  366. 692 print"[212]oivoisitko kuvasta selvemm[n???":print"[206][ihin kysymyksiin vastasit";
  367. 693 print" varmasti    [163][162][177][163][183][174][163][162]!!!!":gosub50000
  368. 694 poke52336,0
  369. 695 print"[147][152][211]en takia saatkin nyt odottaa [198]loppis   3/88:aa! [201]lpo jatkuu ensi";
  370. 696 print" numerossa!!":print"[212]apaamisiin.":gosub50000:goto1004
  371. 999 rem(NULL)
  372. 1000 poke52336,0
  373. 1001 print"[147][163][166][167][166][170][160][174][177][162][161][161][176][162][182][184][170][160][182][166][175][162][161][166][183][167][162][170][177][170]"
  374. 1002 print"[177][172][177][182][182][183][163][163][166][166][160][178][162][174][161][162][177][170][160][185][163][163][176][167][162][174][163][176]."
  375. 1003 print"[174][162][170][166][160][185][163][162][163][160][181][176][160][167][177][170][177][163][162][163][160][175][177][182][162][170]..."
  376. 1004 print"[185][170][170][177][161][174][162][160][174][162][170][184][182][182][176][160][185][170][160][167][176][180][172][185][182][182][162]- "
  377. 1005 print"[174][184][184][174][160][175][177][182][176][163][176][160][175][177][182][162][160][184][184][172][177][182][182][177][177][170][160][160][160]"
  378. 1006 print"[180][176][182][184][163][161][185].. [190][176][174][163][176][176][160][161][183][182][182][166][160][163][176][162][160][177][162]"
  379. 1007 gosub51000:ifa$<>"e"anda$<>"k"then1007
  380. 1008 ifa$="k"thenrun6
  381. 1009 print"[147][162][182][175][185][170][160][163][177][161][162][190][166][163]:[160][160][160][160][160][160][160][160]"
  382. 1010 print"[163][185][170][162][160][182][184][185][172][177][160]([185][180][181][177][182][167][176] & [163][176][162][172][177])"
  383. 1011 print"[174][176][167][175][174][176][160][174][176][167][162][182][176][160][160][160]([174][175][182][162][163]-[175][178][165].)":gosub45000:gosub50000
  384. 1012 gosub51000:sys64738
  385. 2000 sys824:forl=1to255:poke53280,l:next
  386. 2001 sys1008:poke52336,0
  387. 2002 print"[147][212]ornissa r[j[ht[[ pommi, joka tappaa    kaikki siell[ olijat."
  388. 2003 print"[211]e oli menoa se...":gosub50000:goto1000
  389. 5000 goto50000
  390. 20000 rem * kuvanlataus *
  391. 20001 poke52336,0:vi=1:ifvi$=""thenvi=0:goto20004
  392. 20002 vi$=vi$+"@"
  393. 20003 forl=1tolen(vi$):poke679+l,asc(mid$(vi$,l,1)):next:sys896
  394. 20004 poke52337,yl:poke52338,al
  395. 20005 ifv=1thenv=0:goto20008
  396. 20006 forl=1tolen(pi$):poke50151+l,asc(mid$(pi$,l,1)):next
  397. 20007 poke50167,15:poke648,4:sys52224:sys58784:sys65412
  398. 20008 sys51176:gosub302:sys52352:poke52336,1:poke52339,vi:return
  399. 30000 c$=chr$(34):print"s0:ilpo ii":open15,8,15,"s0:ilpo ii":gosub30010
  400. 30001 print"r0:ilpo ii":print#15,"r0:ilpo ii=ilpo1/88":gosub30010
  401. 30002 print"save":save"ilpo1/88",8,1:gosub30010:print"v[197]":verify"ilpo1/88",8,1
  402. 30003 gosub30010
  403. 30004 print"[211]y\t[ [198][205]2!!":gosub50000:gosub30010:print"s0:ilpo1/88"
  404. 30005 print#15,"s0:ilpo1/88":gosub30010:print"save":save"ilpo1/88",8,1
  405. 30006 gosub30010:print"verify":verify"ilpo1/88",8,1
  406. 30007 gosub30010:close15:end
  407. 30010 input#15,a,b$,c,d:printa;b$;c;d:return
  408. 40000 rem * moly 1. *
  409. 40001 forl=54272to54296:pokel,0:next
  410. 40002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  411. 40003 pokes+4,85:fr=1225
  412. 40004 fort=1to400:fq=fr+peek(s+27)+3.5:hf=int(fq/256):lf=fq-hf*256
  413. 40005 pokes,lf:pokes+1,hf:next
  414. 40006 poke54296,0:return
  415. 41000 rem * moly 2. *
  416. 41001 forl=54272to54296:pokel,0:next
  417. 41002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  418. 41003 pokes+4,85
  419. 41005 pokes,10:pokes+1,200
  420. 41006 return
  421. 42000 rem * molyt pois *
  422. 42001 forl=54272to54296:pokel,0:next:poke54296,0:return
  423. 43000 rem * moly 3. *
  424. 43001 forl=54272to54296:pokel,0:next
  425. 43002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  426. 43003 pokes+4,85
  427. 43005 pokes,81:pokes+1,03
  428. 43006 return
  429. 44000 rem * moly 4. *
  430. 44001 forl=54272to54296:pokel,0:next
  431. 44002 s=54272:pokes+1,100:pokes+5,219:pokes+15,28:pokes+24,15:pokes+4,85
  432. 44003 fort=1to5000:next:pokes+4,18
  433. 44004 remfort=1to1000:next
  434. 44006 return
  435. 45000 rem * moly 5. *
  436. 45001 forl=54272to54296:pokel,0:next
  437. 45002 s=54272:pokes+1,130:pokes+5,9:pokes+15,30:pokes+24,15
  438. 45003 fort=1to12:pokes+4,21
  439. 45004 fort=1to1000:next:pokes+4,20
  440. 45005 fort=1to1000:next
  441. 45006 return
  442. 50000 rem * get *
  443. 50001 v=peek(646):print"[159][223][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][223]"
  444. 50002 print"[221][156][192][192][192][192][192][158] [175][176][162][170][176] [181][185][163][176][162][170] [170][166][175][175][166][162][170][163][166].. [156][192][192][192][192][192][159][221]"
  445. 50003 print"[223][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][223]":poke646,v
  446. 50004 poke198,0:wait198,1:poke198,0:return
  447. 51000 rem * get+answer *
  448. 51001 a$="":poke198,0:wait198,1:geta$:return
  449.