home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #3 / Floppy_Magazine_86-3_1986_Megasystems_Oy_fi.d64 / agentti6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  21.6 KB  |  604 lines
  1. 1 rem"[141][141][141][141][141][141][141][141][141][141][141][141][141][141]
  2. 2 [143]"             right$lpon seikkailut
  3. 3 rem"[141] ohjelman  suunnitellut ja ohjelmoinut
  4. 4 [143]"gosub              mid$ukka (NULL)akkigosub
  5. 7 ifddthen20 : rem if dd<> 0 => paamenu
  6. 8 goto80 : rem latausten ohitus
  7. 17 rem -------------------
  8. 18 rem paluu paavalikkoon
  9. 19 rem
  10. 20 ifdd=1thenprint"[144][214]enaa v[h[n....":dd=2:load"print.lda",8,1
  11. 25 ifdd=2thendd=3:load"view.lda",8,1
  12. 30 poke646,peek(53281)
  13. 31 print"load"chr$(34)"mx"chr$(34)",8"
  14. 32 print"r[213][145][145][145][145][145][145][145][145]":poke198,2:poke631,13:poke632,13:end
  15. 41 rem vapaata tilaa riveilla
  16. 42 rem 33 - 40
  17. 43 rem -------------------
  18. 80 poke254,0:poke253,0:poke251,0:poke252,0
  19. 90 ifpeek(253)=1then5500
  20. 91 forx=828to864:readz:pokex,z:next
  21. 92 data120,169,3,141,21,3,169,73,141,20,3,88,96,162,,254,234,217,232,208
  22. 94 data250,76,49,234,120,169,234,141,21,3,169,49,141,20,3,88,96
  23. 100 goto9000
  24. 200 print"[147][144][212][ss[ j[lleen [201]lpon seikkailut."
  25. 210 print"[201]lpohan on nyt p[[ssyt soluttautumaan"
  26. 212 print"[194][203][199]:n riveihin."
  27. 214 print"[212]uhotaksesi [194][203][199]:n sinun t[ytyy p[[st["
  28. 216 print"arvostetummalle paikalle, kuin t[m[n"
  29. 218 print"hetkinen asemasi."
  30. 220 print"[211]inun t[ytyy p[[st[ bolitbroon"
  31. 222 print"j[seneksi."
  32. 224 print"[203]un olet p[[ssyt em. hommaan voit lopet-taa liike-el[m[n ja sen j[lkeen"
  33. 226 print"p[[set tuhoamaan [194][203][199]:n arkistot ja      keskustietokoneen."
  34. 230 print"[205]utta sit[ ennen sinun t[ytyy keplotella"
  35. 232 print"[145]taitavasti t[k[l[isess[ talousj[rjes-"
  36. 234 print"telm[ss[."
  37. 235 print"([208][211]. [203]annattaa ottaa kaikki tieto"
  38. 236 print"talteen mik[ liike-el[m[st[ on mahdol-"
  39. 237 print"lista ostaa, pelk[ll[ tuurilla ei"
  40. 238 print"selvi[.)":gosub7900
  41. 300 k=50:r=0:s=0:v=0:p=0:a=0:i=int(((rnd(0)*3)+3)*10)/10
  42. 400 print"[147]  homma       p[iv[  riski  vaadit kunto"
  43. 402 print"[145]              palkka   %    status":z=0
  44. 404 forx=0to12:ifz=0thenz=1:print"[144]";:goto406
  45. 405 z=0:print"";
  46. 406 printtab(int(1.5+(x>8)))"[157]"x+1;
  47. 407 printtab(2)h$(x)tab(15)h(x)
  48. 408 printtab(22)"[145]"hr(x):printtab(29)"[145]"hv(x)
  49. 409 printtab(35)"[145]"hk(x):next:print"14 loma        -10     0      0     10[144]"
  50. 410 poke198,0:input"valitse homma";t$:ift$=""thenprint"[145][145]":goto410
  51. 412 t=val(t$):ift<1ort>14then400
  52. 413 t=t-1:ift=13thengosub500:goto400
  53. 414 ift=10andmm(7)=0thenprint"paikka varattu[146]   [145]":goto417
  54. 415 ifs<hv(t)thenprint"ei tarpeeksi statusta[146]  [145]":goto417
  55. 416 goto450
  56. 417 forx=0to1000:next:print"                     [145][145]":goto410
  57. 450 print"[147]":gosub451:goto475
  58. 451 print"homma   "h$(t)
  59. 452 print"palkka "h(t)" ruplaa/vuorokausi"
  60. 454 print"riski  "hr(t)" %"
  61. 456 print"kunto  "hk(t);:ifhk(t)>0thenprint" yl\sp[in";:goto459
  62. 457 ifhk(t)<0thenprint" alas p[in";:goto459
  63. 458 print" = ennallaan":goto460
  64. 459 print" p[iv[ss["
  65. 460 print"kunto  "k:r=int(r*100)/100:print"ruplia "r
  66. 462 print"status "s
  67. 464 print"vodkaa "v" pulloa"
  68. 466 print"inflaatio "i"[157] %p[iv[ss[  "
  69. 470 ifathenprint"auto on, ";:goto472
  70. 471 print"ei autoa, ";
  71. 472 ifpthenprint"passi on":goto474
  72. 473 print"ei passia":ifr<0then2400
  73. 474 return
  74. 475 print"[205]it[ teet :"
  75. 478 print"1 - teet t[t[ hommaa 2 - ostat mitalleja"
  76. 479 print"[145]3 - ostat tietoja    4 - vaihdat hommaa"
  77. 480 print"5 - pid[t lomaa      6 - ostat auton"
  78. 482 print"7 - myyt auton       8 - ostat passin"
  79. 484 print"9 - ostat vodkaa    10 - myyt vodkaa"
  80. 485 print"11 - lopetat liike-el[m[n"
  81. 490 goto1000
  82. 500 print"[147][207]let lomalla"
  83. 510 print"rahaa "r" ruplaa"
  84. 520 print"inflaatio "i" % p[iv["
  85. 530 print"kuinka monta p[iv[[ lomailet"
  86. 535 print"[200][213][207][205]! lomakulut 10 ruplaa/p[iv["
  87. 540 x=0:input"return = lomalta paluu";x:ifx=0thenreturn
  88. 550 forz=1tox
  89. 555 r=r-10:k=k+10:r=r-r*i/100:r=int(r*100+.5)/100:ifr<0then2400
  90. 560 print"[147]p[iv[ n:o "z
  91. 562 print"[163][163][163][163][163][163][163][163][163][163][163][163]"
  92. 563 print"kunto "k:print"rahaa "r:print"inflaatio "i
  93. 564 gosub7900:i=int(((rnd(0)*3)+3)*10)/10:next:goto500
  94. 750 print"[205]ontako p[iv[[ putkessa":inputx$:x=val(x$):ifx<1then750
  95. 752 print"[147]":forc=1tox:print"p[iv[ numero "c-1:gosub451
  96. 755 ifint((rnd(0)*100)+1)>hr(t)thenr=r+h(t):goto760
  97. 756 r=r-h(t):print"riski petti[146]"
  98. 760 r=r-r*i/100:i=int(((rnd(0)*3)+3)*10)/10
  99. 765 k=k+hk(t):gosub7900:print"           "
  100. 766 print"                                       ";
  101. 770 next:goto450
  102. 1000 b=0:inputb:onbgoto750,1300,1010,400,1006,1050,1070,1090,1150,1200,1500
  103. 1005 goto1000
  104. 1006 gosub500:print"[147]":goto450
  105. 1010 print"[147][207]stat tietoja...omalla vastuullasi."
  106. 1012 print"paljonko suostut maksamaan?":print"[211]inulla on "r" ruplaa."
  107. 1014 inputb:ifb>rthen1014
  108. 1020 ifb<100then2000
  109. 1025 ifb<200then2010
  110. 1030 forx=11to0step-1:ifb>=t(x)andtd(x)=0thentd(x)=1:r=r-b:goto2030
  111. 1040 next:print"[211]orry ei tietoja t[n[[n.":r=r-b:gosub7900:goto450
  112. 1050 ifa=1thenprint"[147][211]inulla on jo auto!":gosub7900:goto450
  113. 1055 ifr>1000then1060
  114. 1056 print"[147][193]uto maksaa 1000 ruplaa."
  115. 1057 print"[202]a sinulla on vain "r
  116. 1058 gosub7900:goto450
  117. 1060 r=r-1000:print"[147][207]mistat nyt mossen vuosimallia 1957.":a=1:poke252,1
  118. 1062 gosub7900:goto450
  119. 1070 ifa=0thenprint"[147][211]inulla ei ole autoa.":gosub7900:goto450
  120. 1075 x=int(rnd(0)*500)+200
  121. 1080 print"[147][211]aat mossestasi "x" ruplaa.":r=r+x:a=0:poke252,0:gosub7900:goto450
  122. 1090 ifp=1thenprint"[147][211]inulla on jo passi.":goto1110
  123. 1092 ifr>=5000then1100
  124. 1093 print"[147][208]assi maksaa 5000 ruplaa."
  125. 1095 print"[202]a sinulla on vain "r:goto1110
  126. 1100 print"[147][211]inulla on nyt passi.":r=r-5000:p=1:poke251,1
  127. 1110 gosub7900:goto450
  128. 1150 print"[147][211]inulla on "v" pulloa vodkaa"
  129. 1152 print"[210]ahaa "r" ruplaa"
  130. 1154 print"[217]ksi pullo maksaa 5 ruplaa."
  131. 1160 input"montako pulloa ostat ";x
  132. 1165 ifx<=0then450
  133. 1170 ifx*5>rthen1154
  134. 1175 v=v+x:r=r-x*5:gosub7900:goto450
  135. 1200 print"[147][211]inulla on "v" pulloa vodkaa."
  136. 1202 ifv=0thenprint"eli ei myyt[v[[.":gosub7900:goto450
  137. 1205 x=int((rnd(0)*3)*10)/10+4
  138. 1210 print"[211]aat "x" ruplaa pullolta."
  139. 1220 c=0:input"[205]ontako myyt";c
  140. 1230 ifc>vthen1220
  141. 1240 r=r+c*x:v=v-c:goto450
  142. 1300 print"[147][211]inulla on mitallit :":forx=0to8
  143. 1305 ifmm(x)=1thenprintw$(x),
  144. 1310 next:print
  145. 1320 print"[210]ahaa on "r"ruplaa."
  146. 1335 print"[202]a [205]yyt[v[n[";:c=0:forx=0to8:ifmm(x)=0thenc=1
  147. 1340 next
  148. 1345 ifc=0thenprint" ei ole mit[[n.":gosub7900:goto450
  149. 1348 print:print"    mitalli          hinta   status"
  150. 1350 forx=0to8
  151. 1352 ifmm(x)=0thenprintx+1tab(3)w$(x)tab(20)m(x)tab(30)ms(x)
  152. 1355 next
  153. 1360 x=0:input"mink[ ostat ";x:x=x-1:ifx<0orx>8then450
  154. 1365 ifmm(x)=1thenprint"[211]inulla on se jo.":goto1360
  155. 1370 ifr<m(x)thenprint"[211]inulla ei ole tarpeeksi rahaa.":gosub7900:goto450
  156. 1375 s=s+ms(x):r=r-m(x):mm(x)=1:goto1300
  157. 1500 ift<>12then450
  158. 1510 print"[147][207]nnittelut selvitit taloudelliset":poke253,1
  159. 1520 print"ongelmat."
  160. 1525 ifpeek(251)=1then1540
  161. 1527 print"[205]utta sinulla ei ole passia."
  162. 1528 print"[211]inut vangitaan heti.":goto2410
  163. 1540 gosub7900
  164. 1550 print"[147][211]inun pit[isi nyt menn[ keskuskomitean"
  165. 1555 print"salaiseen virastotaloon, jossa sijait-"
  166. 1560 print"sevat salaiset arkistot ja hallituksen"
  167. 1565 print"keskustietokone."
  168. 1570 print"[205]ik[ on sen kaupungin nimi, jossa"
  169. 1575 print"em. paikka on."
  170. 1580 a$="":inputa$
  171. 1585 ifleft$(a$,5)="[207]imja"orleft$(a$,5)="oimja"then1600
  172. 1590 print"[214][[r[ kaupunki.":gosub7900:print"[147]":goto5000
  173. 1600 print"[147][205]enet [207]imjakoniin."
  174. 1605 ifpeek(252)=1then1700
  175. 1610 print"[211]inulla ei ole autoa joten menet"
  176. 1615 print"sinne jalkaisin."
  177. 1620 print"[203]oska matkaa on noin 7000 km kest[["
  178. 1625 print"matka noin 58 p[iv[[.":gosub7900
  179. 1630 ti$="000000":print"[147]"
  180. 1640 print"[207]let ollut matkalla "ti$:goto1640
  181. 1700 print"[212]ietenkin omalla mossella."
  182. 1710 forx=0to20:next:gosub7900
  183. 1720 print"[147][207]let nyt [207]imijakonissa."
  184. 1730 print"[211]inun pit[isi l\yt[[ virastotalo."
  185. 1740 gosub7900:print"[147][211]en l\yt[minen on helppoa. [211]e on ainoa"
  186. 1745 print"kivest[ rakennettu talo."
  187. 1750 print"[205]ist[ menet sis[lle :"
  188. 1752 print"1...etuovesta":print"2...sivuovesta":print"3...takaovesta"
  189. 1755 b=0:inputb:onbgoto1760,1790,1760
  190. 1756 goto1755
  191. 1760 print"[147][197]ksyit t[h[n isoon rakennukseen.":goto5000
  192. 1790 print"[147][207]let nyt aulassa.":print"[205]inne menet :"
  193. 1795 print"1...ullakolle":print"2...suoraan eteen p[in":print"3...kellariin"
  194. 1800 b=0:inputb:onbgoto1760,1760,1820
  195. 1805 goto1800
  196. 1820 print"[147][207]let nyt kellarissa."
  197. 1825 print"[197]r[[ss[ ovessa on kyltti."
  198. 1830 print"[208][[ttelet sen olevan p[[tehuone ja"
  199. 1835 print"potkaiset oven sarannoilta."
  200. 1840 print"[202]a oikein arvattu, t[[ll[ on"
  201. 1845 print"tietokone.":gosub7900
  202. 1900 print"[147][205]ink[ p[[tteen otat."
  203. 1905 print"[206]e on numeroitu 1:st[ 15:een."
  204. 1910 b=0:inputb:ifb<1orb>15then1910
  205. 1920 ifb=9then3000
  206. 1930 print"[147][214]alitsin v[[r[n p[[tteen."
  207. 1932 print"[211]e oli yhdistetty suoraan [194][203][199]:n turval-"
  208. 1934 print"lisuusosastolle."
  209. 1936 print"[202]oka sattumalta oli viereisess["
  210. 1940 print"huoneessa."
  211. 1942 print"[206][hdess[[n kuka t[[ll[ r[pelsi koneiden"
  212. 1944 print"kimpussa he avasivat tulen."
  213. 1950 goto5000
  214. 2000 r=r-b:print"[208]id[tk\ muita pilkkanasi!":forc=0to1000:next:goto450
  215. 2010 print"[212]iedot maksaa 200 - 2600 ruplaa.":forc=0to1000:next:goto450
  216. 2030 onx+1gosub2040,2045,2050,2055,2060,2065,2070,2075,2080,2085,2090,2095
  217. 2035 gosub7900:goto450
  218. 2040 print"[207]sta vodkaa ja myy sit] kalliilla.":return
  219. 2045 print"[219]l[ tuhlaa aikaa tavallisiin hommmiin.":return
  220. 2050 print"[217]rit[ aloittaa mustallap\rssill[.":return
  221. 2055 print"[193]puministeriksi p[[st[ksesi sinulla     t[ytyy olla ty\nmitalli."
  222. 2056 return
  223. 2060 print"[200]allituksen salainen virastotalo on     [207]imjakonissa":return
  224. 2065 print"[211]alaiseen virastoon p[[see sivuovesta.":return
  225. 2070 print"[208][[tehuone on kellarikerroksessa.":return
  226. 2075 print"[208][[tehuoneeseen tarvii avaimen.":return
  227. 2080 print"[214]oit lopettaa liike-el[m[n kun olet     [194]olitbroon j[sen.":return
  228. 2085 print"[219]l[ ole uhkarohkea.":return
  229. 2090 print"[207]ta p[[te numero 9.":return
  230. 2095 print"[208]asword on soljut"
  231. 2097 print"[213]sername on 86348904":return
  232. 2400 print"                                       ";
  233. 2402 forx=0to1500:next:print"[147][203][teisvarat loppuivat."
  234. 2405 print"[212][[ll[p[in ei ymm[rret[ luottokorttejasi"
  235. 2410 print"[145]ja sinut l[hetet[[n suolakaivokseen."
  236. 2415 ifv>0thenprint"[214]odkasi takavarikoitiin."
  237. 2420 ifs>0thenprint"[205]enetit kaikki statuksesi."
  238. 2425 print"[211]e on loppu nyt.":goto5000
  239. 3000 print"[147]":poke53281,0:poke53280,0
  240. 3005 input"password";a$:ifa$<>"soljut"thenprint"wrong word":goto3005
  241. 3010 input"username";a$:ifa$<>"86348904"thenprint"wrong word":goto3010
  242. 3020 print"[147]           - [194][203][199] terminal -"
  243. 3025 printtab(12)"top secret file"
  244. 3026 printtab(13)"system [211]oljut":printtab(13)"version v1.2"
  245. 3030 printtab(9)"by [206]akia corporation"
  246. 3032 printtab(13)"[198]inland 1982"
  247. 3034 a$="":print"":input">";a$:ifa$=""then3034
  248. 3040 a$=left$(a$,3):ifa$="apu"ora$="hel"then3100
  249. 3045 ifa$="kil"thensys64738
  250. 3050 ifa$="res"then3300
  251. 3055 ifa$="del"then3200
  252. 3090 print"?unidentify command-error?":goto3034
  253. 3100 print"system commands :"
  254. 3102 print"kill  - reset this terminal"
  255. 3104 print"del   - delete [211]oljut file"
  256. 3106 print"reset - stop the whole system"
  257. 3108 print"help  - display all terminal commands"
  258. 3130 goto3034
  259. 3200 print"[147][198]ormatting disk - wait please"
  260. 3205 open15,8,15:open5,8,5,"#":print#15,"b-r:"5;8;35;0
  261. 3220 forx=1to35:print#15,"b-r:";5;8;x;0
  262. 3230 print"track n:o "x" is now in new format":forc=0to500:next:next
  263. 3235 forc=0to2000:next:close15:close5
  264. 3240 print"[147]0 "chr$(34)"<disk>          "chr$(34)" 00 2a"
  265. 3242 print"664 blocks free."
  266. 3244 goto3034
  267. 3300 poke53280,14:poke53281,15:print"[147][144]"
  268. 3310 print"[203]oko [194][203][199]:n systeemi tuhoutui."
  269. 3320 print"[211]e huomataan muuallakin, joten sinulla"
  270. 3322 print"on kiire jos aiot selvit[ hengiss["
  271. 3324 print"pois t[[lt[."
  272. 3330 print"[203]uinka toimit :":print"1...piiloudut komeroon"
  273. 3332 print"2...rynt[[t ulos samaa tiet[ kuin           tulit sis[[n"
  274. 3334 print"3...hiivit k[yt[v[[ eteenp[in"
  275. 3340 b=0:inputb:onbgoto3350,3530,3530
  276. 3345 goto3340
  277. 3350 print"[147][207]let nyt komerossa harjan ja kahden"
  278. 3352 print"[mp[rin kanssa."
  279. 3354 print"[214]asenta kuvettasi likist[[ jokin laite."
  280. 3356 print"[203][[nnyt ja katsot.":gosub7900
  281. 3360 print"[147][211]e on 30 mm:n automaattinen panssarin-"
  282. 3365 print"torjuntakiv[[ri."
  283. 3368 print"[212]ulinopeus max. 22 laukausta/sek."
  284. 3370 print"[203]antama 800 m."
  285. 3372 print"[204]ippaassa 123 patruunaa."
  286. 3374 print"[203]iikarit[ht[in vakiona."
  287. 3376 print"[204][p[isee 9 mm ter[st[ 10m:n p[[st[."
  288. 3380 print"[201]lpo luki t[m[n kaiken joskus"
  289. 3382 print"[193]se & [203]orpi - lehdest[."
  290. 3384 print"[212]ottahan [201]lpo t[ll[isen tykin ottaa."
  291. 3386 print"[202]a kaksi varalipasta.":gosub7900
  292. 3390 print"[147][200]yst.. nyt p[[tehuoneeseen rynt[[ nelj["
  293. 3392 print"[194][203][199]:n turvallisuus poliisia."
  294. 3394 print"[200]e tuijottavat h\lmistynein[ monitoria."
  295. 3396 print"- [206]a kasalzva ko djam ..."
  296. 3398 print"- [206]jet boni mai."
  297. 3399 print"[212]appajat m\lisev[t mesken[[n."
  298. 3400 print"[202]uuri silloin tapahtuu pahin mahdolli-"
  299. 3402 print"nen."
  300. 3406 print"[193]ikaisemmin nautimasi imelletty hapan-"
  301. 3408 print"kaali ilmoittaa olostaan suolistossasi."
  302. 3410 print"[219][ni, joka tunkeutuu ilmoille on tuskin"
  303. 3412 print"korvin kuultavissa, mutta savupilvi"
  304. 3414 print"ja sen mukana leijaileva voimakashajui-"
  305. 3416 print"nen aromaattinen hiilivety-yhdistelm["
  306. 3418 print"kertovat olinpaikkasi kaikille muille."
  307. 3420 print"[205]it[ teet.":print"1...ollaan hiljaa vaan kun puhe             turhaa on"
  308. 3422 print"2...[207][204][197][212][160][210][193][205][194][207]"
  309. 3430 b=0:inputb:onbgoto3440,3460
  310. 3435 goto3430
  311. 3440 print"[147][211]e oli virhe."
  312. 3442 print"[212]yypit k[[ntyiv[t ja niittasivat"
  313. 3444 print"komerosi kasaan lyijyll[.":goto5000
  314. 3460 gosub8980:print"[147]":poke53280,1:poke53281,1
  315. 3470 print""tab(20)"[144][190] [188]"
  316. 3472 printtab(20)"[150][172] [187]"
  317. 3474 printtab(20)" [168] ":printtab(20)"[188] [146][190]"
  318. 3476 printtab(18)"[153][169]    [223]":printtab(17)"[169]      [223]"
  319. 3478 printtab(16)"[169]     [146][169][223] "
  320. 3480 printtab(14)"[144][171]    [185][185] [223][153][169][146][169][144][187]"
  321. 3482 printtab(8)"[188][145][213][157]  [146][145][185][157]           [150] [153][146][169] [144][161]"
  322. 3484 printtab(15)"[150][162][153]     [144][162][162][162]"
  323. 3486 printtab(17)"[151]     ":printtab(16)"[169]     [223]"
  324. 3488 printtab(15)"[169]  [146][169] [223]  [223]":printtab(14)"[169]  [146][169]   [223]  "
  325. 3490 printtab(14)"  [146][169]       "
  326. 3492 printtab(14)"    ":printtab(13)"[144][185]    [146][185]"
  327. 3494 printtab(12)"  [172]  [187]  ":x=54272:z=53270:v=53265:r=248
  328. 3500 pokex+5,88:pokex+6,89:pokex+4,129:pokex,20:pokex+1,25:pokex+24,15
  329. 3502 forc=0to150:pokez,(peek(z)andr)+rnd(0)*8:pokex+24,15
  330. 3503 print"[144][192][192]  [192][192]  "
  331. 3504 pokev,(peek(v)andr)+rnd(0)*8:pokex+24,0
  332. 3505 print"[144]  [192][192]  [192][192]"
  333. 3506 next:pokez,(peek(z)andr):pokev,(peek(v)andr)+3
  334. 3510 gosub8990:poke53281,15:poke53280,14
  335. 3512 print"[147][144][210]eitti selv[."
  336. 3514 print"[204]its l[ts ..."
  337. 3516 print"[202]alkasi likaantuvat liham\ss\ss[.":goto4000
  338. 3530 print"[147][214]oi voi."
  339. 3532 print"[203]yll[ sinussa ei ole agentin ainesta"
  340. 3534 print"[207]ikea agentti,"
  341. 3536 print"mainitsen nyt esimerkiksi vaikka"
  342. 3538 print"maailman kuuluisimman agentin"
  343. 3540 print"[202]ames [194]ondin, [197][201] koskaan poistu"
  344. 3542 print"huoneesta t[llaisess[ tilanteessa noin"
  345. 3544 print"vain."
  346. 3546 print"[214]arsinkaan kun ei ole aivan selvill["
  347. 3548 print"miss[ oikein on."
  348. 3550 print"[202]os haluat tiet[[ mit[ mielt[ t[m[n"
  349. 3552 print"pelin tekij[ on pelist[ ' [193] [214]iew"
  350. 3554 print"to [193] [203]ill' paina ^-n[pp[int[."
  351. 3556 print"jos et niin paina jotain muuta"
  352. 3560 poke198,0:a$=""
  353. 3565 geta$:ifa$=""then3565
  354. 3568 ifa$<>"^"then5000
  355. 3580 print"[147][208]ariisi-jakso on tosi tyls[."
  356. 3581 print"'[193]uton' ohjaus on liian vaikeaa."
  357. 3582 print"[204]is[ksi siihen on v[kisten saatu mukaan"
  358. 3584 print"ampuminen."
  359. 3586 print"[211]euraava osapeli on jo hieman parempi."
  360. 3588 print"[202]ames on tosin hieman p\lkyn n[k\inen."
  361. 3589 print"[214][rit on himme[t."
  362. 3590 print"[197]ri k[skyjen valinta joystikilla on"
  363. 3592 print"adventure-tyyppisess[ peliss[ turhaa"
  364. 3593 print"kikkailua ja tuskastuttavaa."
  365. 3594 print"palava talo palaa tosi k\m\sti."
  366. 3595 gosub7900
  367. 3596 print"[147][211]ilicon [214]alley muistuttaa kovasti peli["
  368. 3597 print"[209]uo vadis (vai toisin p[in)"
  369. 3598 print"[202][lkimm[inen on minusta parempi."
  370. 3599 print"[202]uoksu sujuu aika hyvin vaan oletko"
  371. 3600 print"n[hnyt miten pelihahmo juoksee peliss["
  372. 3601 print"[201]mpossible [205]ission (_paras [195]64:lle tehtypeli)"
  373. 3602 print"[208]uhe on mukiinmenev[ ( ei ved[ vertoja"
  374. 3603 print"[201]mpossiblelle)."
  375. 3604 print"[208]arhain osa peliss[ on se osuus, jossa"
  376. 3605 print"esitell[[n pelin tekij\it[, suuri"
  377. 3606 print"n[ytt\\n liukuva spiraali on"
  378. 3607 print"vaikuttava.":gosub7900
  379. 3608 print"[147][208]eli vaikuttaa kiireell[ tehdylt[."
  380. 3609 print"[203]one : kuusnelonen"
  381. 3610 print"[200]inta : nimi maksaa"
  382. 3611 print"[205]usiikki : 8":print"[208]uhe : 7"
  383. 3612 print"[219][net : 6"
  384. 3613 print"[199]rafiikka : 6":print"[203]iinnostavuus : 5"
  385. 3614 print"[217]leisarvosana : v[kisten tehty":gosub7900:print"[147]":goto5000
  386. 4000 gosub7900
  387. 4002 print"[147][208]itk[llisten harhailuiden harhailuiden"
  388. 4004 print"j[lkeen [201]lpo p[[see pois [194][203][199]:n l[[v[st[."
  389. 4005 print"[203]aukaanta kuuluu jo ajoneuvojen (pans-"
  390. 4006 print"sari) [[ni[."
  391. 4008 print"[211]iisp[ [210]un to forest."
  392. 4010 print"[201]lpo pist[[ laukaksi ja piiloutuu"
  393. 4012 print"mets[[n.":gosub7900
  394. 4014 print"[147][203]oska aseellinen toiminta alkaa"
  395. 4015 print"voimistua rakennuksen luona, p[[tt[["
  396. 4016 print"[201]lpo poistua paikkakunnalta v[hin [[nin.":gosub7900
  397. 4020 print"[147][212][st[ kohtaa on poistettu se osuus kun"
  398. 4022 print"[201]lpo samoili mets[ss[ etsien jotain.[144]"
  399. 4024 gosub7900:print"[147][201]lpo saapuu valtatien reunaan."
  400. 4026 print"[205]it[ teet :":print"1...l[hdet etel[[n"
  401. 4028 print"2...l[hdet pohjoiseen":print"3...vartut"
  402. 4030 b=0:inputb:onbgoto4040,4040,4060
  403. 4035 goto4030
  404. 4040 print"[147][207]let nyt valtatiell[."
  405. 4045 print"[201]'m a poor lonesome agent"
  406. 4046 print"and a long way from home"
  407. 4048 print"viel[k\ jaksat talsia k/e"
  408. 4050 a$="":inputa$:ifa$="k"then4045
  409. 4052 ifa$="e"thenprint"[147]":goto4026
  410. 4055 goto4050
  411. 4060 print"[147][205]it[ teet :":print"1...istut pientareelle"
  412. 4062 print"2...seisot tiell[":print"3...makaat tiell["
  413. 4065 b=0:inputb:onbgoto4070,4600,4600
  414. 4066 goto4065
  415. 4070 print"[147][200]oooohhoijaa"
  416. 4072 print"[211]inua ramasee, mit[ teet :"
  417. 4074 print"1...otat pienet torkut":print"2...pysyttelet hereill[."
  418. 4080 b=0:inputb:onbgoto4150,4090
  419. 4085 goto4080
  420. 4090 print"[147][207]let hooooooh hereil....zz l[  ........ .... .":forc=0to2000:next
  421. 4095 poke53280,0:poke53281,0:print"[147][153][197]t kest[nyt valveilla."
  422. 4096 print"[206]ukuit tiet[m[tt[si niin kauan, ett["
  423. 4097 print"aurinko ehti painua horisontin taakse."
  424. 4098 print"[211]inun t[ytyy varttua nyt aamuun."
  425. 4100 print"[217]\t[ on viel[ j[ljell[ melko pitk[[n."
  426. 4110 print"[159][214]artu.......[144]":forc=0to10000:next:poke53280,14:poke53281,15:goto4040
  427. 4150 print"[147][208]ienten torkkujen j[lkeen olo on"
  428. 4152 print"tosi ter[smiem[inen[144] [202][197][193][200].":gosub7900
  429. 4154 print"[147][208]ienen varttumisen j[lkeen alkaa kuulua"
  430. 4156 print"auton [[nt[."
  431. 4168 c=int(rnd(0)*10):print"[204][hestyv[ auto on ";:q=0
  432. 4169 oncgoto4171,4172,4173,4174,4175,4176,4177,4178,4179,4180
  433. 4171 print"[204]ada.":q=1:goto4190
  434. 4172 print"[205]oskvitsh.":q=1:goto4190
  435. 4173 print"[208]eugeot.":goto4190
  436. 4174 print"[212]oyota.":goto4190
  437. 4175 print"[211]koda.":q=1:goto4190
  438. 4176 print"[207]pel.":goto4190
  439. 4177 print"[215]artburg.":q=1:goto4190
  440. 4178 print"[205]ersu.":q=1:goto4190
  441. 4179 print"[198]ord.":goto4190
  442. 4180 print"[208]olski-[198]iat.":q=1
  443. 4190 print"[204]iftaatko kyytiin :":print"1...kyll[":print"2...et"
  444. 4195 b=0:inputb:onbgoto4200,4060
  445. 4196 goto4195
  446. 4200 ifq=0then4250
  447. 4210 print"[147][200]ypp[[t kyytiin ja    aaaaarrrggh"
  448. 4212 print"[193]uto on t[ynn[ [194][203][199] k\rmyj[, jotka"
  449. 4214 print"olivat juuri jahtaamassa sinua."
  450. 4216 print"[201]lposta ei j[[nyt j[ljelle paljonkaan."
  451. 4218 print"[205]uista seuraavalla kerralla liftata"
  452. 4220 print"toisen merkkiseen autoon.":goto5000
  453. 4250 print"[147][203]uski on hieman ep[illytt[v[n n[k\inen,"
  454. 4255 print"mutta ei se mit[[n kunhan vain p[[st[[n"
  455. 4260 print"[211][213][207][205][197][197][206][144]."
  456. 4262 print"[201]lpo nimitt[in kysyi hepulta minne se"
  457. 4264 print"on menossa :"
  458. 4265 print"-[220]h k[n juu tel me were aa juu going to?"
  459. 4268 print"heppu vastasi :"
  460. 4270 print"-[205]it[ helvetti[ s[ s\nkk[[t..."
  461. 4273 print"[202]a asia selvisi sill[ kertaa."
  462. 4274 print"[212][[ tyyppi kuljettaa [212]haimaasta hammas-"
  463. 4276 print"tahna tuubeja (mukana my\s pepson-pump-"
  464. 4278 print"puja) suomeen (!!!)":gosub7900
  465. 4300 print"[147][208]itk[llisten seikkailuiden, jota on"
  466. 4310 print"t[ss[ turha kertoa [205]ies ja [201]lpo"
  467. 4312 print"l[hestyv[t [211][213][207][205][197][206][144] rajaa tarkemmin"
  468. 4314 print"sanottuna [214]aalimaan raja-asemaa.":gosub7900
  469. 4316 print"[147][193]uto pys[htyy puomin eteen ja tullimies"
  470. 4318 print"astelee eritt[in massiivisin askelein"
  471. 4320 print"kohti autoa."
  472. 4323 print"- ja ha onko tullattavaa ?"
  473. 4324 print"-[197]hei ole, vastaatte kuorossa."
  474. 4326 print"-[211]aisinko passit."
  475. 4330 print"[211]inun passisi on jossain miss[ lie."
  476. 4335 print"[211]aman aikaisesti toinen tullivirkailija"
  477. 4338 print"on tonkimassa hammastahnalastia ja."
  478. 4340 print"huutaa kaverinsa sinne."
  479. 4342 print"[211]amalla hetkell[ [205]ies, joka ajoi autoa"
  480. 4344 print"hypp[[ ulos ja loikkii mets[[n."
  481. 4346 print"[211]in[ katselet tapahtumia monttu auki.":gosub7900
  482. 4350 print"[147][219]kki[ sinua tartutaan k[sivarresta ja"
  483. 4352 print"raahataan kohti tullimiesten taukotupaa.":gosub7900:goto4700
  484. 4600 print"[147]":forb=0to5
  485. 4610 print"[193]uto l[hestyy":forc=0to1000:next:next:print"[193]uto on jo [158]todella[144] l[hell[."
  486. 4620 forc=0to1000:next:print"[202][it auton alle."
  487. 4625 print"vain tollo oleskelee keskell[ tiet[."
  488. 4630 print"[193]inakin t[[ll[ miss[ vallitsee vapaa"
  489. 4635 print"liikennekulttuuri.":goto5000
  490. 4700 print"[147][211]inut istutetaan istumaan tuoliin."
  491. 4705 print"[197]teesi p\yd[lle puserretaan yksi tuubi"
  492. 4710 print"hammasta...jauhoa."
  493. 4715 print"[211]iis huumetta no johan on."
  494. 4720 print"[197]r[s tullimiehist[ sanoo:"
  495. 4722 print"-[207]dotamme [211]uopon miehi[ t[nne."
  496. 4724 print"[207]nko sinulla mit[[n sanottavaa puolus-"
  497. 4726 print"tautuaksesi?"
  498. 4730 print"-[205]in[ olen [211]uopon agentti."
  499. 4735 print"[203]aikki muut paiti sin[ r[j[ht[v[t"
  500. 4738 print"r[k[iseen nauruu."
  501. 4740 print"-[202]os tuo [212]urhapuron n[k\inen heitti\"
  502. 4742 print"on [211]uopon agentti miin min[ olen"
  503. 4744 print"[208]ekka [208]aavola hah hah haa ."
  504. 4746 print"[211]elityksesi eiv[t auta mit[[n."
  505. 4750 print"[201]stut kiltisti paikallasi."
  506. 4755 gosub7900
  507. 4760 print"[147][204]opulta paikalle saapuu [202]oku tyyppi"
  508. 4762 print"[211]uoposta, seh[n on [197][206][211][201][207]."
  509. 4764 print"[197]nsio aloittaa :"
  510. 4766 print"- [212][m[ tyyppi jonka olette pid[tt[neet"
  511. 4768 print"on salainen agentti. [200][n on  minun"
  512. 4770 print"alaiseni."
  513. 4772 print"-[211]orry vaan ei sill[ ollu mit[[n"
  514. 4773 print"papereita.":gosub7900
  515. 4780 print"[147][202]oudut keskusteluun [197]nsion kanssa."
  516. 4782 print"[205]iss[ pirussa sin[ olet luuhannut"
  517. 4784 print"minulle on tullut kasap[in laskuja"
  518. 4786 print"esimerkiksi t[m[ : kolme kappaletta"
  519. 4790 print"wc-pyttyj[ a 1800 mk jossain ravinto-"
  520. 4792 print"lassa, ne pid[tet[[n tietysti palkastasi"
  521. 4794 print"[217]hden pienen ohjuksen hakeminen (suom."
  522. 4796 print"huom. kts [198]loppy 2/85) kest[[ vuoden"
  523. 4798 print"[206]o nyth[n voi pit[[ lomasi.":gosub7900
  524. 4804 print"[147][200]aikeana minun on todettava, ett[ [201]lpon"
  525. 4806 print"seikkailut loppuvat t[h[n.":gosub7900
  526. 4810 print"[205]utta jo seuraavassa numerossa"
  527. 4815 print"[201]lpo jatkaa [158]uusissa[144] seikkailuissa.":dd=1:goto20
  528. 5000 poke254,peek(254)+1:print"[212][m[ oli "peek(254)"[157]. yritys."
  529. 5010 print"[219]l[ viel[ heit[ konetta ikkunasta"
  530. 5015 print"pihalle (varsinkin jos isukki on"
  531. 5020 print"ostanut sen)."
  532. 5030 print"[203]uis on, viel[k\ yrit[t ?"
  533. 5035 print"vastausvaihtoehdot k-kyll[ e-ei":a$=""
  534. 5040 geta$
  535. 5045 ifa$="k"thenrun90
  536. 5047 ifa$="e"thendd=1:goto20
  537. 5050 goto5040
  538. 5500 print"[147][203]oska selvitit jo kertaalleen tosi"
  539. 5505 print"vaikean bisnesmiesosuuden p[[set ohi"
  540. 5520 print"siit[ jos painat"
  541. 5525 print"x-n[pp[int[."
  542. 5528 print"jos haluat pelata viel[ syyst[ tai"
  543. 5530 print"toisesta sit[ viel[ paina c-n[pp[int[.":poke198,0
  544. 5535 a$="":inputa$:ifa$="x"then1550
  545. 5538 ifa$="c"then91
  546. 5540 goto5535
  547. 5980 end
  548. 6000 data"kadun[157][157][157][157][157]lakaisu",5,,,2
  549. 6002 data"ojan[157][157][157][157]kaivuu",10,1,,5
  550. 6004 data"suolakai-[157][157][157][157][157][157][157][157][157]voksessa",40,10,,20
  551. 6006 datavalimossa,20,5,,10
  552. 6008 datamustap\rssi,5000,70,,
  553. 6010 data"turisti-[157][157][157][157][157][157][157][157]huijaus",500,50,,
  554. 6012 datavaltuutettu,50,15,50,-5
  555. 6014 datalehtimies,60,25,10,-5
  556. 6016 data"apuminist.[157][157][157][157][157][157][157][157][157][157]sihteeri",70,20,60,-10
  557. 6018 data"ministerin[157][157][157][157][157][157][157][157][157][157]sihteeri",80,10,100,-25
  558. 6020 data"apuministeri",200,10,200,-15
  559. 6022 dataministeri,300,5,300,-20
  560. 6024 data"bolitbroon[157][157][157][157][157][157][157][157][157][157]j[sen",1000,,500,-20
  561. 6030 dataansioristi,500,10
  562. 6032 datasuuransioristi,1000,20
  563. 6034 datalenininkuva,1250,30
  564. 6036 datakansalaisristi,750,15
  565. 6038 datamoscvamitalli,3000,50
  566. 6040 data"[201][201] ansioristi",5000,100
  567. 6042 datamarxismimitalli,12500,200
  568. 6044 dataty\n mitalli,12750,40
  569. 6045 data"[201][201][201] ansioristi",13000,35
  570. 6060 data200,400,600,800,1000,1200,1400,1600,1800,2000,2200,2600
  571. 7900 print"             paina jotain              [146][144]";
  572. 7910 forxv=0to20:next
  573. 7920 poke198,0
  574. 7930 geta$:ifa$=""then7930
  575. 7940 return
  576. 8980 poke56576,199:poke53272,21:poke648,4:return:rem norm
  577. 8990 poke56576,196:poke53272,19:poke648,196:return:rem skand
  578. 9000 gosub8980:poke53281,0:poke53280,0:print"[147]"
  579. 9002 printtab(10)"[209][209][209][209][209][158][209][209][209][159][209][209]"
  580. 9004 printtab(10)"[209][209][209][209][158][209][209][159][209][209][209]"
  581. 9006 printtab(10)"[209][209][209][209][209][158][209][209][159][209][209][209]"
  582. 9008 printtab(10)"[209][209][209][158][209][209][159][209][209][209]"
  583. 9010 printtab(10)"[209][209][209][209][209][158][209][209][209][159][209][209]"
  584. 9012 printtab(11)"[172][161][146][190][161][161][191][161][146][172][190][190][146][187][161][161][161][161][146][188][172]"
  585. 9014 printtab(11)"[187][161][146][190][161][172][146][187][161][146][191][188][146][161][161][161][161][161][146][161]"
  586. 9016 printtab(11)"[162][146][188][190][190][190][188][188][190][190][190][190][162][146][188][162][146][190]
  587. 9018 [153][163]12)"*waitget*wait*loggetnewsinwait*get*waitcos"
  588. 9020 [153][163]12)"getgetrndgetcosgetrndsinlogwaitget*waitget"
  589. 9022 [153][163]12)"newwaitcosnewwaitlogloglognewwaitlogcosnewwaitcos"
  590. 9024 [153][163]27)"pokeodota...":[158]828:[137]16000
  591. 9028 [153]""[163]27)"paina jotain":[151]198,0
  592. 9030 [161]a$:[139]a$[178]""[167]9030
  593. 9048 [158]852:[151]53280,14:[151]53281,15:[153]"load":[141]8990:[137]200
  594. 10000 [153][200](s$,y)[163]x);:[129]x[178]1[164][195](a$):z[178][198]([202](a$,x,1))
  595. 10002 [139]z[177]64[167][153]m$(z[171]65)"onononon";:[137]10010
  596. 10004 [139]z[178]32[167][153]"";:[137]10010
  597. 10006 [153]m$(z[171]19)"onononon";
  598. 10010 [130]:[142]
  599. 16000 [134]h$(12),h(12),hr(12),hv(12),hk(12),w$(8),m(8),ms(8),mm(8),td(11),t(11)
  600. 16005 [129]x[178]0[164]12:[135]h$(x),h(x),hr(x),hv(x),hk(x):[130]
  601. 16010 [129]x[178]0[164]8:[135]w$(x),m(x),ms(x):[130]:[129]x[178]0[164]11:[135]t(x):[130]
  602. 16020 [129]x[178]54272[164]54296:[151]x,0:[130]
  603. 16030 [137]9028
  604.