home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Gurla_1_19xx_-.d64
/
k
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
12KB
|
254 lines
90 poke53280,12:poke53281,11:a1$=" [152] [206]appaimella valikkoon "
96 a2$=" [151] [206]appaimella lisaa asiaa "
100 print"[147][159][176][178][192][178][192][178][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][178][192][178][192][178][174]";
101 print"[171][189][176][189][176][189][176][189][158]Piinapenkissa Pasi Malmi[159][173][174][173][174][173][174][173][179]";
102 print"[173][192][177][192][177][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][177][192][177][192][189]":print" [155][200]aluatko:"
107 print" 1 [146] [204]ukea haastattelun"
109 print" 2 [146] [212]ietaa lisaa [208]. [205]almista"
111 print" 3 [146] [212]ietaa lisaa kysymyksista"
113 print" 4 [146] [208]alata hakemistoon"
115 print" 5 [146] [205]iljoona markkaa"
117 print" 6 [146] [197]t halua mitaan":print" k [146] [203]ysymykset"
120 geta$:ifa$="k"thengosub10000:goto90
121 ifa$<"1"ora$>"6"then120
125 a=val(a$):onagoto2000,5067,3000,4000,5043,6000
2000 a=0
2002 a=a+1:onagosub5001,5011,5025
2005 geta$:ifa$=""then2005
2006 ifa$="-"thena=a-2:ifa<0then2000
2007 ifa$="_"then90
2008 ifa$="k"thengosub10000:a=a-1:goto2002
2009 ifa<3then2002
2010 goto 90
3000 a=0
3002 a=a+1:onagosub5092,5115,5138,5154,5174,5191
3005 geta$:ifa$=""then3005
3006 ifa$="-"thena=a-2:ifa<0then3000
3007 ifa$="_"then90
3008 ifa$="k"thenpoke53280,12:poke53281,11:gosub10000:a=a-1:poke53280,11:poke53281,0:goto3002
3009 ifa<6then3002
3010 goto 90
4000 poke203,51:end
5001 print"[147][155][200]aastattelija: [208]askattaako?"
5002 print"[159][208]asi [205]almi: [203]avin juuri."
5003 print"[155][200]: [207]vatko viina ja huumeet tuhonneet ai-vosi jo taysin?"
5004 print"[159][208][205]: [197]n ymmarra kysymysta - selittaisitkohieman tarkemmin?"
5005 print"[155][200]: [205]iten pystyt toimittamaan jotain niinkovaa kuin [198]loppy?"
5006 print"[159][208][205]: [198]loppis on paska lehti, mutta sitaon kiva tehda."
5007 print"[155][200]: [217]llattiko [198]lopyn saama valtava suosiosinut?":print"[159][208][205]: [212]odella!"
5009 print" [152] [206]appaimella seuraava sivu ":return
5011 print"[147][155][200]: [212]yoskentelytapoja?"
5012 print"[159][208][205]: [215]ord [211]tarin kanssa leikkiminen."
5013 print"[155][200]: [205]iksi sinulla ei ole potkuria seinal-la?"
5014 print"[159]PM: En tarvitse potkuria, anna potkut";
5015 print"tyontekijoille kayttamalla vanhaa kunnon46:sta.":print"[155][200]: [197]sikuvia?"
5017 print"[159]PM: Alvin Toffler, Esa Saarinen, Philip";
5018 print"[203]otler -sitten tama, tama [215]iljam [215]ursti!"
5019 print"[155][200]: [205]ita mielta olet suomalaisista mikro-julkaisuista?"
5020 print"[159]PM: Ne tulevat muuttumaan melko paljon";
5021 print"tai sitten tulee paljon uusia - Bulletin";
5022 print"[194]oardit ja [196]iskettilehdet."
5023 print" [152] [206]appaimella seuraava sivu ":return
5025 print"[147][155][200]: [208]aljonko on 27 jaettuna 3:lla?"
5026 print"[159][208][205]: 27/3, odota, pirun kone... 9 !!!!!"
5027 print"[155][200]: [205]iksi juuri tietokonejulkaisu?"
5028 print"[159]PM: Floppis on tietokonejulkaisu vain";
5029 print"siina mielessa, etta se ilmestyy diske-";
5030 print"tilla, muuten voisimme olla mika tahansa";
5031 print"lehti. Tietysti haluamme julkaista kaik-";
5032 print"kea, joka vain omaa kohderyhmaamme (64:n";
5033 print"omistajat) sattuu kiinnostamaan."
5034 print"[155]H: Johtuuko traumasi siita etta isovel-";
5035 print"jesi raiskasi sinut kun olit pieni?"
5036 print"[159][208][205]: [205]inulla on pikkusisko ..."
5037 print"[155][200]: [205]iksi [199][213][210][204][193][213][211][208][207][205][205][201] on niin kova lehti"
5038 print"[159][208][205]: [203]oska olen neuvonut [199][213][210][204][193][213][211][208][207][205][205][201][206]";
5039 print"toimittajia ([200][193][200]-[200][193][200]-[200][193][200]-[200][193][200])":printa1$:return
5043 print"[155][147] [203]ukapa nyt ei miljoonaa tahtoisi!"
5044 print"Mutta jos TODELLA haluat tulla rikkaaksi";
5045 print"vahalla vaivalla ja nopeasti niin tee";
5046 print"tallainen lehti. Se ei ole vaikeaa. Lai-";
5047 print"tat vaan kaikki huonot ohjelmasi (jotka";
5048 print"ei edes Bittiin kelpaa) samalle levylle";
5049 print"ja lisaat lopputilaan jotain typeraa o-";
5050 print"maa tekstiasi ja, vot, sinulla on lehti";
5051 print"valmiina, sitten vaan ilmoitus jonnekin";
5052 print"ja kohta saat tuhansia tilauksia, joil-";
5053 print"le sitten toimitat lehden ja pyydat mie-";
5054 print"lettoman korkeaa hintaa. Niin sinustakin";
5055 print"tulee miljonaari. Kokeile, et pety! (tai";
5056 print"voit ehka ihan vahan pettya mutta et yh-";
5057 print"ta paljon kuin lehtesi tilaajat)"
5058 print" [212]oivon etta kaytat tata vihjetta ja";
5059 print"teet oman lehtesi pian (ja lahetat pari";
5060 print"ilmaiskappaletta meille) silla olis ki-";
5061 print"vaa (toivottavasti) lueskella ja nauraa";
5062 print"sille rakasia nauruja (kuten teet talle";
5063 print"lehdelle). [206]iin etta siita vaan hommiinkaikki jotka haluu rahaa!"
5064 printa1$
5065 geta$:ifa$=""then5065
5066 goto90
5067 print"[147][144][211]ina siis haluat tietaa lisaa [158][208][193][211][201] [205][193][204][205][201]";
5068 print"[144]sta. No, et ole ainoa! Hanta etsivat mm.";
5069 print"verottaja, poliisi, joukko velkojia, lu-";
5070 print"kuisat aviottomat aidit, ulosottomies,";
5071 print"kirkko (pelastaakseen hanen sielunsa),";
5072 print"Floppiksen tyontekijat ja avustaja (saa-";
5073 print"dakseen palkkansa eli voidaan lukea vel-";
5074 print"kojiin), pari ammattitappajaa, Kalevi ja";
5075 print"ennenkaikkea [205][201][206][193]."
5076 print" [211]iis jos saat [158][208]asi [144] [158][205]almen[144], [198]loppiksen";
5077 print"entisen paatoimittaja nykyisen Floppista";
5078 print"julkaisevan Megasystemsin paajohtajan,";
5079 print"kasiisi niin ala paasta hanta karkuun,";
5080 print"silla hanesta voi saada tosi hyvan palk-kion."
5081 print"[152] [144]Jotta saisit hanet kiinni helpommin on";
5082 print"tassa kuva hanesta. [176][192][192][192][192][192][192][174]"
5083 print"[212]osi han nopeana miehena [221][149][[165][165][220][165][165][144][146][221]"
5084 print"ehti kadota ennen kameran [221][149]:[165][166][220][165].[144][146][221]"
5085 print"laukeamista ja kuva meni [221][149]$[165][165][220][169][165][144][146][221]"
5086 print"hieman pieleen, mutta toi- [221][149] [165][165][220][165][165][144][146][221]"
5087 print"vottavasti siita on jotain [221][149][255][165][165][220]![165][144][146][221]"
5088 print"hyotya."spc(20)"[173][192][192][192][192][192][192][189]":printa1$
5089 geta$:ifa$=""then5089
5090 goto20000
5092 poke53281,0:poke53280,11:print"[147][158] [200]eti aluksi lukijalle tiedoksi"
5094 print"[154][203]ysymykset ovat voimakkaasti okkultises-";
5095 print"ti latautuneita ja ne saattavat saattaa";
5096 print"lukijan paholaisen riivaamaksi, kysymyk-";
5097 print"sen esittajasta ja niihin vastaajasta";
5098 print"puhumattakaan. Siis ala IKINA kysy ke-";
5099 print"neltakaan naita kysymyksia mikali haluat";
5100 print"sailyttaa oman ja toisten henkisen tasa-";
5101 print"painon ja sielun puhtauden (jos kuiten-";
5102 print"kin haluat kysya kysymykset joltain niin";
5103 print"sinun on syyta suojautua paholaisen voi-";
5104 print"mia vastaan seuraavilla avuilla: valko-";
5105 print"sipulia, vihkivetta, raamattu, rukous-";
5106 print"nauha (siis aaninauha taynna rukouksia),";
5107 print"papin liperit ja kultainen krusifiksi.";
5108 print"Mina suojauduin juuri noin ja selvisin";
5109 print"hengissa haastattelusta (vastaajasta ei";
5110 print"niin valia silla han on jo ennestaan pa-";
5111 print"holaisen katyri). Suosittelen rukousnau-";
5112 print"han soittamista kun lukee haastattelua,";
5113 print"silla sielunvihollinen voi iskea koskatahansa).":printa2$:return
5115 print"[147][154] [197]nsimmaisen kerran nama vuosituhansia";
5116 print"noitien ja muiden vihtahousun apureiden";
5117 print"tiedossa olleet kysymykset ilmestyivat";
5118 print"painettuina pahamaineisessa [212]ime & [211]pace";
5119 print"lehdessa (nykyaan vaihtanut nimensa kun-";
5120 print"non ihmisia huijatakseen [212]ahtivaeltajak-";
5121 print"si) numero 6, tuolloin kysymyksilla ki-";
5122 print"dutettiin kilttia sarjakuvapiirtajaa,";
5123 print"myohemmin tama sama T&S poppoo kiusasi";
5124 print"kahdesti tervehenkista science fiction";
5125 print"kirjailijaa ja julkaisi nama kidutukset";
5126 print"lehdissa Science fictionia ja Lisaa sci-";
5127 print"ence fictionia. [212]odella julmaa!"
5128 print" [193]ikaisemmin kysymyksia on tiettavasti";
5129 print"kayttanyt Elias Lonnrot keratessaan Ka-";
5130 print"levalaa vieden pahuutta noille puhtaille";
5131 print"alueille. [204]isaksi on syyta olettaa etta";
5132 print"Kolumbus kaytti kysymyksia saadakseen";
5133 print"laivan kayttoonsa. Han halusi paasta me-";
5134 print"ritieta Intiaan vaikka kaikki jo silloin";
5135 print"tiesivat etta maa on littea. Kolumbus o-";
5136 print"li siis paholaisen riivaama. [212]raagista!":printa2$:return
5138 print"[147] [154][207]kkultisuuden lisaksi kysymykset ovat";
5139 print"hyvin psykologisia ja luotaavat vastaa-";
5140 print"jan sielun syvimpia syovereita. Seuraa-";
5141 print"vaksi perehdymme tarkemmin kysymyksiin."
5142 print"[156]1 kysymys [154]Tama kysymys paljastaa vastaa-";
5143 print"jan valmiuden tulevaan kyselyyn, silla";
5144 print"jos han vastaa myonteisesti on syyta";
5145 print"siirtaa kysely hieman myohempaan ajan-kohtaan."
5146 print"[156]2 kysymys [154]Tama kysymys pureutuu tehok-";
5147 print"kaasti vastaajan ruumilliseen kuntoon ja";
5148 print"mahdollisiin harrastuksiin."
5149 print"[156]3 kysymys [154]Nyt testataan vastaajan kyky";
5150 print"huomata absurdit (jarjenvastaiset) il-";
5151 print"maukset kysymyksessa. [207]ikein toimiessaan";
5152 print"vastaaja kieltaa kysymyksen sisaltamanvaitteen.":printa2$:return
5154 print"[147][156]4 kysymys [154][212]ama kysymys selvittaa vastaa-";
5155 print"jan futurologian tajua tiedustelemalla";
5156 print"oliko han valmistautunut jo tapahtunee-seen juttuun etukateen."
5158 print"[156]5 kysymys [154]Tama vahemman merkittava kysy-";
5159 print"mys on taysin merkitykseton, eika siita";
5160 print"selvia yhtaan mitaan merkittavaa."
5161 print"[156]6 kysymys [154]Tassa isketaan poytaan todel-";
5162 print"la merkittava ja syvallinen kysymys. Nyt";
5163 print"selvitetaan vastaajan vapauden kaipuu,";
5164 print"silla potkuri kuvaa lentokonetta ja se";
5165 print"kuvaa vapautta, eli jos potkuri on niin";
5166 print"vastaaja on vapautta arvostava henkilo,";
5167 print"muutoin han on mielellaan vankeudessa e-";
5168 print"lava yksilo (PM tuntuu varsin mielen-";
5169 print"kiintoiselta tapaukselta, silla huoli-";
5170 print"matta omasta vapauden pelostaan han tun-";
5171 print"tuu mielellaan antavan suuriakin vapauk-";
5172 print"sia muille, todella mielenkiintoista).":printa2$:return
5174 print"[147][156]7 kysymys [154][206]yt selvitetaan vastaajan joh-";
5175 print"dateltavuus ja yksinkertaisuus."
5176 print"[156]8 kysymys [154]Kyseessa olevalla kysymyksella";
5177 print"saadaan tietoon onko vastaajalla lain-";
5178 print"kaan mielipiteita vai onko han taysin";
5179 print"johdateltavissa (liitty edelliseen kysy-mykseen)."
5180 print"[156]9 kysymys [154]Vastaaja joutuu taman kysymyk-";
5181 print"sen kanssa painimaan korkeamman matema-tiikan probleemoissa."
5182 print"[156]10 kysymys [154]Tama kysymys paljastaa vas-";
5183 print"taajan koko henkisen kehityksen tason ja";
5184 print"pakottaa hanet keksimaan jotain todella";
5185 print"jarkevaa ja ajatuksellista sanottavaa,";
5186 print"silla nyt han on todella pulassa. Hanen";
5187 print"pitaisi pystya selittamaan mielettomien";
5188 print"aivojensa tuottama ajatus tehda tietoko-";
5189 print"nejulkaisu. [202]ulma kysymys!":printa2$:return
5191 print"[147][156]11 kysymys [154][212]odella kierosti on 11. kysy-";
5192 print"mys jatetty kokonaan kysymatta, hamatenvastaaja aivan taysin."
5194 print"[156]12 kysymys [154]Nyt isketaan suoraan vastaa-";
5195 print"jan mielen syvimpiin, pimeimpiin ja kie-";
5196 print"routuneisimpiin koloihin ja niiden alku-";
5197 print"syihin. Tama kysymys paljastaa vastaajan";
5198 print"hairiytyneisyyden todellisen syyn."
5199 print"[156]13 kysymys [154]Todella syvallinen kysymys,";
5200 print"jonka oikeaa vastausta ei tieda muut kun[199]urlauspommin toimitus."
5201 print"[154]Nyt sinulla on tiedossa kysymysten mer-";
5202 print"kitykset ja voit nyt niiden avulla ana-";
5203 print"lysoida tuntemiasi ihmisia. Saat todella";
5204 print"tehokkaasti ja varmasti todistettua etta";
5205 print"he ovat kaikki hulluja, mutta ala kysy";
5206 print"naita kysymyksia itseltasi!"
5207 print" [151] [206]appaimella valikkoon ":return
6000 print"[147][144][211]ina et siis halua [205][201][212][193][193][206]? [213]skomatonta!"
6001 print"[214]oit sitten varmaan katsella tata ajan-"
6002 print"[159]kuluksesi.":print"[212]ama on varsin kiva juttu."
6003 print"[158][212]ama alkaa aivan kohta. [207]dota hetki."
6004 fori=0to2000:next:print"[151][174][146] [208][174][146]![208][146][204]8[146]e _[212]uo tekee taman":sys1464
10000 print"[147][144]"spc(15)"[203]ysymykset"
10010 printspc(15)"[163][163][163][163][163][163][163][163][163][163]"
10020 print"[155]1 kysymys [158][208]askattaako?"
10030 print"[155]2 kysymys [158]Ovatko viina ja huumeet tuhon-";
10040 print"neet aivosi jo taysin?"
10050 print"[155]3 kysymys [158]Miten pystyt toimittamaan jo-";
10060 print"tain niin kovaa kuin [198]loppy?"
10070 print"[155]4 kysymys [158]Yllattiko Flopyn saama valtava";
10080 print"suosio sinut?"
10090 print"[155]5 kysymys [158][212]yoskentelytapoja?"
10100 print"[155]6 kusetus [158][205]iksi sinulla ei ole potkuriaseinalla?"
10110 print"[155]7 kysymys [158][197]sikuvia?"
10120 print"[155]8 kysymys [158]Mita mielta olet suomalaisista";
10130 print"mikrojulkaisuista?"
10140 print"[155]9 kysymys [158][208]aljonko on 27/3?"
10150 print"[155]10 kysymys [158][205]iksi juuri tietokonejulkaisu";
10160 print"[155]11 kysymys [158][205]ita mielta olet tietokoneis-ta?"
10170 print"[155]12 kysymys [158][202]ohtuuko traumasi siita etta";
10180 print"isoveljesi raiskasi sinut kun olit pieni";
10190 print"[155]13 kysymys [158][205]iksi [199][213][210][204][193][213][211][208][207][205][205][201] on niinkova lehti?"
10200 print" [152] [206]appaimella takaisin "
10210 geta$:ifa$=""then10210
10215 return
20000 print"[147][144][197]delliseen juttuun oli jaanyt virhe!"
20001 print"[198]loppy-magazine on vaihtanut omistajaa."
20002 print"[213]usi omistaja on [202]ari [208]auna.":fori=0to5000:next:goto90