home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #2 / Floppy_Magazine_87-2_1987_Megasystems_Oy_fi_Side_B.d64 / .ilpo5 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  308 lines
  1. 1 rem"[141][147][141][141] ilpon seikkailut
  2. 2 [143]"gosub  by jukka sakki
  3. 3 rem"    10.2.1987
  4. 4 [143]""[204]
  5. 200 [151]14125,240:[151]14129,200:[158]14113:[158]14080:[137]770
  6. 395 [151]198,0:[153]"            paina nappulaa":[146]198,1:[142]
  7. 410 [151]198,0
  8. 425 [161]a$:[139]a$[178]""[167]425
  9. 440 a[178][197](a$):[139]a[179]1[176]a[177]b[167]410
  10. 455 [142]
  11. 460 [151]14125,248:[151]14129,200:[158]14113
  12. 462 [151]53270,[194](53270)[176]8
  13. 465 [151]56576,196:[151]53272,19:[151]648,196
  14. 470 [151]53280,6:[151]53281,15:[153]"stopload                              .[[lypp[n
  15. 485 print" niatoj aniap niin )atsitcudorp amlejho
  16. 500 [153]"    [ts[v[ttyllek[h [ts[t usiamli nenil
  17. 515 print"-lemin no ilep( [ilep aaktaj taulah so[202]
  18. 530 [153]"    .ajuti aj [tiesel \ys soj niknisra(NULL)
  19. 545 print" .sutsarrah nenilleevret no nenimaagoo[202]
  20. 560 [153]"                   . taagooj [tte ,onas
  21. 575 print"tunis aamouh ukoj aj is[ll[[p tutsi so[202]
  22. 590 [153]" .n[h[[p ulav assip iette ora(NULL) .aakkiap
  23. 605 print"   is[[p aj iseskumakat tadhiav aj ella
  24. 620 [153]"  ..eesrep nynyyt aattial itsyteit tio(NULL)
  25. 635 print"             ...oonas n[[tim tyn es so[202]
  26. 650 [153]"  .etinn[jlortnoc wol/hgih nilaangis-asc(NULL)
  27. 665 print"    allamiotrevni ythet no itkefe  [m[[212]
  28. 680 [153]"     ....aaah ah  ith[jryn isaksin okomid$
  29. 695 print"         .ir[pmy es [nn[[k niin [[ttely
  30. 710 [153]"     tahuip nirakklet iat nirotinom somid$
  31. 725 print"         ??? aekul aaekiav okno heh he[200]":poke198,0
  32. 740 geta$:ifa$<>""then742
  33. 741 goto740
  34. 742 print"[147]":poke14125,240:poke14129,200:sys14113
  35. 743 goto1160
  36. 770 print"[147]":poke53280,6:poke53281,0
  37. 785 poke56576,196:poke53272,19:poke648,196
  38. 800 v=53248:p=51192:pokep,1:pokep+1,0:pokep+2,2:pokep+3,60:pokep+4,61:pokep+5,62
  39. 815 pokep+6,63:pokep+7,3:pokev+28,0:forx=39to46:pokev+x,1:next
  40. 830 forx=1to13step2:pokev+x,20:next:forx=0to4step2:pokev+x,90+12*x:next
  41. 845 forx=6to12step2:pokev+x,110+12*x:next:pokev+29,128:pokev+23,0:pokev+16,0
  42. 860 pokev+14,255:pokev+15,55:pokev+21,255:print"[147][153]":sys49408
  43. 875 printtab(14)"osa  9/46":print" [159][212][m[ on laitevalmistajista,
  44. 890 [153]" poliittisista puolueista, huumeista,
  45. 905 print" [203]aarina [211]uoniosta, bodaajista,
  46. 920 [153]" tasa-arvovaltuutetusta, vihreist[ ja
  47. 935 print" happosateista riippumaton
  48. 950 [153]" tietokoneohjelma.
  49. 965 print" [203]aikki oikeudet t[h[n ohjelmaan
  50. 980 [153]" omistaa (NULL)rotocol (NULL)y.":[153]"def (NULL)hjelman luvaton kopiointi on
  51. 995 print" taponuhalla kielletty.
  52. 1010 [153]" list(NULL)aittomasta toiminnasta seuraa
  53. 1025 print" sakkorangaistus, laitteiden
  54. 1040 [153]" menett[minen pelastusarmeijalle sek[
  55. 1055 print" karkoitus [193]hvenanmaalle.
  56. 1056 [153]" chr$rafiikka by mid$ari (NULL)\derholm.
  57. 1070 printtab(10)"[154]paina n[pp[int[":poke198,0
  58. 1100 a=peek(49679)+256*peek(49680):geta$:ifa$<>""then1145
  59. 1115 ifa>41610anda<41730thenpoke49681,rnd(0)*8
  60. 1130 goto1100
  61. 1145 pokev+21,0:sys49694:poke53280,0:goto460
  62. 1160 poke56576,196:poke53272,19:poke648,196:pokev+21,0:print"[147]"
  63. 1162 poke14125,240:poke14129,200:sys14113
  64. 1175 poke53281,15:poke53280,6:print"[147][144][206]yt itse asiaan"
  65. 1190 print"[201]dea on seuraavanlainen (_mahtaako olla yhdyssana ??):
  66. 1205 [153]"(NULL)ulipa huimasti v[limerkkej[ tuohon
  67. 1220 print"edellisen lauseen loppuun.
  68. 1235 [153]"(NULL)iin se idea on seuraavanlainen :
  69. 1250 print"[201]lpon pit[isi etsi[ kadonnut l[hetys-
  70. 1265 [153]"saarnaaja.
  71. 1280 print"[204][hetyssaarnaaja l[hti [198]innairin
  72. 1295 [153]"koneella peekangokkiin seks...uh..\h k\h
  73. 1310 print"r\h..seuramatkalle.  [200][nen teht[v[n[[n
  74. 1325 [153]"oli tutustua paikalliseen ravint...\h..
  75. 1340 print"raamattuseuran toimintaan ja tehd[
  76. 1355 [153]"aistimuksia prostid...tarkoitan
  77. 1370 print"diakonissoista.":gosub395
  78. 1385 print"[147][204][hetyssaarnaajan nimi on pastori
  79. 1400 [153]"(NULL).(NULL)almi left$[rm[n seurakunnasta.
  80. 1415 print"[208]astori sai nimens[ jo kasteessa ja
  81. 1430 [153]"sille h[n ei voi psalminkaan vertaa.
  82. 1445 print"[200]uom! sin[ olet jo [194]angokissa ja
  83. 1460 [153]"kursori ei tule n[kyviin t[ss[ peliss[.
  84. 1475 print"[211]yy kursorin n[kym[tt\myyteen on se,ett[
  85. 1490 [153]"onjotkin aikaisemmat right$lpot eiv[t toimineet
  86. 1505 print"[145]niiden kuusnelosten kanssa, joiden
  87. 1520 [153]"lenright$atn - piirit (cia = complex interfase   adapter) oli valmistettu
  88. 1535 print"[194]ulgariassa, joten n[pp[inrutiinia on   muutettu.":gosub395
  89. 1550 print"[147][205]it[ teet:":print"1...menet temppeliin
  90. 1565 [153]"2...menet bordelliin":[153]"3...vihell[t riksan paikalle
  91. 1580 b=3:gosub410:onagoto1595,1760,1910
  92. 1595 print"[147][197]t tied[ miss[ temppeleit[ on.
  93. 1610 [153]"(NULL)ysytk\ :":[153]"1...(NULL)uomeksi":[153]"2...englangiksi":[153]"3...thaiksi
  94. 1625 b=3:gosub410:onagoto1640,1700,1745
  95. 1640 print"[147]- [193]nteeksi miss[h[n on temppeli ?"
  96. 1655 print"[203]aikki katsovat sinuun ja joku sanoo :
  97. 1670 [153]"- atnteki sissahun ok meppli haha haa
  98. 1685 print"[203]aikki p[[st[v[t h\r\naurut ja jatkavat omia hommiaan.":gosub395:goto1550
  99. 1700 print"[147]- pardon .. can you tell me where is      the nearest tempel ?
  100. 1715 [153]"mid$oku sanoo :":[153]"- si senor you must go to chinx gatan.
  101. 1730 print"  there is temple of [194]udha.":gosub395:goto1550
  102. 1745 print"[147][211]in[ et osaa thain kielt[.":gosub395:goto1550
  103. 1760 print"[147][207]let nyt hauskassatalossa":print"hauskojentytt\jen kanssa."
  104. 1775 print"[212]iesitk\, ett[ jopa 70%:lla em. ammatin-
  105. 1790 [153]"onharjoittajista on jokin sukupuolitauti?
  106. 1805 print"1...tiesit":print"2...et tiennyt":b=2:gosub410:onagoto1820,1835
  107. 1820 print"[147][207]let tyhm[n rohkea, sait taudin ja      [203]uolit[144].":goto2500
  108. 1835 print"[147][206]yt tied[t ja viisaana heppuna j[t[t
  109. 1850 [153]"homman v[liin... (tai pikemminkin siis
  110. 1865 print"j[t[t homman pois v[list[).":gosub395:goto1550
  111. 1910 print"[147][210]iksa tuli paikalle ja kiipe[t kyytiin.
  112. 1925 [153]"(NULL)inne k[sket pojan ravata ?
  113. 1940 print"1...satamaan":print"2...to funnyhouse":print"3...to chinx gatan
  114. 1955 b[178]3:[141]410:[145]a[137]1970,1760,2045
  115. 1970 [153]"load(NULL)iksapoika ei ymm[rt[nyt (NULL)uomea ja
  116. 1985 print"niimp[ h[n kuskasi sinut orjamark-      kinoille.
  117. 2000 [153]"valr[s lihava sulttaani osti sinut omaan
  118. 2015 print"haaremiinsa eunukiksi !
  119. 2030 [153]"(NULL)iihen loppui loru (NULL)orbusten orjasta,   right$lposta.":[137]2500
  120. 2045 [153]"load":[151]56576,151:[151]53272,23:[151]648,4:[151]14125,224:[151]14129,194
  121. 2050 [158]14113:t[178]49152
  122. 2060 [158]52480:[158]49974:[151]t[170]49,169:[158]52224:[151]t[170]37,118:[151]t[170]20,6:[151]t[170]21,15
  123. 2062 q$[178]""
  124. 2070 [153]"load":x[178]0:[141]3200
  125. 2072 [153]q$"(NULL)let nyt temppelin luona mita teet :
  126. 2074 print"[144]1...rukoilet jumalaa":print"2...huudat 'huhuu'":print"3...sytytat kynttilan
  127. 2076 b[178]3:[141]410:[145]a[137]2080,2110,2090
  128. 2080 [141]3700:[153]q$"(NULL)ukoilit jumalaa.  (NULL)e on budhan pilkkaa.
  129. 2082 print"[211]inut uhrataan budhalle, jotta se       leppyisi.
  130. 2084 [153]"teit vakavan virheen eli peli loppui.":[141]395:[137]2500
  131. 2090 [141]3700:x[178]264:[141]3200
  132. 2094 [153]q$"(NULL)lit varomaton kynttilan kanssa.
  133. 2096 print"[212]emppeli syttyi tuleen. [205]ita teet :
  134. 2098 [153]"1...katselet kun se palaa":[153]"2...etsit puhelimen":b[178]2:[141]410
  135. 2100 [145]a[137]2104,2220
  136. 2104 [141]3700:x[178]3003:[141]3200
  137. 2108 [153]q$"(NULL)emppeli paloi roihuten raunioksi.":[141]395
  138. 2110 [141]3700:x[178]2781:[141]3200:[153]q$"(NULL)aikalle tulee alkuasukas, kourassaan
  139. 2112 print"hanella on voiveitsi (ei voimariini-
  140. 2113 [153]"eika margariiniveitsi).":[141]395:[141]3700
  141. 2114 [153]q$"(NULL)ysytko hepulta:":[153]"1...onko se huomannut
  142. 2116 print"    [211]uomalaista pappia !":print"2...onko silla antaa juotavaa
  143. 2117 b[178]2:[141]410:[145]a[137]2118,2340
  144. 2118 [141]3700:[153]q$"- mid$oo on nakynny se paineli tonne":[153]"  viidakkoon....
  145. 2120 gosub395:gosub3700:printq$"[215]ell...":print"1...menet viidakkoon
  146. 2122 [153]"2...et mene viidakkoon":b[178]2:[141]410:[145]a[137]2130,2126
  147. 2126 [141]3700:[153]q$"mid$os aijot ratkaista jutun parasta":[153]"olisi menna":[137]2120
  148. 2130 [141]3700:x[178]1279:[141]3200:[153]q$"(NULL)alitettavasti viidakkokuvat oli
  149. 2132 print"loppunnu. [202]oten laitoin tilalle
  150. 2134 [153]"aavikkokuvia.":[141]395:[141]3700
  151. 2136 [153]q$"(NULL)let nyt viidakossa, mita teet :"
  152. 2138 [153]"1...etsit (NULL).(NULL)almen":[153]"2...etsit mid$anen":[153]"3...tapat leijonan
  153. 2140 print"4...kiipeat puuhun":b=4:gosub410:onagoto2144,2170,2152,2160
  154. 2144 gosub3700:printq$"[214]aro viidakkoa, ala lahde yksin
  155. 2148 [153]"viidakkoon seikkailemaan":[141]395:[141]3700:[137]2136
  156. 2152 [141]3700:x[178]2121:[141]3200:[153]q$"valdessasi on verenhimoinen leijona.
  157. 2154 print"valitettavasti kavi niin, etta
  158. 2156 [153]"leijona tappoi sinut etka sina sita.":[137]2500
  159. 2160 [141]3700:x[178]1471:[141]3200:[153]q$"(NULL)iipesit puuhun ja naet viidakkoa
  160. 2162 print"([200]uom! kuvassa on aavikkoa eika
  161. 2164 [153]" viidakkoa.)":[141]395:[141]3700:x[178]1279:[141]3200:[137]2136
  162. 2170 [141]3700:x[178]1834:[141]3200:[153]q$"(NULL)auuu..... silmiesi edessa on mid$ane.
  163. 2172 print"[205]ita teet :":print"1...kysyt [208].[211]almea":print"2...ehdotat hauskaa puolituntista
  164. 2176 b[178]2:[141]410:[145]a[137]2200,2180
  165. 2180 [141]3700:[153]q$"left$eraat aamulla  ja keraat vaatteesi
  166. 2182 print"lattialta. [211]amalla kun kuulet jonkun
  167. 2184 [153]"tulevan, huomaat sormuksen yopoydalla.
  168. 2186 print"[200]yppaat ikkunasta ulos ja juokset
  169. 2188 [153]"niin kauas kuin jaksat.":[141]395:[141]3700
  170. 2190 [153]q$"(NULL)ilometrin juostuasi puet vaatteet
  171. 2192 print"paallesi ja kavelet.
  172. 2194 [153]"(NULL)utta juoksit itsesi eksyksiin ja
  173. 2196 print"kuolit[144] viidakkoon.":goto2500
  174. 2200 gosub3700:printq$"[202]oo mina nain hanet ja nain hanta.
  175. 2202 [153]"left$an meni lentokentalle pain.":[141]395:[141]3700:x[178]1550:[141]3200
  176. 2206 [153]q$"(NULL)let lentokentalla, kysyt missa (NULL)almi
  177. 2208 print"majailee .
  178. 2210 [153]"(NULL)ukaan ei tieda.
  179. 2211 print"[205]ita teet :":print"1...nykaset viivan kokaa
  180. 2212 [153]"2...palaat kotomaahan":[153]"3...perustat vaimojen vacmdontolitysliikkeen
  181. 2214 b=3:gosub410:onagoto2900,2350,2390
  182. 2220 gosub3700:x=361:gosub3200:printq$"[207]let nyt puhelinkopissa ja edessasi on
  183. 2222 [153]"puhelin. (NULL)ita teet :":[153]"1...soitat palokunnalle"
  184. 2224 [153]"2...soitat poliisille":[153]"3...rikot puhelimen":b[178]3:[141]410
  185. 2228 [145]a[137]2254,2230,2240
  186. 2230 [141]3700:[153]q$"(NULL)oitit poliisille. sinut pidatetaan.
  187. 2232 print"[212]haimaassa kuulustelut alkavat aikai-
  188. 2234 [153]"sintaan 4:n kuukauden kuluttua.
  189. 2238 print"[205]atanet putkaan.":goto2500
  190. 2240 gosub3700:printq$"[210]ikoit puhelimen. [211]uomessahan se
  191. 2242 [153]"on niin pikkurikos, etta siita ei edes
  192. 2244 print"aina joudu kiinni.":gosub395:gosub3700
  193. 2246 printq$"[205]utta [212]haimaassa se rinnastetaan
  194. 2248 [153]"huumeiden hallussapitoon. (NULL)inut
  195. 2250 print"pidatettiin.":gosub395:gosub3700:printq$:goto2232
  196. 2254 gosub3700:x=659:gosub3200:printq$"[208]alokunta kiiruhtaa paikalle ja
  197. 2256 [153]"sammuttaa palon  (ihmeellista).":[141]395:[137]2070
  198. 2336 [153]"(NULL)uista se ensi kerralla. (NULL)uolitstop":[137]2500
  199. 2340 [141]3700:x[178]1067:[141]3200:[153]q$"left$epulla ei ole antaa juotavaa, mutta
  200. 2342 print"han antaa sinulle ruoskaa ja sina
  201. 2344 [153]"tunnet olosi tyytyvaiseksi ??!!??
  202. 2346 print"([197]hkapa viidakko on sekoittanut paasi
  203. 2348 [153]"vai mista moinen johtuu ?)":[141]395:[137]2110
  204. 2350 [141]3700:[153]q$"vali tassa vaiheessa saa enaa peraantya!":[141]395
  205. 2352 [141]3700:[153]q$:[137]2211
  206. 2390 [141]3700:x[178]2509:[141]3200:[153]q$"(NULL)erustat siis vaimovalityksen.
  207. 2400 print"[211]aat heti uuden asiakkaan.  [211]anot :
  208. 2402 [153]"'mid$a minkakohanlainen vaimo herralle'
  209. 2404 print"[205]ies vastaa : '[211]ellanen si.si.sivia[157][145][164]
  210. 2406 [153]"luonnoltaan.":[141]395:[141]3700
  211. 2408 [153]q$"(NULL)asket hanen tayttaa hakukaavakkeen.
  212. 2410 print"[203]un lappunen on taytetty huomaat, etta
  213. 2412 [153]"miehen nimi on (NULL).(NULL)almi.":[141]395:[141]3700
  214. 2414 [153]q$"(NULL)let loytanyt etsimasi henkilon.
  215. 2415 print"[207]nneksi olkoon.":gosub395:sys49974:poke14125,240:poke14129,200
  216. 2417 sys14113:poke56576,196:poke53272,19:poke648,196
  217. 2418 print"[147][203]ysyt miten h[n on t[[ll[.
  218. 2420 [153]"(NULL).(NULL)almi vastaa :
  219. 2422 print"[205]un muija j[tti mut kun m[ k[vin
  220. 2424 [153]"aina saarnan j[lkeen kavereitten kanssa
  221. 2426 print"kaljoilla.  niimp[ m[ l[hin hakeen uutta
  222. 2428 [153]"onvaimoa t[[lt[ thaimaasta.
  223. 2430 print"[212][m[ matka oli naamioitu kirkon ulko-
  224. 2432 [153]"maankaupan l[hetysty\ksi.
  225. 2436 print"[203]aikki meni hyvin siihen asti kunnes
  226. 2440 [153]"passi meni vanhaksi.":[141]395
  227. 2445 [153]"load(NULL)ysyt :'(NULL)iten se p[[si tapahtumaan?'
  228. 2448 print"[208].[211]almi vastaa :
  229. 2450 [153]"-left$ieroma laitoksessa oli niin mukavaa,
  230. 2452 print"ett[ en huomannut ajan kulumista.":gosub395
  231. 2454 poke53280,5:poke53281,5:print"[147] [200]aluatko pelata peli[ viel[
  232. 2456 [153]" jostain syyst[ ?  k=kyll[ , e=ei .":[151]198,0
  233. 2460 [161]a$:[139]a$[178]"k"[167][138]
  234. 2462 [139]a$[178]"e"[167][158]64738
  235. 2464 [137]2460
  236. 2500 [141]395:[139][194](788)[179][177]49[167][158]49974
  237. 2502 [151]14125,240:[151]14129,200:[158]14113:[151]56576,196:[151]53272,19:[151]648,196
  238. 2503 [151]53280,5:[151]53281,13
  239. 2505 [153]"loadstop(NULL)iin siin[ k[y kun pelaa yli [lykkyy-
  240. 2510 print"tens[.
  241. 2515 [153]"verify(NULL)euraavalla kerralla (onko sellaista?)
  242. 2518 print"tied[t sitten, ettet tee samaa mokaa
  243. 2520 [153]"en[[ uudestaan !"
  244. 2525 [153]"mid$os kantti kest[[ niin rusauta
  245. 2530 fora=0to100:next:print"v[lily\nti-nappulaa uuteen koitokseen.
  246. 2533 [153]"mid$okin muu nappi ja saat k[ytt\\si
  247. 2535 print"kuusnelosen basic-tulkin.....":poke198,0
  248. 2540 geta$:ifa$=""then2540
  249. 2542 ifa$=" "thenrun
  250. 2544 sys64738
  251. 2900 gosub3700:x=1693:gosub3200:printq$"[203]okaiini on lahes yhta vaarallista kuin
  252. 2905 [153]"lsd, speedy, hasis, hepo, sorbus,
  253. 2910 print"amfetamiini, ooppiumi ja nikotiini.
  254. 2914 [153]"(NULL)eit val(NULL)right$(NULL)(NULL)atnright$(NULL) (NULL)atn(NULL)atn(NULL)atn(NULL) virheen.
  255. 2915 print"[197]lintoimintosi katosivat jonekkin.":gosub395
  256. 2920 sys14163
  257. 3200 x=x+34000
  258. 3210 rf=peek(x+1)and15:poket+4,rf:poket+3,rf:poket+20,15:poket+21,15
  259. 3230 sys50400
  260. 3240 x=x+10
  261. 3250 n=peek(x):h=nand15:n=int(n/16)
  262. 3260 ifn=0thenreturn
  263. 3270 ifn>7then3300
  264. 3280 poket+9,h:poket+2,0
  265. 3290 goto3370
  266. 3300 x=x+1:i=peek(x):i=iand31
  267. 3310 n=n-8
  268. 3320 poket+8,i
  269. 3330 x=x+1:i=peek(x)
  270. 3340 j=iand15:poket+7,j
  271. 3350 j=int(i/16):poket+6,j
  272. 3360 poket+2,1
  273. 3370 x=x+1
  274. 3380 ifn>1then3430
  275. 3390 poket+43,peek(x):x=x+1
  276. 3400 poket+44,peek(x):x=x+1
  277. 3410 sys51890
  278. 3420 goto3250
  279. 3430 ifn=3then3550
  280. 3440 kk=peek(x):x=x+1:kn=0
  281. 3450 poket+26,peek(x):x=x+1
  282. 3460 poket+27,peek(x):x=x+1
  283. 3470 ifkk=0then3250
  284. 3480 poket+28,peek(x):x=x+1
  285. 3490 poket+29,peek(x):x=x+1
  286. 3500 sys51400
  287. 3510 poket+26,peek(t+28)
  288. 3520 poket+27,peek(t+29)
  289. 3530 kn=kn+1:ifkn<kkthen3480
  290. 3540 goto3250
  291. 3550 r2=peek(x):x=x+1
  292. 3560 s2=peek(x):x=x+1
  293. 3570 r=peek(x):x=x+1
  294. 3580 s=peek(x):x=x+1
  295. 3590 poket+26,r2:poket+27,s2
  296. 3600 poket+28,r2:poket+29,s
  297. 3610 sys51400
  298. 3620 poket+28,r:poket+29,s2
  299. 3630 sys51400
  300. 3640 poket+26,r:poket+27,s
  301. 3650 poket+28,r2:poket+29,s
  302. 3660 sys51400
  303. 3670 poket+28,r:poket+29,s2
  304. 3680 sys51400
  305. 3690 goto3250
  306. 3700 printq$;:fora=0to7:print"                                      ":next
  307. 3702 return
  308.