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 IFS0THENPRINT" 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 IFR12THEN450 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)" "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