1 REM"[141][147][141][141] ILPON SEIKKAILUT 2 [143]"GOSUB BY JUKKA SAKKI 3 REM" 10.2.1987 4 [143]""[204] 200 [151]14125,240:[151]14129,200:[158]14113:[158]14080:[137]770 395 [151]198,0:[153]" PAINA NAPPULAA":[146]198,1:[142] 410 [151]198,0 425 [161]A$:[139]A$[178]""[167]425 440 A[178][197](A$):[139]A[179]1[176]A[177]B[167]410 455 [142] 460 [151]14125,248:[151]14129,200:[158]14113 462 [151]53270,[194](53270)[176]8 465 [151]56576,196:[151]53272,19:[151]648,196 470 [151]53280,6:[151]53281,15:[153]"STOPLOAD .[[LYPP[N 485 PRINT" NIATOJ ANIAP NIIN )ATSITCUDORP AMLEJHO 500 [153]" [TS[V[TTYLLEK[H [TS[T USIAMLI NENIL 515 PRINT"-LEMIN NO ILEP( [ILEP AAKTAJ TAULAH SO[202] 530 [153]" .AJUTI AJ [TIESEL \YS SOJ NIKNISRA(null) 545 PRINT" .SUTSARRAH NENILLEEVRET NO NENIMAAGOO[202] 560 [153]" . TAAGOOJ [TTE ,ONAS 575 PRINT"TUNIS AAMOUH UKOJ AJ IS[LL[[P TUTSI SO[202] 590 [153]" .N[H[[P ULAV ASSIP IETTE ORA(null) .AAKKIAP 605 PRINT" IS[[P AJ ISESKUMAKAT TADHIAV AJ ELLA 620 [153]" ..EESREP NYNYYT AATTIAL ITSYTEIT TIO(null) 635 PRINT" ...OONAS N[[TIM TYN ES SO[202] 650 [153]" .ETINN[JLORTNOC WOL/HGIH NILAANGIS-ASC(null) 665 PRINT" ALLAMIOTREVNI YTHET NO ITKEFE [M[[212] 680 [153]" ....AAAH AH ITH[JRYN ISAKSIN OKOMID$ 695 PRINT" .IR[PMY ES [NN[[K NIIN [[TTELY 710 [153]" TAHUIP NIRAKKLET IAT NIROTINOM SOMID$ 725 PRINT" ??? AEKUL AAEKIAV OKNO HEH HE[200]":POKE198,0 740 GETA$:IFA$<>""THEN742 741 GOTO740 742 PRINT"[147]":POKE14125,240:POKE14129,200:SYS14113 743 GOTO1160 770 PRINT"[147]":POKE53280,6:POKE53281,0 785 POKE56576,196:POKE53272,19:POKE648,196 800 V=53248:P=51192:POKEP,1:POKEP+1,0:POKEP+2,2:POKEP+3,60:POKEP+4,61:POKEP+5,62 815 POKEP+6,63:POKEP+7,3:POKEV+28,0:FORX=39TO46:POKEV+X,1:NEXT 830 FORX=1TO13STEP2:POKEV+X,20:NEXT:FORX=0TO4STEP2:POKEV+X,90+12*X:NEXT 845 FORX=6TO12STEP2:POKEV+X,110+12*X:NEXT:POKEV+29,128:POKEV+23,0:POKEV+16,0 860 POKEV+14,255:POKEV+15,55:POKEV+21,255:PRINT"[147][153]":SYS49408 875 PRINTTAB(14)"OSA 9/46":PRINT" [159][212][M[ ON LAITEVALMISTAJISTA, 890 [153]" POLIITTISISTA PUOLUEISTA, HUUMEISTA, 905 PRINT" [203]AARINA [211]UONIOSTA, BODAAJISTA, 920 [153]" TASA-ARVOVALTUUTETUSTA, VIHREIST[ JA 935 PRINT" HAPPOSATEISTA RIIPPUMATON 950 [153]" TIETOKONEOHJELMA. 965 PRINT" [203]AIKKI OIKEUDET T[H[N OHJELMAAN 980 [153]" OMISTAA (null)ROTOCOL (null)Y.":[153]"DEF (null)HJELMAN LUVATON KOPIOINTI ON 995 PRINT" TAPONUHALLA KIELLETTY. 1010 [153]" LIST(null)AITTOMASTA TOIMINNASTA SEURAA 1025 PRINT" SAKKORANGAISTUS, LAITTEIDEN 1040 [153]" MENETT[MINEN PELASTUSARMEIJALLE SEK[ 1055 PRINT" KARKOITUS [193]HVENANMAALLE. 1056 [153]" CHR$RAFIIKKA BY MID$ARI (null)\DERHOLM. 1070 PRINTTAB(10)"[154]PAINA N[PP[INT[":POKE198,0 1100 A=PEEK(49679)+256*PEEK(49680):GETA$:IFA$<>""THEN1145 1115 IFA>41610ANDA<41730THENPOKE49681,RND(0)*8 1130 GOTO1100 1145 POKEV+21,0:SYS49694:POKE53280,0:GOTO460 1160 POKE56576,196:POKE53272,19:POKE648,196:POKEV+21,0:PRINT"[147]" 1162 POKE14125,240:POKE14129,200:SYS14113 1175 POKE53281,15:POKE53280,6:PRINT"[147][144][206]YT ITSE ASIAAN" 1190 PRINT"[201]DEA ON SEURAAVANLAINEN (_MAHTAAKO OLLA YHDYSSANA ??): 1205 [153]"(null)ULIPA HUIMASTI V[LIMERKKEJ[ TUOHON 1220 PRINT"EDELLISEN LAUSEEN LOPPUUN. 1235 [153]"(null)IIN SE IDEA ON SEURAAVANLAINEN : 1250 PRINT"[201]LPON PIT[ISI ETSI[ KADONNUT L[HETYS- 1265 [153]"SAARNAAJA. 1280 PRINT"[204][HETYSSAARNAAJA L[HTI [198]INNAIRIN 1295 [153]"KONEELLA PEEKANGOKKIIN SEKS...UH..\H K\H 1310 PRINT"R\H..SEURAMATKALLE. [200][NEN TEHT[V[N[[N 1325 [153]"OLI TUTUSTUA PAIKALLISEEN RAVINT...\H.. 1340 PRINT"RAAMATTUSEURAN TOIMINTAAN JA TEHD[ 1355 [153]"AISTIMUKSIA PROSTID...TARKOITAN 1370 PRINT"DIAKONISSOISTA.":GOSUB395 1385 PRINT"[147][204][HETYSSAARNAAJAN NIMI ON PASTORI 1400 [153]"(null).(null)ALMI LEFT$[RM[N SEURAKUNNASTA. 1415 PRINT"[208]ASTORI SAI NIMENS[ JO KASTEESSA JA 1430 [153]"SILLE H[N EI VOI PSALMINKAAN VERTAA. 1445 PRINT"[200]UOM! SIN[ OLET JO [194]ANGOKISSA JA 1460 [153]"KURSORI EI TULE N[KYVIIN T[SS[ PELISS[. 1475 PRINT"[211]YY KURSORIN N[KYM[TT\MYYTEEN ON SE,ETT[ 1490 [153]"ONJOTKIN AIKAISEMMAT RIGHT$LPOT EIV[T TOIMINEET 1505 PRINT"[145]NIIDEN KUUSNELOSTEN KANSSA, JOIDEN 1520 [153]"LENRIGHT$ATN - PIIRIT (CIA = COMPLEX INTERFASE ADAPTER) OLI VALMISTETTU 1535 PRINT"[194]ULGARIASSA, JOTEN N[PP[INRUTIINIA ON MUUTETTU.":GOSUB395 1550 PRINT"[147][205]IT[ TEET:":PRINT"1...MENET TEMPPELIIN 1565 [153]"2...MENET BORDELLIIN":[153]"3...VIHELL[T RIKSAN PAIKALLE 1580 B=3:GOSUB410:ONAGOTO1595,1760,1910 1595 PRINT"[147][197]T TIED[ MISS[ TEMPPELEIT[ ON. 1610 [153]"(null)YSYTK\ :":[153]"1...(null)UOMEKSI":[153]"2...ENGLANGIKSI":[153]"3...THAIKSI 1625 B=3:GOSUB410:ONAGOTO1640,1700,1745 1640 PRINT"[147]- [193]NTEEKSI MISS[H[N ON TEMPPELI ?" 1655 PRINT"[203]AIKKI KATSOVAT SINUUN JA JOKU SANOO : 1670 [153]"- ATNTEKI SISSAHUN OK MEPPLI HAHA HAA 1685 PRINT"[203]AIKKI P[[ST[V[T H\R\NAURUT JA JATKAVAT OMIA HOMMIAAN.":GOSUB395:GOTO1550 1700 PRINT"[147]- PARDON .. CAN YOU TELL ME WHERE IS THE NEAREST TEMPEL ? 1715 [153]"MID$OKU SANOO :":[153]"- SI SENOR YOU MUST GO TO CHINX GATAN. 1730 PRINT" THERE IS TEMPLE OF [194]UDHA.":GOSUB395:GOTO1550 1745 PRINT"[147][211]IN[ ET OSAA THAIN KIELT[.":GOSUB395:GOTO1550 1760 PRINT"[147][207]LET NYT HAUSKASSATALOSSA":PRINT"HAUSKOJENTYTT\JEN KANSSA." 1775 PRINT"[212]IESITK\, ETT[ JOPA 70%:LLA EM. AMMATIN- 1790 [153]"ONHARJOITTAJISTA ON JOKIN SUKUPUOLITAUTI? 1805 PRINT"1...TIESIT":PRINT"2...ET TIENNYT":B=2:GOSUB410:ONAGOTO1820,1835 1820 PRINT"[147][207]LET TYHM[N ROHKEA, SAIT TAUDIN JA [203]UOLIT[144].":GOTO2500 1835 PRINT"[147][206]YT TIED[T JA VIISAANA HEPPUNA J[T[T 1850 [153]"HOMMAN V[LIIN... (TAI PIKEMMINKIN SIIS 1865 PRINT"J[T[T HOMMAN POIS V[LIST[).":GOSUB395:GOTO1550 1910 PRINT"[147][210]IKSA TULI PAIKALLE JA KIIPE[T KYYTIIN. 1925 [153]"(null)INNE K[SKET POJAN RAVATA ? 1940 PRINT"1...SATAMAAN":PRINT"2...TO FUNNYHOUSE":PRINT"3...TO CHINX GATAN 1955 B[178]3:[141]410:[145]A[137]1970,1760,2045 1970 [153]"LOAD(null)IKSAPOIKA EI YMM[RT[NYT (null)UOMEA JA 1985 PRINT"NIIMP[ H[N KUSKASI SINUT ORJAMARK- KINOILLE. 2000 [153]"VALR[S LIHAVA SULTTAANI OSTI SINUT OMAAN 2015 PRINT"HAAREMIINSA EUNUKIKSI ! 2030 [153]"(null)IIHEN LOPPUI LORU (null)ORBUSTEN ORJASTA, RIGHT$LPOSTA.":[137]2500 2045 [153]"LOAD":[151]56576,151:[151]53272,23:[151]648,4:[151]14125,224:[151]14129,194 2050 [158]14113:T[178]49152 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 2062 Q$[178]"" 2070 [153]"LOAD":X[178]0:[141]3200 2072 [153]Q$"(null)LET NYT TEMPPELIN LUONA MITA TEET : 2074 PRINT"[144]1...RUKOILET JUMALAA":PRINT"2...HUUDAT 'HUHUU'":PRINT"3...SYTYTAT KYNTTILAN 2076 B[178]3:[141]410:[145]A[137]2080,2110,2090 2080 [141]3700:[153]Q$"(null)UKOILIT JUMALAA. (null)E ON BUDHAN PILKKAA. 2082 PRINT"[211]INUT UHRATAAN BUDHALLE, JOTTA SE LEPPYISI. 2084 [153]"TEIT VAKAVAN VIRHEEN ELI PELI LOPPUI.":[141]395:[137]2500 2090 [141]3700:X[178]264:[141]3200 2094 [153]Q$"(null)LIT VAROMATON KYNTTILAN KANSSA. 2096 PRINT"[212]EMPPELI SYTTYI TULEEN. [205]ITA TEET : 2098 [153]"1...KATSELET KUN SE PALAA":[153]"2...ETSIT PUHELIMEN":B[178]2:[141]410 2100 [145]A[137]2104,2220 2104 [141]3700:X[178]3003:[141]3200 2108 [153]Q$"(null)EMPPELI PALOI ROIHUTEN RAUNIOKSI.":[141]395 2110 [141]3700:X[178]2781:[141]3200:[153]Q$"(null)AIKALLE TULEE ALKUASUKAS, KOURASSAAN 2112 PRINT"HANELLA ON VOIVEITSI (EI VOIMARIINI- 2113 [153]"EIKA MARGARIINIVEITSI).":[141]395:[141]3700 2114 [153]Q$"(null)YSYTKO HEPULTA:":[153]"1...ONKO SE HUOMANNUT 2116 PRINT" [211]UOMALAISTA PAPPIA !":PRINT"2...ONKO SILLA ANTAA JUOTAVAA 2117 B[178]2:[141]410:[145]A[137]2118,2340 2118 [141]3700:[153]Q$"- MID$OO ON NAKYNNY SE PAINELI TONNE":[153]" VIIDAKKOON.... 2120 GOSUB395:GOSUB3700:PRINTQ$"[215]ELL...":PRINT"1...MENET VIIDAKKOON 2122 [153]"2...ET MENE VIIDAKKOON":B[178]2:[141]410:[145]A[137]2130,2126 2126 [141]3700:[153]Q$"MID$OS AIJOT RATKAISTA JUTUN PARASTA":[153]"OLISI MENNA":[137]2120 2130 [141]3700:X[178]1279:[141]3200:[153]Q$"(null)ALITETTAVASTI VIIDAKKOKUVAT OLI 2132 PRINT"LOPPUNNU. [202]OTEN LAITOIN TILALLE 2134 [153]"AAVIKKOKUVIA.":[141]395:[141]3700 2136 [153]Q$"(null)LET NYT VIIDAKOSSA, MITA TEET :" 2138 [153]"1...ETSIT (null).(null)ALMEN":[153]"2...ETSIT MID$ANEN":[153]"3...TAPAT LEIJONAN 2140 PRINT"4...KIIPEAT PUUHUN":B=4:GOSUB410:ONAGOTO2144,2170,2152,2160 2144 GOSUB3700:PRINTQ$"[214]ARO VIIDAKKOA, ALA LAHDE YKSIN 2148 [153]"VIIDAKKOON SEIKKAILEMAAN":[141]395:[141]3700:[137]2136 2152 [141]3700:X[178]2121:[141]3200:[153]Q$"VALDESSASI ON VERENHIMOINEN LEIJONA. 2154 PRINT"VALITETTAVASTI KAVI NIIN, ETTA 2156 [153]"LEIJONA TAPPOI SINUT ETKA SINA SITA.":[137]2500 2160 [141]3700:X[178]1471:[141]3200:[153]Q$"(null)IIPESIT PUUHUN JA NAET VIIDAKKOA 2162 PRINT"([200]UOM! KUVASSA ON AAVIKKOA EIKA 2164 [153]" VIIDAKKOA.)":[141]395:[141]3700:X[178]1279:[141]3200:[137]2136 2170 [141]3700:X[178]1834:[141]3200:[153]Q$"(null)AUUU..... SILMIESI EDESSA ON MID$ANE. 2172 PRINT"[205]ITA TEET :":PRINT"1...KYSYT [208].[211]ALMEA":PRINT"2...EHDOTAT HAUSKAA PUOLITUNTISTA 2176 B[178]2:[141]410:[145]A[137]2200,2180 2180 [141]3700:[153]Q$"LEFT$ERAAT AAMULLA JA KERAAT VAATTEESI 2182 PRINT"LATTIALTA. [211]AMALLA KUN KUULET JONKUN 2184 [153]"TULEVAN, HUOMAAT SORMUKSEN YOPOYDALLA. 2186 PRINT"[200]YPPAAT IKKUNASTA ULOS JA JUOKSET 2188 [153]"NIIN KAUAS KUIN JAKSAT.":[141]395:[141]3700 2190 [153]Q$"(null)ILOMETRIN JUOSTUASI PUET VAATTEET 2192 PRINT"PAALLESI JA KAVELET. 2194 [153]"(null)UTTA JUOKSIT ITSESI EKSYKSIIN JA 2196 PRINT"KUOLIT[144] VIIDAKKOON.":GOTO2500 2200 GOSUB3700:PRINTQ$"[202]OO MINA NAIN HANET JA NAIN HANTA. 2202 [153]"LEFT$AN MENI LENTOKENTALLE PAIN.":[141]395:[141]3700:X[178]1550:[141]3200 2206 [153]Q$"(null)LET LENTOKENTALLA, KYSYT MISSA (null)ALMI 2208 PRINT"MAJAILEE . 2210 [153]"(null)UKAAN EI TIEDA. 2211 PRINT"[205]ITA TEET :":PRINT"1...NYKASET VIIVAN KOKAA 2212 [153]"2...PALAAT KOTOMAAHAN":[153]"3...PERUSTAT VAIMOJEN VACMDONTOLITYSLIIKKEEN 2214 B=3:GOSUB410:ONAGOTO2900,2350,2390 2220 GOSUB3700:X=361:GOSUB3200:PRINTQ$"[207]LET NYT PUHELINKOPISSA JA EDESSASI ON 2222 [153]"PUHELIN. (null)ITA TEET :":[153]"1...SOITAT PALOKUNNALLE" 2224 [153]"2...SOITAT POLIISILLE":[153]"3...RIKOT PUHELIMEN":B[178]3:[141]410 2228 [145]A[137]2254,2230,2240 2230 [141]3700:[153]Q$"(null)OITIT POLIISILLE. SINUT PIDATETAAN. 2232 PRINT"[212]HAIMAASSA KUULUSTELUT ALKAVAT AIKAI- 2234 [153]"SINTAAN 4:N KUUKAUDEN KULUTTUA. 2238 PRINT"[205]ATANET PUTKAAN.":GOTO2500 2240 GOSUB3700:PRINTQ$"[210]IKOIT PUHELIMEN. [211]UOMESSAHAN SE 2242 [153]"ON NIIN PIKKURIKOS, ETTA SIITA EI EDES 2244 PRINT"AINA JOUDU KIINNI.":GOSUB395:GOSUB3700 2246 PRINTQ$"[205]UTTA [212]HAIMAASSA SE RINNASTETAAN 2248 [153]"HUUMEIDEN HALLUSSAPITOON. (null)INUT 2250 PRINT"PIDATETTIIN.":GOSUB395:GOSUB3700:PRINTQ$:GOTO2232 2254 GOSUB3700:X=659:GOSUB3200:PRINTQ$"[208]ALOKUNTA KIIRUHTAA PAIKALLE JA 2256 [153]"SAMMUTTAA PALON (IHMEELLISTA).":[141]395:[137]2070 2336 [153]"(null)UISTA SE ENSI KERRALLA. (null)UOLITSTOP":[137]2500 2340 [141]3700:X[178]1067:[141]3200:[153]Q$"LEFT$EPULLA EI OLE ANTAA JUOTAVAA, MUTTA 2342 PRINT"HAN ANTAA SINULLE RUOSKAA JA SINA 2344 [153]"TUNNET OLOSI TYYTYVAISEKSI ??!!?? 2346 PRINT"([197]HKAPA VIIDAKKO ON SEKOITTANUT PAASI 2348 [153]"VAI MISTA MOINEN JOHTUU ?)":[141]395:[137]2110 2350 [141]3700:[153]Q$"VALI TASSA VAIHEESSA SAA ENAA PERAANTYA!":[141]395 2352 [141]3700:[153]Q$:[137]2211 2390 [141]3700:X[178]2509:[141]3200:[153]Q$"(null)ERUSTAT SIIS VAIMOVALITYKSEN. 2400 PRINT"[211]AAT HETI UUDEN ASIAKKAAN. [211]ANOT : 2402 [153]"'MID$A MINKAKOHANLAINEN VAIMO HERRALLE' 2404 PRINT"[205]IES VASTAA : '[211]ELLANEN SI.SI.SIVIA[157][145][164] 2406 [153]"LUONNOLTAAN.":[141]395:[141]3700 2408 [153]Q$"(null)ASKET HANEN TAYTTAA HAKUKAAVAKKEEN. 2410 PRINT"[203]UN LAPPUNEN ON TAYTETTY HUOMAAT, ETTA 2412 [153]"MIEHEN NIMI ON (null).(null)ALMI.":[141]395:[141]3700 2414 [153]Q$"(null)LET LOYTANYT ETSIMASI HENKILON. 2415 PRINT"[207]NNEKSI OLKOON.":GOSUB395:SYS49974:POKE14125,240:POKE14129,200 2417 SYS14113:POKE56576,196:POKE53272,19:POKE648,196 2418 PRINT"[147][203]YSYT MITEN H[N ON T[[LL[. 2420 [153]"(null).(null)ALMI VASTAA : 2422 PRINT"[205]UN MUIJA J[TTI MUT KUN M[ K[VIN 2424 [153]"AINA SAARNAN J[LKEEN KAVEREITTEN KANSSA 2426 PRINT"KALJOILLA. NIIMP[ M[ L[HIN HAKEEN UUTTA 2428 [153]"ONVAIMOA T[[LT[ THAIMAASTA. 2430 PRINT"[212][M[ MATKA OLI NAAMIOITU KIRKON ULKO- 2432 [153]"MAANKAUPAN L[HETYSTY\KSI. 2436 PRINT"[203]AIKKI MENI HYVIN SIIHEN ASTI KUNNES 2440 [153]"PASSI MENI VANHAKSI.":[141]395 2445 [153]"LOAD(null)YSYT :'(null)ITEN SE P[[SI TAPAHTUMAAN?' 2448 PRINT"[208].[211]ALMI VASTAA : 2450 [153]"-LEFT$IEROMA LAITOKSESSA OLI NIIN MUKAVAA, 2452 PRINT"ETT[ EN HUOMANNUT AJAN KULUMISTA.":GOSUB395 2454 POKE53280,5:POKE53281,5:PRINT"[147] [200]ALUATKO PELATA PELI[ VIEL[ 2456 [153]" JOSTAIN SYYST[ ? K=KYLL[ , E=EI .":[151]198,0 2460 [161]A$:[139]A$[178]"K"[167][138] 2462 [139]A$[178]"E"[167][158]64738 2464 [137]2460 2500 [141]395:[139][194](788)[179][177]49[167][158]49974 2502 [151]14125,240:[151]14129,200:[158]14113:[151]56576,196:[151]53272,19:[151]648,196 2503 [151]53280,5:[151]53281,13 2505 [153]"LOADSTOP(null)IIN SIIN[ K[Y KUN PELAA YLI [LYKKYY- 2510 PRINT"TENS[. 2515 [153]"VERIFY(null)EURAAVALLA KERRALLA (ONKO SELLAISTA?) 2518 PRINT"TIED[T SITTEN, ETTET TEE SAMAA MOKAA 2520 [153]"EN[[ UUDESTAAN !" 2525 [153]"MID$OS KANTTI KEST[[ NIIN RUSAUTA 2530 FORA=0TO100:NEXT:PRINT"V[LILY\NTI-NAPPULAA UUTEEN KOITOKSEEN. 2533 [153]"MID$OKIN MUU NAPPI JA SAAT K[YTT\\SI 2535 PRINT"KUUSNELOSEN BASIC-TULKIN.....":POKE198,0 2540 GETA$:IFA$=""THEN2540 2542 IFA$=" "THENRUN 2544 SYS64738 2900 GOSUB3700:X=1693:GOSUB3200:PRINTQ$"[203]OKAIINI ON LAHES YHTA VAARALLISTA KUIN 2905 [153]"LSD, SPEEDY, HASIS, HEPO, SORBUS, 2910 PRINT"AMFETAMIINI, OOPPIUMI JA NIKOTIINI. 2914 [153]"(null)EIT VAL(null)RIGHT$(null)(null)ATNRIGHT$(null) (null)ATN(null)ATN(null)ATN(null) VIRHEEN. 2915 PRINT"[197]LINTOIMINTOSI KATOSIVAT JONEKKIN.":GOSUB395 2920 SYS14163 3200 X=X+34000 3210 RF=PEEK(X+1)AND15:POKET+4,RF:POKET+3,RF:POKET+20,15:POKET+21,15 3230 SYS50400 3240 X=X+10 3250 N=PEEK(X):H=NAND15:N=INT(N/16) 3260 IFN=0THENRETURN 3270 IFN>7THEN3300 3280 POKET+9,H:POKET+2,0 3290 GOTO3370 3300 X=X+1:I=PEEK(X):I=IAND31 3310 N=N-8 3320 POKET+8,I 3330 X=X+1:I=PEEK(X) 3340 J=IAND15:POKET+7,J 3350 J=INT(I/16):POKET+6,J 3360 POKET+2,1 3370 X=X+1 3380 IFN>1THEN3430 3390 POKET+43,PEEK(X):X=X+1 3400 POKET+44,PEEK(X):X=X+1 3410 SYS51890 3420 GOTO3250 3430 IFN=3THEN3550 3440 KK=PEEK(X):X=X+1:KN=0 3450 POKET+26,PEEK(X):X=X+1 3460 POKET+27,PEEK(X):X=X+1 3470 IFKK=0THEN3250 3480 POKET+28,PEEK(X):X=X+1 3490 POKET+29,PEEK(X):X=X+1 3500 SYS51400 3510 POKET+26,PEEK(T+28) 3520 POKET+27,PEEK(T+29) 3530 KN=KN+1:IFKN