'                             Katso Luemut.txt
'
'                          Ihan älytön puhe-ohjelma
'                          Teksti vierii nuolinäppäimillä
'
'
RANDOMIZE TIMER
aihe$ = "Hyvät virkaveljet,"
DIM teksti$(200)
d = 40 - (INT(LEN(aihe$) / 2))
FOR i = 1 TO 40 - (INT(LEN(aihe$) / 2))
g$ = g$ + " "
NEXT i
g$ = g$ + aihe$
'LOCATE 1, 40 - (INT(LEN(aihe$) / 2))
PRINT aihe$
teksti$(0) = g$

FOR z = 1 TO 50
alku:
lause$ = ""
x = INT(RND * 50 + 1)
IF x = 1 THEN a$ = "Suomen kansan mielestä "
IF x = 2 THEN a$ = "Minun mielestäni "
IF x = 3 THEN a$ = "Erittäin todennäköisesti "
IF x = 4 THEN a$ = "En usko, että "
IF x = 5 THEN a$ = "Varmaankin "
IF x = 6 THEN a$ = "On luultavaa, että "
IF x = 7 THEN a$ = "Todistettavasti "
IF x = 8 THEN a$ = "Ruotsalaiset ovat sitä mieltä, että "
IF x = 9 THEN a$ = STR$(INT(RND * 102)) + "% maapallon väestöstä epäilee, että "
IF x = 10 THEN a$ = "Suomen kansa ei usko, että "
IF x = 11 THEN a$ = "On turha todistaa, että "
IF x = 12 THEN a$ = "Äitini sanoi aikanaan: "
IF x = 13 THEN a$ = "Olen tullut jo vanhaksi , sillä "
IF x = 14 THEN a$ = "Teidän on turha yrittää hangoitella vastaan, koska "
IF x = 15 THEN a$ = "Tilastot osoittavat, että "
IF x = 16 THEN a$ = "Filosofinen näkökulma ajattelee siten, että "
IF x = 17 THEN a$ = "Kuuluisan (ufo)tutkijan Afan Jaf Grunnin kanta tähän asiaan on seuraava: "
IF x = 18 THEN a$ = "Skitsofreenikoiden tukiyhdistyksen puheenjohtajan pojan mielestä "
IF x = 19 THEN a$ = "Suomen ministerit eivät paljasta todellista kantaansa joka on: "
IF x = 20 THEN a$ = "Kannatan pakkoruotsin vapauttamista todellisesta vapauttomuudestaan, vaikka "
IF x = 21 THEN a$ = "Etelä-navan pingviinien käyttäytymisestä huomataan, että "
IF x = 22 THEN a$ = "Olen ennustanut ihmisten hiusten pituudesta, milloin "
IF x = 23 THEN a$ = "MC-Finlandin jäsenien käsissäkin lukee näin: "
IF x = 24 THEN a$ = "Varpaiden liikakasvusta johtuen "
IF x = 25 THEN a$ = "Gaussin käyrän alimitoituksesta huolimatta pyydän, että "
IF x = 26 THEN a$ = "Koska r*3.1429=A" + CHR$(253) + " suosittelemme, että "
IF x = 27 THEN a$ = "Einsteininkin kuultiin jo sanovan, että "
IF x = 28 THEN a$ = "Olen todennut, että "
IF x = 29 THEN a$ = "Maan vetovoimakentän paksuudesta johtuen tiedän, että "
IF x = 30 THEN a$ = "Koska antigravitaatio ilmenee vain tietyissä tiloissa, ajattelevat tiedemiehet seuraavaa: "
IF x = 31 THEN a$ = "Ufon laskeutuessa pihallesi, olet varma, että "
IF x = 32 THEN a$ = "Yrityksen liikevaihdon parantamiseksi ehdotan, että "
IF x = 33 THEN a$ = "Organisoidessamme uusia jäseniä voimme miettiä myös, että "
IF x = 34 THEN a$ = "Vaikka tuloverot nousivatkin viime vuonna muistakaamme, että "
IF x = 35 THEN a$ = "Koska osakkeiden hinnat ovatkin rajussa laskussa tietäkäämme, että "
IF x = 36 THEN a$ = "Jo eilispäivän Talous-uutisissa kerrottiin HEX-indeksin noususta, mutta luottakaamme siihen, että "
IF x = 37 THEN a$ = "Korkeahintaisten obligaatioiden lisenssioimisessa on muistettava, että "
IF x = 38 THEN a$ = "Harmaan talouden ehkäisemiseksi voidaan ajatella seuraavaa asiaa: "
IF x = 39 THEN a$ = "Vaikka talous-näkymät eivät ole kovin valoisia voimme muistaa tämän: "
IF x = 40 THEN a$ = "Ei ole mitään syytä lähteä todistamaan tosiasioiden puolesta, sillä "
IF x = 41 THEN a$ = "Voimme luottavaisin mielin mennä eteenpäin, koska "
IF x = 42 THEN a$ = "Hyvä koulutus ja ammattitaito takaavat sen, että "
IF x = 43 THEN a$ = "Jos ajattelemme hyvin ideologisesti, seuraavat seikat tulevat esille: "
IF x = 44 THEN a$ = "Ei kuitenkaan sovi unohtaa, että "
IF x = 45 THEN a$ = "Ei ole tarpeen ryhtyä todistelemaan näiden ongelmien vakavuutta ja merkitystä, sillä "
IF x = 46 THEN a$ = "Toisaalta toimintahenkilöiden osakseen saama kehitystaso voi johtaa siihen, että "
IF x = 47 THEN a$ = "Arkipäivän kokemksetkin osoittavat, että "
IF x = 48 THEN a$ = "Laaja ja monipuolinen kokemus ja ammattitaito tulevat siinä suhteessa apuun, että"
IF x = 49 THEN a$ = "Erilaisten toimintamuotojen jatkuva kehitys vaatii sen, että "
IF x = 50 THEN a$ = "On turha lähteä todistamaan vastaan näissä asioissa, sillä "
lause$ = lause$ + a$
osa2:
x = INT(RND * 30 + 1)
IF x = 1 THEN a$ = "ufot valloittavat maailman "
IF x = 2 THEN a$ = "yleensä sataa "
IF x = 3 THEN a$ = "rompulle mahtuu enemmän kuin korpulle "
IF x = 4 THEN a$ = "humanoidit ovat vihreitä "
IF x = 5 THEN a$ = "ei ole mitään syytä todistaa tosiasioita vastaan "
IF x = 6 THEN a$ = "kuubi ei ole pyöreä "
IF x = 7 THEN a$ = "katolta hyppääminen on kannattavaa lääkäreiden työllisyystilanteen kannalta "
IF x = 8 THEN a$ = "kenofobistit olisivat mielummin klaustrofobisteja "
IF x = 9 THEN a$ = "omena on inkompatiibeli appelsiinin kanssa "
IF x = 10 THEN a$ = "insomnia on liian yleistä "
IF x = 11 THEN a$ = "innovaatiokyvyllä pystyy tekemään ihmeitä "
IF x = 12 THEN a$ = "lobotomian on todistettu nostavan blondien älykkyysosamäärää "
IF x = 13 THEN a$ = "Napoleon oli gallomaani "
IF x = 14 THEN a$ = "Hitler olisi voittanut, jos hän olisi käyttänyt 3.PanssariDivisioonaa yllätyshyökkäykseen "
IF x = 15 THEN a$ = "kardiologit eivät saa olla sokeita "
IF x = 16 THEN a$ = "sihteereidemme lapsien pitäisi olla tämän asian puolesta "
IF x = 17 THEN a$ = "te ette usko älykkyyteeni "
IF x = 18 THEN a$ = "sienet alkavat kasvaa "
IF x = 19 THEN a$ = "ufot liikkuvat öisin "
IF x = 20 THEN a$ = "jos katsot taivaalle näet ufon "
IF x = 21 THEN a$ = "korkeintaan" + STR$(INT(RND * 5 + 15)) + " avaruusolentoa mahtuu yhteen avaruusalukseen "
IF x = 22 THEN a$ = STR$(INT(RND * 90 + 10)) + "% maailman väestöstä on väärässä "
IF x = 23 THEN
saas = INT(RND * 5 + 3)
FOR tatat = 1 TO saas
aas = INT(RND * 7 + 35)
bbb$ = bbb$ + CHR$(aas)
NEXT tatat
a$ = "sarjakuvien yleisin kirosana on " + bbb$ + " "
END IF
IF x = 24 THEN a$ = "normaali puhenopeus nopeutuu suhteessa aikajatkumoon "
IF x = 25 THEN a$ = "hiukset katkeilevat niitä kammattaessa "
IF x = 26 THEN a$ = "korppikotkilla on sulat "
IF x = 27 THEN a$ = "on turha ajatella vaihtoehtoja "
IF x = 28 THEN a$ = "kannattaa miettiä seuraavaa asiaa; "
IF x = 29 THEN a$ = "kalassa on proteiineja "
IF x = 30 THEN a$ = "olemme täsmällisiä ja päättäväisiä "
IF x = 31 THEN a$ = "organisaation uusi toimintakaavio vaatii paljon "
IF x = 32 THEN a$ = "erilaisten toimintamuotojen jatkuva kehitys tekee vaikeaksi arvioida kehitysmallia "
IF x = 33 THEN a$ = "ohjelman vaatimuksen toteuttaminen vaatii huolellista valmistautumista "
IF x = 34 THEN a$ = "organisaation kunnossapito vaatii näitä taloudellisia ja hallinnollisia oloja "
IF x = 35 THEN a$ = "leipä on terveellistä "
IF x = 36 THEN a$ = "leipä on terveellistä "
IF x = 37 THEN a$ = "leipä on terveellistä "
IF x = 38 THEN a$ = "leipä on terveellistä "
IF x = 39 THEN a$ = "leipä on terveellistä "
IF x = 40 THEN a$ = "leipä on terveellistä "
IF x = 41 THEN a$ = "leipä on terveellistä "
IF x = 42 THEN a$ = "leipä on terveellistä "
IF x = 43 THEN a$ = "leipä on terveellistä "
IF x = 44 THEN a$ = "leipä on terveellistä "
IF x = 45 THEN a$ = "leipä on terveellistä "
IF x = 46 THEN a$ = "leipä on terveellistä "
IF x = 47 THEN a$ = "leipä on terveellistä "
IF x = 48 THEN a$ = "leipä on terveellistä "

lause$ = lause$ + a$

IF x = 28 THEN GOTO alku
loppu:
x = INT(RND * 30 + 1)
IF x = 1 THEN a$ = "jos ajatellaan patologisesti"
IF x = 2 THEN a$ = "vaikka on myös muita vaihtoehtoja"
IF x = 3 THEN a$ = "kissan kanssa"
IF x = 4 THEN a$ = "vaikka skepsismi on yleistä"
IF x = 5 THEN a$ = "pommi-iskuista huolimatta"
IF x = 6 THEN a$ = "vaikken usko siihen kovin syvästi"
IF x = 7 THEN a$ = "sillä omistessasi vyön muutat asiat parempaan suuntaan"
IF x = 8 THEN a$ = "koska pimeydessä ei näe mitään"
IF x = 9 THEN a$ = "koska taikatemput eivät ole totta"
IF x = 10 THEN a$ = "vaikka ufot sieppaavat minut pian"
IF x = 11 THEN a$ = "sillä kontaktit humanoideihin vähenevät uhkaavassa määrin"
IF x = 12 THEN a$ = "vaikka koulussa opettiinkin toisin"
IF x = 13 THEN a$ = "vaikka sisältö onkin tärkeintä"
IF x = 14 THEN a$ = "kuten olen mahdollisesti sanonutkin jo"
IF x = 15 THEN a$ = "ilman saippuaa"
IF x = 16 THEN a$ = "sunnuntaisin"
IF x = 17 THEN a$ = "joka toinen juhannus"
IF x = 18 THEN a$ = "vaikka ei kannata miettiä sitä"
IF x = 19 THEN a$ = "jouluisin"
IF x = 20 THEN a$ = "vastaväitteistä huolimatta"
IF x = 21 THEN a$ = "arkisin"
IF x = 22 THEN a$ = "korkeintaan" + STR$(INT(RND * 10 + 2)) + " kertaa viikossa"
IF x = 23 THEN a$ = "keitettynä"
IF x = 24 THEN a$ = "vaikka se kuulostaa päinvastaiselta"
IF x = 25 THEN a$ = "vaikka se onkin päivänselvää"
IF x = 26 THEN a$ = "koska se on lainvastaista"
IF x = 27 THEN a$ = "koska se on laillista"
IF x = 28 THEN a$ = "vaikka luinkin sen internetistä"
IF x = 29 THEN a$ = "vaikka vain jotkut mäkimiehet sen tietävätkin"
IF x = 30 THEN a$ = "vaikka Kirka onkin veljeään Sammya heikompi laulaja"
lause$ = lause$ + a$

x = INT(RND * 16 + 1)
IF x = 1 THEN a$ = "!"
IF x = 2 THEN a$ = "."
IF x = 3 THEN a$ = "..."
IF x = 4 THEN a$ = ", vai onko teillä vastaväitteitä?"
IF x = 5 THEN a$ = "!"
IF x = 6 THEN a$ = "."
IF x = 7 THEN a$ = "..."
IF x = 8 THEN a$ = "!"
IF x = 9 THEN a$ = "."
IF x = 10 THEN a$ = "!"
IF x = 11 THEN a$ = ", eikö niin?"
IF x = 12 THEN a$ = "..."
IF x = 13 THEN a$ = "."
IF x = 14 THEN a$ = ", vai oletko eri mieltä??"
IF x = 15 THEN a$ = "!?!?!"
IF x = 16 THEN a$ = "."
lause$ = lause$ + a$
teksti$(z) = lause$
teksti$(z + 1) = "                                  Loppu"
NEXT z
y = 0
COLOR 3, 1
erkki:


CLS
FOR i = y TO y + 10
PRINT teksti$(i)
NEXT i
PRINT
PRINT "████████████████████████████████████████████████████████████████████████████████"

DO
x$ = INKEY$
SELECT CASE x$
CASE CHR$(27): END
CASE CHR$(0) + "H"
y = y - 1
IF y < 0 THEN y = 0
GOTO erkki
CASE CHR$(0) + "P"
y = y + 1
IF y > 190 THEN y = 190
GOTO erkki
CASE ELSE
END SELECT
LOOP