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