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