10 PRINT "ELˇMˇ SIMULATORI" 20 PRINT "Versio:2002" 30 PRINT "A)testaa peli„ B)„l„ testaa C)ˇl„ tee mit„„n(A/B/C)": INPUT A$ 40 IF A$ = "A" THEN 110 50 IF A$ = "B" THEN 90 60 IF A$ <> "C" THEN 30 70 PRINT "saateri tee ny jotain" 80 END 90 PRINT "t„„ on ihan hyv„ peli testaa nyt" 100 END 110 PRINT "jee" 120 PRINT "Olet kotonasi mit„ teet?" 130 PRINT "A)Tee alku r„j„hdys taka puolella B)mee nukkumaan C)mee pihalle(A/B/C)": INPUT A$ 140 IF A$ = "A" THEN 210 150 IF A$ = "B" THEN 190 160 IF A$ <> "C" THEN 130 170 PRINT "p„„sit juuri ja juuri pihalle ennenkuin j„„kaappi hajosi" 180 GOTO 230 190 PRINT "j„„kaappi hajos ja r„j„hdit mukana" 200 END 210 PRINT "jotenkin tuntuu ettei alkur„j„hdyst„ syntynyt mutta j„„kaappi jotenkin mossahti (oliko se sitten alkur„j„hdys mieti sit„ muttei se ollut ainakaan takapuolella tehty." 220 END 230 PRINT "pihalla oli ruoka-kojuja mihin niist meet" 240 PRINT "A)Nakkikojuun B)j„„tel”kojuun C)pekonikojuun (A/B/C)": INPUT A$ 250 IF A$ = "A" THEN 320 260 IF A$ = "B" THEN 300 270 IF A$ <> "C" THEN 240 280 PRINT "Sinut p„„stettiin kunniallisesti sis„lle ja luvattiin palkkio" 290 GOTO 330 300 PRINT "sait huonosta j„„tel”st„ tosi pahan taudin" 310 END 320 PRINT "k”pel”sti k„vi myyj„t sekoitti sinut mafia pomoksi ja jouduit salaiseen teht„v„„n" 330 PRINT "siis salaisissa teht„viss„ ollaan" 340 PRINT "Salaiset teht„v„t alkaa viikon p„„st„ no onhan sit„ aikaa viel„" 350 PRINT "A)Kysyt mit„ teht„v„„n tarvitaan B)Ly” h„nt„ turpaan C)l„hde karkuun (A/B/C)": INPUT A$ 360 IF A$ = "A" THEN 410 370 IF A$ = "B" THEN 390 380 IF A$ <> "C" THEN 350 390 PRINT "ei kannattanu sua ammuttiin takaraivoon" 400 END 410 PRINT "joo pakoauto ja testiksi sun on saatava miljoona markkaa" 420 PRINT "A)mene naisiin B)mene miehiin C)mene sukulaisiin (A/B/C)": INPUT A$ 430 IF A$ = "A" THEN 470 440 IF A$ = "B" THEN 480 450 IF A$ <> "C" THEN 420 460 GOTO 510 470 PRINT "tekish„n mieli muttei voi" 480 GOTO 420 490 PRINT "AJATTELITKIN alota alusta!!!" 500 END 510 PRINT "olet sukulaisilla sinun pit„isi tehd„ paljon ty”t„ tehd„„nk”?" 520 PRINT "EN)suosittelen JOO)en suosittele (EN/JOO)": INPUT A$ 530 IF A$ = "EN" THEN 560 540 IF A$ <> "JOO" THEN 520 550 GOTO 580 560 PRINT "sin„ jouduit olemaan viikon piilossa mafiapomoa no ei se haittaa en„„ (olit vuoden piilossa)" 570 GOTO 120 580 PRINT "p„„set kuulemma sukulaasten kanssa voitto kotiin peliin" 590 PRINT "p„„stelitte sellasella vanhalla autolla joka kuluttaa 25litraa sadalla" 600 PRINT "voitto kotiin „ij„st„ tuli mukavampi kun kamerat k„ynnistyi" 610 PRINT "s„ jouduut kapteeniksi" 620 PRINT "1. kierros mainitse mihin kojuun ei saanut menn„" 630 PRINT " 1._________________" 640 PRINT " 2._________________" 650 PRINT " 3._________________" 660 PRINT " 4._________________" 670 PRINT " 5._________________" 680 PRINT "" 690 PRINT "" 700 PRINT "" 710 PRINT "" 720 PRINT "" 730 PRINT " " 740 PRINT " " 750 PRINT " 0 " 760 PRINT "" 770 PRINT " " 780 PRINT "" 790 PRINT "VASTUSTAJAN PISTEET:0 " 800 PRINT " OMAT PISTEET:0" 810 PRINT "NAKKIKOJU)„l„ valitse JˇˇTEL™KOJU)suosittelen PEKONIKOJU)en suosittele (NAKKIKOJU/JˇˇTEL™KOJU/PEKONIKOJU)": INPUT A$ 820 IF A$ = "NAKKIKOJU" THEN 850 830 IF A$ = "JˇˇTEL™KOJU" THEN 860 840 IF A$ <> "PEKONIKOJU" THEN 850 850 END 860 PRINT "SITTEN EI MUKA TULLUT SINUN VUOROA ENˇˇN MUTTA VOITETTIIN SILTI" 870 PRINT "Sˇ SAIT FIAT PUNTON SE OLI VIPA OTTELU" 890 PRINT "PITˇIS SAADA VAAN SE 1.000.000 MARKKAA" 900 PRINT "SAIT NUMERON JOLLA VOI OSALLISTUA HALUATKO MILJONˇˇRIKSI PELIIN VAI MENNˇˇNK™ GREEDIIN" 910 PRINT "(GREEDIIN/HALUATKOMILJONˇˇRIKSI)": INPUT A$ 920 IF A$ = "GREEDIIN" THEN 950 930 IF A$ <> "HALUATKOMILJONˇˇRIKSI" THEN 910 940 GOTO 970 950 PRINT "ei greed peli„ ole t„ll„ hetkell„ voi pelata orotit liian kauvan" 960 GOTO 910 970 PRINT "soitit haluatko miljon„„riksi peliin PˇˇSIT" 980 PRINT "p„„sit paikalle „ss„arpa rahoolla" 990 PRINT "puhelu makso paljo 50mk/min" 1000 PRINT "ja taksikuski kiskoi yli hintoja" 1010 PRINT "NYT OON KOODANNU 100RIVIˇ" 1015 PRINT "juontaja piti osallistujia h„kiss„" 1020 PRINT "sitten meir„t rehattiin meikattavaksi jossa naamaan vain liimattiin naamari" 1030 PRINT "no nyt tulee eka kysymys" 1040 PRINT "juontaja sanoo:kirjoittakaa vastaus n„pp„imist„ll„ ajattelen:miss„h„n mahtaa se n„pp„imist” olla" 1050 PRINT "(LOPETA/JATKA)": INPUT A$ 1060 IF A$ = "LOPETA" THEN 850 1070 IF A$ <> "JATKA" THEN 1050 1080 PRINT "p„„sit jotenkin kummalisesti peliin" 1090 PRINT "ensimm„inen kysymys:kuka t„m„n pelin teki" 1100 PRINT "A)Osama Bin Laden B)Tuppu Liikala C)Heikki Marjala D)Simo Liikala (A/B/C/D)": INPUT A$ 1110 IF A$ = "A" THEN 1180 1120 IF A$ = "B" THEN 1200 1130 IF A$ = "C" THEN 1160 1140 IF A$ <> "D" THEN 1100 1150 PRINT "ei aivan oikea vastus on:Tuppu Liikala" 1155 END 1160 PRINT "ei l„hellekk„„n oikea vastaus on:Tuppu Liikala" 1170 END 1180 PRINT "ei ole oikea vastaus oikea vastaus on:Tuppu Liikala" 1190 END 1200 PRINT "nyt kyll„ kannattaasko vaihtaa vastaus? EIKO SAATANA TUO BIN LADEN OO PAREMPI VAIHTOEHTO !?!?!?" 1210 PRINT "se oli oikea vastaus (eip„ olisi sanonu sit„)" 1220 PRINT "minne t„st„ pelist„ voi sanoa vinkkej„?" 1230 PRINT "A) sikalaan B) kissalaan C) tupun s„hk”postiin D) ei minnek„„n (A/B/C/D)": INPUT A$ 1250 IF A$ = "A" THEN 1230 1260 IF A$ = "B" THEN 1230 1270 IF A$ = "C" THEN 1310 1280 IF A$ <> "D" THEN 1230 1290 PRINT "v„„r„ vastaus Oikea vastaus on:Tupun s„hk”posti" 1300 END 1310 PRINT "oikein nyt p„„semme 2500markan kysymykseen" 1320 PRINT "mik„ on tupun s„hk”posti osoite?" 1330 PRINT "A)www.tuppu.fi B)Tuppu@jippi.fi C)Tippu_88@jippii.fi D)Tuppu_88@jippii.fi (A/B/C/D)": INPUT A$ 1340 IF A$ = "A" THEN 1380 1350 IF A$ = "B" THEN 1380 1360 IF A$ = "C" THEN 1400 1370 IF A$ <> "D" THEN 1330 1380 PRINT "VˇˇRIN OONNEKSI oikea vastaus on:Tuppu_88@jippii.fi" 1390 END 1400 PRINT "oikein (juontaja ajattelee:ik„v„ kyll„" 1410 PRINT "nyt joudutaa 5000markan kusymykseen (juontaja ajattelee:toivotta vasti ei vastaa oikein)" 1420 PRINT "vastaappa typerys t„h„n" 1430 PRINT "mik„ on hyv„ peli osoite" 1440 PRINT "A)http://koti.mbnet.fi/til/tupunpelipuoti.html B)Tuppu-sivut C)http//:Paskapy”r„.com D)www.djesko.com (A/B/C/D)": INPUT A$ 1450 IF A$ = "A" THEN 1590 1460 IF A$ = "B" THEN 1490 1470 IF A$ = "C" THEN 1530 1480 IF A$ <> "D" THEN 1440 1490 PRINT "HAHAHAAA haluatko vastata uudestaan" 1500 PRINT "A)joo B)en (A/B)": INPUT A$ 1510 IF A$ = "A" THEN 1430 1520 IF A$ <> "B" THEN 1510 1530 PRINT "you lost" 1535 END 1540 PRINT "k„ytk” osoitteessa:http://koti.mbnet.fi/til/tupunpelipuoti" 1550 PRINT "JOO)p„l„ p„l„ EN)h” (JOO/EN)": INPUT A$ 1560 IF A$ = "JOO" THEN 1440 1580 IF A$ <> "EN" THEN 1535 1590 PRINT "ik„v„ kyll„ jouduimme 10.000markan kysymykseen" 1600 PRINT "haluatko jatkaa" 1610 PRINT "A)En B)joo (A/B)": INPUT A$ 1620 IF A$ = "A" THEN 1660 1630 IF A$ <> "B" THEN 1610 1640 PRINT "ai haluat jatkaa m„ en voi pit„„ menn„ hammas l„„k„riin no jatket„„n viikonp„„st„" 1650 END 1660 PRINT "hokasin ett„ t„„ on vipa systeemi no saat miljoona markkaa" 1670 PRINT "haluatko lopettaa (en suosittele)" 1680 PRINT "A)Joo B)En (A/B)": INPUT A$ 1690 IF A$ = "A" THEN 1650 1700 IF A$ <> "B" THEN 1710 1710 PRINT "" 1720 PRINT "" 1730 PRINT "" 1740 PRINT "" 1750 PRINT "" 1760 PRINT "" 1770 PRINT "" 1780 PRINT "" 1790 PRINT "" 1800 PRINT "" 1810 PRINT " Aloitettiin:27.12.2001 Lopettiin teko:28.12.2001" 1820 PRINT " 2002 versio tulee kohta " 1830 PRINT " T„m„n teko kesti noin 9-7 tuntia" 1840 PRINT "BBBBB YY YY SSSSSS U U PPPPPP EEEEEE RRRRRR SECRET " 1850 PRINT "B B YY YY * S U U PP PP EE RR RR SECRET " 1860 PRINT "BBBB YYYY S U U PPPPPP EE RR RR SECRET " 1870 PRINT "B B YY SSSSSS U U PP EEEEEE RRRRR SECRET " 1880 PRINT "B B YY * S U U PP EE RR RR SECRET " 1890 PRINT "BBBBB YY SSSSSS UUUUUU PP EEEEEE RR RR SECRET " 1900 PRINT "------------------------------------------------------------------------------" 1910 PRINT "SINUN EI TARVINNU KOSKA SINUT SEKOITETTIIN TOISEEN IHMISEEN KUN NˇIN NE " 1920 PRINT "JOILLE SINˇ MEINASIT VIEDˇ NE RAHAT NIIN YHTˇ ˇIJˇˇ HAKATTIIN NIIN PIDIT RAHAT " 1930 PRINT " l„het„ kehuja puutteita esimerkkej„ peleit„ yms,yms,..." 1940 PRINT " osoitteeseen:Tuppu_88@jippii.fi" 1950 PRINT "" 1960 PRINT " K„y my”s osoitteessa:http://koti.mbnet.fi/til/tupunpelipuoti.html" 1970 PRINT "" 1980 PRINT "toinen super seckretin j„sen ei ole tehnyt t„h„n mit„„n! " 1990 PRINT "ELI SAMI MUTTA ANTOI VˇHˇN NEUVOJA JOTENN HˇNKIN KUULUU KUNNIALLISESTI JOUKKOON " 2000 PRINT "T„m„ on 200. koodaamani rivi Tehnyt:Tuppu Liikala" SUB FUNCTIONB FUNCTION END SUB