home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #6 / Floppy_Magazine_88-6_1988_Megasystems_Oy_fi_Side_B.d64 / ilpo3_88 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  301 lines
  1. 1 remark: luodesoft creations presents: 2 remark: ** ilpon seikkailut 3/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]";:gosub602
  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] 4.":gosub50000
  9. 120 print"[147][212]ervetuloa [201]lpon seikkailuihin!"
  10. 121 print"[200]aluatko, ett[ kerron, mit[ on tapahtu- nut t[t[ ennen??? (k/e):?"
  11. 122 gosub51000:ifa$="e"then200
  12. 130 print"[147][193]lkujaksossa [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 sivun alalaidasta. mid$a nyt jatke- taan!":[141]50000
  29. 147 [153]"load (NULL)akkosjaksossa right$lpo kidnapattiin postab(tab(pos   =not^>absnew+ toimesta (NULL)val(NULL)";
  30. 148 [153]" (NULL)(NULL)(NULL)(NULL)ista right$stan-":[153]"buliin.":[153]" right$lpo kuitenkin karkasi (NULL)\selin pa-"
  31. 149 [153]"latsista newabs^thenor+new+, (NULL)urkin salaisen po-  liisin miehen, avustuksella."
  32. 150 [141]50000:[153]"load (NULL)y\hemmin right$lpo tapasi pomonsa valnsion"
  33. 151 [153]"(NULL)uomen suurl[hetyst\ss[. (NULL)ovittiin, ett[l[hdet kohti (NULL)ohjois-(NULL)orjaa,"
  34. 152 [153]"jossa (NULL)\sel on kehitellyt uutta super-  asetta, joka mahdollistaa";
  35. 153 [153]" h[nen maail-":[153]"manvalloitussuunnitelmansa.":[141]50000
  36. 154 [153]"load (NULL)[hdet viipym[tt[ ensimm[isell[ laival-la peekosporinsalmen y";
  37. 155 [153]"li. ...(NULL)ai et":[153]"sittenk[[n. (NULL)alitsemasi laiva sattui"
  38. 156 [153]"olemaan turkkilaisten salakujettajien   vene, joka joutuikin k[[nt[-"
  39. 157 [153]"m[[n kokkansa kohti (NULL)hodoksen saarta,   koska poliisit tunsivat alu";
  40. 158 [153]"ksen kesken":[153]"peekosporinsalmen ylitt[misen."
  41. 159 [153]"(NULL)akenet nyt pitkin (NULL)hodosta roistot pe- r[ss[si."
  42. 160 [153]"(NULL)en takia sait muitakin ongelmia kuin   (NULL)tto (NULL)\selin... (NULL)nnea seik";
  43. 161 [153]"kailuun.":[141]50000
  44. 200 :
  45. 370 [153]"load(NULL)let ajanut vuokraamallasi autolla (NULL)indokseen."
  46. 371 [153]"(NULL)[[sit juuri ja juuri perille.":[141]50000
  47. 372 [153]"atnjat str$atsunilla (NULL)indoksen kukkulalle.":[141]50000
  48. 373 [129]ct[178]1[164]8:[153]"load":[129]ce[178]1[164]ct:[153]"":[130]:[151]646,ct[170]1
  49. 374 [153]"...hitaasti...":[141]50000:[130]
  50. 375 [153]"load...(NULL)unnes ollaan kukkulalla.":yl[178]32[170]8[172]14:al[178]255
  51. 376 vi$[178]"posabs>tab( ^ororandfre+fretab( absnew+*posget^>+ getfregetgetfreabsposnewabsabs>..."
  52. 377 vi$[178]vi$[170]" andornew+or intpostab(ornew+...":pi$[178]"?pic ? rho*":[141]20000
  53. 378 [158]879:[141]51000
  54. 380 [153]"(NULL)arkkeeraat autosi. (NULL)ouset ulos ja      katselet ymp[rillesi."
  55. 381 [141]50000
  56. 382 [153]"(NULL)enet pienen vanhuksen yll[pit[m[n      kioskin luokse.       "
  57. 383 [141]50000
  58. 384 [153]"(NULL)tat pari dollaria taskusta. (NULL)amalla    tipahtaa sinun (NULL)(NULL)(NULL)(NULL)-tunnus."
  59. 385 [141]50000
  60. 386 [153]"(NULL)tat sen [kki[ taskuun, ettei kukaan    turisteista n[kisi sit[.   "
  61. 387 [153]"(NULL)utta my\h[ist[! kioskinpit[j[ukko"
  62. 388 [153]"n[ki sen! (NULL)amassa h[n ottaa tiskin alta"
  63. 389 [153]"aseen esiin ja osoittaa sinua sill[."
  64. 390 [153]"(NULL)it[ teet?  1) (NULL)ostat k[det yl\s"
  65. 391 [153]"      2) left$uudat apua":[153]"       3) (NULL)tat aseesta kiinni."
  66. 392 [141]51000
  67. 400 [151]52336,0:[139]a$[178]"1"[167]410
  68. 401 [139]a$[178]"2"[167]5
  69. 403 [153]"load(NULL)yntyy kamppailu. atnse laukeaa.":[141]50000
  70. 404 [153]"load(NULL)anhus p[[st[[ otteensa, hoipertelee, jakaatuu maahan.":[141]50000
  71. 405 [153]"load(NULL)oi voi! vali saisi vanhoja ihmisi[ tuollalailla s[ik[ytell[!!!"
  72. 406 [141]50000:[153]"load(NULL)unnet olosi huonoksi. (NULL)inua alkaa hui- maamaan."
  73. 407 [141]50000:[153]"load(NULL)atsot vatsaasi. (NULL)akissasi on viiden    millin reik[."
  74. 408 [153]"(NULL)ei[n ymp[rys on aivan punainen - veres-t[!!!!":[153]"(NULL)uolet siihen."
  75. 409 [141]50000:[137]1000
  76. 410 [153]"load(NULL)ostat k[det yl\s. (NULL)anhus naurahtaa ja  sanoo '(NULL)ll[tinp[s!!!'"
  77. 411 [141]50000:[153]"load(NULL)let aivan ulalla. (NULL)uka tuo mies on?":[141]50000
  78. 412 [153]"load'right$lpo! valtk\ nyt minua tunnista?!' -sanoovanhus.":[141]50000
  79. 413 [153]"load(NULL)anhus alkaa repim[[n partaansa pois.":[153]"(NULL)en j[lkeen h[n ottaa"
  80. 414 [153]"esiin kostean pyyhkeen, jolla h[n pyyh- kii kasvonsa.":[141]50000
  81. 415 [153]"load(NULL)atsot ihmeiss[si. (NULL)aikki arvet, rypyt, n[ppyl[t ja muut ovat"
  82. 416 [153]"poissa! (NULL)ilalla onkin fnfre++or=!":[141]50000
  83. 417 [153]"load(NULL)(NULL)right$ valright$!!! (NULL)iian julmaa ollakseen totta!":[141]50000
  84. 418 [153]"'(NULL)letko sin[kin salaisessa teht[v[ss[    t[[ll[?' -kysyy chr$unnar."
  85. 419 [153]"'(NULL)len. (NULL)arvitsen uuden aseen, panoksia,  ruokaa ja joitakin muita..."
  86. 420 [153]"'(NULL)eh[n j[rjestyy. (NULL)ule takahuoneeseen.'  -sanoo chr$unnar.":[141]50000
  87. 421 [153]"load(NULL)anha agenttiyst[v[si chr$unnar left$olgersson-mid$[rvel[ n[ytt[[ sinulle"
  88. 422 [153]"varastonsa. (NULL)tat sielt[ kaikenlaista    pient[ mukaasi.":[141]50000
  89. 423 [153]"load(NULL)ulette taas kioskin puolelle. (NULL)uulet   maastoauton [[nen."
  90. 424 [141]50000:[153]"load^orabsorgetfreabsint>tab(tab(orintortab( !!! left$e ovat tulossa!!!":[141]50000
  91. 430 [153]"load(NULL)it[s nyt teet???":[153]"1) mid$uokset karkuun":[153]"2) atnntaudut"
  92. 431 [153]"3) (NULL)tat pistoolisi esiin":[153]"4) (NULL)yyd[t chr$unnarilta apua."
  93. 432 [141]51000:[139]a$[178]"1"[176]a$[178]"2"[167]436
  94. 433 [139]a$[178]"3"[167][153]"loadvalt ehdi ampua. left$e ampuivat sinut!":[141]50000:[137]1000
  95. 434 [139]a$[178]"4"[167]440
  96. 435 [137]432
  97. 436 [153]"load(NULL)uuluu =ortab(tab(ortab(tab(ortab(tab(ortab(tab(=ortab(tab(oror ja olen montakiloa painavampi kuin ennen.
  98. 437 print"[202]opa niin painava, ett[ tipahdat maahan.":gosub50000:goto1000
  99. 440 print"[147][199]unnar hakee varastosta panssarinyrkin  ja [213]zi-konepistoolin."
  100. 441 gosub50000:print"[147][203]umman otat?? 1 - [213]zin, 2 - [208]-nyrkin.":gosub51000
  101. 442 print"[211]alakuljettajat ilmestyv[t jeepin       kanssa.":gosub50000
  102. 443 print"[147][205]ietit hetken ja p[[t[t ottaa panssari- nyrkin. [212][ht[[t jeeppi[."
  103. 444 gosub50000:forgh=1to50:poke53280,int(rnd(1)*16)+1:next:poke53280,0
  104. 445 print"[147][212][ysosuma!! [202]eeppi sy\ksyy l[pi reuna-  aidan ja tipahtaa mereen."
  105. 446 print"[211]amantien tulee poliiseja paikalle"
  106. 447 print"rajusti aseistautuneina. [200]e osoittavat  piipuillansa sinua."
  107. 448 gosub50000:print"[147][205]it[s nyt eteen?"
  108. 449 print"1) [200]ypp[[t kalliolta alas":print"2) [202]uokset [199]unnarin varastoon"
  109. 450 print"3) [206]ostat k[det yl\s":print"4) [202]uokset karkuun."
  110. 451 gosub51000:ifa$="1"then460
  111. 452 ifa$="2"then457
  112. 453 ifa$="3"then456
  113. 454 ifa$<>"4"thengosub51000
  114. 455 print"[147][208]oliisit ampuivat sinut.":gosub50000:goto1000
  115. 456 print"[147][208]oliisit ampuivat sinut 'varmuuden vuoksi'":gosub50000:goto1000
  116. 457 print"[147][208]oliisit heitt[v[t sinne k[sikranaatin, ja - no, arvaat kai..."
  117. 458 gosub50000:goto1000
  118. 460 print"[147][200]ypp[[t tyhjyyteen...":yl=30:al=88
  119. 461 vi$="[163][162][175][176][180][172][176][163] [161][185][178][161][177][176][182][163][176] [161][176][182][182][162][185][182][163][176] [161][185][180][163][162] [174][162][170]"
  120. 462 vi$=vi$+"[162][174][163][166] [167][177][178][163][176]......":pi$="?pic ? ven*":gosub20000
  121. 463 sys879:gosub44000
  122. 464 print"[212]ipahdat kalliolta merta kohti.":gosub40000
  123. 465 print"[206][et vieress[si vain harmaata kalliota.":gosub41000
  124. 466 forji=1to3000:next
  125. 467 print"[207]nko t[m[ [201]lpon loppu?":gosub43000:forji=1to3000:next
  126. 468 print"[214]ai onko toivoa yh[??":gosub40000
  127. 469 print"[214]astaus: on toivoa.":gosub45000
  128. 470 print"[201]lpo tekee sen! [200][n avaa laskuvarjon!!!"
  129. 471 gosub45000
  130. 473 print"[147][212]ipahdat huvipurrelle.":yl=32+8*12:al=255
  131. 474 vi$="[163][162][175][176][180][172][176][163] [180][184][190][162][175][184][178][178][177][182][182][177], [181][185][161][176] [185][170] [161][184][161][161][184][182][176]"
  132. 475 vi$=vi$+"[170] [176][182][182][176]...[175][176][162][170][176]..":pi$="?pic ? ven*":gosub20000
  133. 476 sys862:poke52340,6:poke52341,3:gosub45000:gosub51000
  134. 477 print"[144][212][ysosuma keskelle pehme[t[ katosta!":print"[193]ivan kuten [202]ames [194]ond!"
  135. 478 gosub50000:print"[200]ypp[[t katokselta alas. [206][et upean ":print"tummatuk";
  136. 479 print"kaisen kreikattaren.":gosub50000
  137. 480 sys862:print"[205]it[ teet?":print"1) [212]eet niin kuin [202]ames [194]ond."
  138. 481 print"2) [212]eet niin kuin [201]lpo."
  139. 482 print"3) [212]eet niin kuin [203]arpo."
  140. 483 gosub51000:ifa$<"1"ora$>"3"then483
  141. 484 ifa$="1"then488
  142. 485 ifa$="2"then490
  143. 486 sys862:print"[193]lat haastatella neiti[.":gosub50000:sys862
  144. 487 print"[200][n suuttuu ja heitt[[ sinua konjakki-pullolla.":gosub50000:goto1000
  145. 488 sys862:print"[207]tat puhelimen k[teesi ja soitat mr     [205]:lle.":gosub50000
  146. 489 sys862:print"[212]aidat olla v[[r[ss[ ohjelmassa...":gosub50000:goto1000
  147. 490 sys862:print"[207]tat laskuvarjon irti, heit[t sen mereenja l[hestyt [200][219][206][212][219]."
  148. 491 gosub50000:sys862:print"[200][219][206] avaa takkisi ja heitt[[ sen sivuun."
  149. 492 gosub50000:sys862:print"[207]tat takkisi pois p[[lt[. [203]atsotte"
  150. 493 print"[[nett[ toisianne silmiin.":gosub45000:print"[200][n avaa housusi..."
  151. 494 gosub45000:print"[211]in[ otat paidan pois p[[lt[si.":gosub45000
  152. 495 print"[203]atselet h[nen pullottavia ja mehevi["
  153. 496 print"appelsiinejaan ja alat kuoria niiden      p[[lt[ ylim[[r[iset";
  154. 497 print" harsot pois...":gosub45000:gosub45000:gosub45000
  155. 498 sys862:print"...ja lopun pid[mme mielikuvituksen     k[tk\iss[."
  156. 499 gosub50000
  157. 500 sys862:poke52340,0:poke53241,6:print"...[214]iet[tte mukavan y\n..."
  158. 501 vi$="   ...[176][176][180][180][180][180]...   [185][185][185][185][180][180][180]...   [180][180][180][180]... [185][180][180][180][180][180]...."
  159. 510 forl=1tolen(vi$):poke679+l,asc(mid$(vi$,l,1)):next:sys896
  160. 511 remsys51176:gosub602:sys52352:poke52336,1:poke52339,1
  161. 512 poke52339,1
  162. 513 print"...":print"..."
  163. 514 print"."
  164. 515 print".."
  165. 516 forji=1to10000:next
  166. 517 forji=1to5:gosub45000:next
  167. 518 poke52336,0:print"[147][152]...[203]oska seuraava p[iv[ ja y\ kuluu"
  168. 519 print"yh[ intiimeiss[ asioissa, j[t[mme sen   ajan v[liin...":gosub50000
  169. 520 print"[147][207]let [193]teenan lentokent[ll[ "
  170. 521 print"passintarkastusjonossa."
  171. 522 gosub50000
  172. 523 print"[147][206][et arabimiehen j[tt[v[n laukkunsa     yksin informaatiopisteen";
  173. 524 print" eteen.":gosub50000
  174. 525 print"[147][201]nformaatiopisteen edess[ on ainakin 2  kilometri[ pallo hukassa"
  175. 526 print"olevia turisteja.":gosub50000
  176. 527 print"[147][205]it[ teet?":print"1) [197]t mit[[n.":print"2) [205]enet informaatioon."
  177. 528 print"3) [211]anot tullimiehelle ep[illytt[v[st[     laukusta."
  178. 529 print"4) [205]enet itse tutkimaan laukkua.":print"5) [207]dotat."
  179. 530 gosub51000:goto690:ifa$<"1"ora$>"5"then530
  180. 531 ifa$="1"thenprint"[147][207]let yh[ passintarkastusjonossa.":goto537
  181. 532 ifa$="2"then536
  182. 533 ifa$="3"then540
  183. 534 ifa$="4"then550
  184. 535 ifa$="5"thenprint"[147][207]dotat.":gosub50000:goto560
  185. 536 print"[147][202][[t jonon h[nnille, koska vihaiset mum-mot eiv[t p[[st[ sinua ohi."
  186. 537 gosub50000:print"[147][207]dotat jonossa 3 minuuttia, jonka j[l-  keen..."
  187. 538 forji=1to4000:next:forji=1to50:poke53280,rnd(1)*16:next
  188. 539 poke53280,0:gosub50000:goto1000
  189. 540 print"[147][193]vaat laukun varovaisesti.":print"[206][et muo-vipommin kiinnitettyn["
  190. 541 print"sytyttimeen.":gosub50000:print"[208]ieni digitaalikello sykkii sekunteja"
  191. 542 print"takaisinp[in."
  192. 543 gosub50000:print"[211]inulla on 2 minuuttia aikaa p[[tt[[,"
  193. 544 print"mik[ nelj[st[ johdosta on se, joka joh- taa ajastimesta pommiin."
  194. 545 ti$="000000":print"[214]alitse: 1) punainen johto"
  195. 546 print"2) sininen johto":print" 3) keltainen johto"
  196. 547 print"vai 4) musta johto":print"[193]ika: ";ti$
  197. 600 rem(NULL)
  198. 602 poke53280,0:poke53281,0:poke52340,0
  199. 603 forl=0to7:poke53287+l,0:next
  200. 604 poke646,11:return
  201. 660 print"[147] [207]tat aurinkoa. [205]atka on kest[nyt jo 3   [208][219][201][214][219][219] salakuljet";
  202. 661 print"tajien v[ltelless[":print"viranomaisia.":gosub50000
  203. 681 print"[147]...[203]unnes tullaan [210]hodoksen saaren l[-  helle. [211]en havaitset";
  204. 682 print" lokkiparvista":print"taivaalla.":gosub50000
  205. 683 print"[147][211]aavutte [210]hodoksen satamaan.":yl=32:al=120
  206. 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] "
  207. 685 vi$=vi$+"[161][178][177][162][161][161][176][182][176][162][174][163][176]...":pi$="?pic ? rho*":gosub43000:gosub20000
  208. 686 forl=0to7:poke53287+l,0:next:sys879:gosub45000
  209. 687 forl=1to14000:next:vi$="[208]aina jotain...":v=1:gosub20000:gosub51000:goto210
  210. 690 print"[147][159][207]nko laukussa pommi?!!!"
  211. 691 print"[212]oivoisit hoitavasi homman??? [212]unnetko olevasi aivan"
  212. 692 print"pulassa????  [207]nko n[in??????":print"[206][ihin kysymyksiin vastasit";
  213. 693 print" varmasti    [163][162][177][163][183][174][163][162]!!!!":gosub50000
  214. 694 poke52336,0
  215. 695 print"[147][152][211]aatkin nyt k[rsien odottaa [198]loppis     1/89:aa! [201]lpo jatkuu ensi";
  216. 696 print" numerossa!!":print"[212]apaamisiin.":gosub50000:goto1004
  217. 999 rem(NULL)
  218. 1000 poke52336,0
  219. 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]"
  220. 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]."
  221. 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]..."
  222. 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]- "
  223. 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]"
  224. 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]"
  225. 1007 gosub51000:ifa$<>"e"anda$<>"k"then1007
  226. 1008 ifa$="k"thenrun6
  227. 1009 print"[147][162][182][175][185][170][160][163][177][161][162][190][166][163]:[160][160][160][160][160][160][160][160]"
  228. 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])"
  229. 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
  230. 1012 gosub51000:sys64738
  231. 2000 sys824:forl=1to255:poke53280,l:next
  232. 2001 sys1008:poke52336,0
  233. 2002 print"[147][212]ornissa r[j[ht[[ pommi, joka tappaa    kaikki siell[ olijat."
  234. 2003 print"[211]e oli menoa se...":gosub50000:goto1000
  235. 5000 goto50000
  236. 20000 rem * kuvanlataus *
  237. 20001 poke52336,0:vi=1:ifvi$=""thenvi=0:goto20004
  238. 20002 vi$=vi$+"@"
  239. 20003 forl=1tolen(vi$):poke679+l,asc(mid$(vi$,l,1)):next:sys896
  240. 20004 poke52337,yl:poke52338,al
  241. 20005 ifv=1thenv=0:goto20008
  242. 20006 forl=1tolen(pi$):poke50151+l,asc(mid$(pi$,l,1)):next
  243. 20007 poke50167,15:poke648,4:sys52224:sys58784:sys65412
  244. 20008 sys51176:gosub602:sys52352:poke52336,1:poke52339,vi:return
  245. 21000 rem rivien poisto
  246. 21001 input"alku-, loppurivi ?";ar,lr
  247. 21009 ar=ar-1
  248. 21010 ifar=lrthenend
  249. 21011 ar=ar+1:print"[147]"ar"ar="ar":lr="lr":goto21010";
  250. 21012 poke631,13:poke632,13:poke198,2:end
  251. 30000 c$=chr$(34):print"s0:ilpo iii":open15,8,15,"s0:ilpo iii":gosub30010
  252. 30001 print"r0:ilpo iii":print#15,"r0:ilpo iii=ilpo2/88":gosub30010
  253. 30002 print"save":save"ilpo2/88",8,1:gosub30010:print"v[197]":verify"ilpo2/88",8,1
  254. 30003 gosub30010
  255. 30004 print"[211]y\t[ [198][205]3!!":gosub50000:gosub30010:print"s0:ilpo2/88"
  256. 30005 print#15,"s0:ilpo2/88":gosub30010:print"save":save"ilpo2/88",8,1
  257. 30006 gosub30010:print"verify":verify"ilpo2/88",8,1
  258. 30007 gosub30010:close15:end
  259. 30010 input#15,a,b$,c,d:printa;b$;c;d:return
  260. 40000 rem * moly 1. *
  261. 40001 forl=54272to54296:pokel,0:next
  262. 40002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  263. 40003 pokes+4,85:fr=1225
  264. 40004 fort=1to400:fq=fr+peek(s+27)+3.5:hf=int(fq/256):lf=fq-hf*256
  265. 40005 pokes,lf:pokes+1,hf:next
  266. 40006 poke54296,0:return
  267. 41000 rem * moly 2. *
  268. 41001 forl=54272to54296:pokel,0:next
  269. 41002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  270. 41003 pokes+4,85
  271. 41005 pokes,10:pokes+1,200
  272. 41006 return
  273. 42000 rem * molyt pois *
  274. 42001 forl=54272to54296:pokel,0:next:poke54296,0:return
  275. 43000 rem * moly 3. *
  276. 43001 forl=54272to54296:pokel,0:next
  277. 43002 s=54272:pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240
  278. 43003 pokes+4,85
  279. 43005 pokes,81:pokes+1,03
  280. 43006 return
  281. 44000 rem * moly 4. *
  282. 44001 forl=54272to54296:pokel,0:next
  283. 44002 s=54272:pokes+1,100:pokes+5,219:pokes+15,28:pokes+24,15:pokes+4,85
  284. 44003 fort=1to5000:next:pokes+4,18
  285. 44004 remfort=1to1000:next
  286. 44006 return
  287. 45000 rem * moly 5. *
  288. 45001 forl=54272to54296:pokel,0:next
  289. 45002 s=54272:pokes+1,130:pokes+5,9:pokes+15,30:pokes+24,15
  290. 45003 fort=1to12:pokes+4,21
  291. 45004 fort=1to1000:next:pokes+4,20
  292. 45005 fort=1to1000:next
  293. 45006 return
  294. 50000 rem * get *
  295. 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]"
  296. 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]"
  297. 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
  298. 50004 poke198,0:wait198,1:poke198,0:return
  299. 51000 rem * get+answer *
  300. 51001 a$="":poke198,0:wait198,1:geta$:return
  301.