Stap 4: Bonus:
'---------------------------------------------------------------------------------------------------
REM **************************************************************************
REM * programma: oracle pc
REM * Opmerking: willekeurig kiezen van een antwoord op een vraag.
REM * programmeur: Computothought
REM * laatste update: 03/10/11
REM *------------------------------------------------------------------------
HERSTELLEN van odata
BREEDTE 80, 25
CLS
RANDOMIZE TIMER
DIM x$(64)
rem To.sound = 1
VOOR x = 0 tot en met 63
Lees x$(x)
VOLGENDE x
m$ = "Niet gedaan"
betalen = 0
TERWIJL m$ = "Niet gedaan"
betalen = betalen + 1
CLS
ZOEK 4, 1
PRINT "T H E O R A C L E!"
ZOEK 5, 1
PRINT "Computothought 2009"
VOOR x = 1 tot 1500
VOLGENDE x
ZOEK 7, 1
LIJNINGANG "Voer uw vraag in:", q$
SELECT CASE links$ (q$, 1)
CASE CHR$(248)
rem To.sound = 1
CASE CHR$(255)
rem To.sound = 0
EINDE SELECTEREN
ZOEK 10, 1
PRINT "het orakel zal u tonen het is gedachten, dan roepen uw antwoord."
ZOEK 12, 1
PRINT "dus wees geduldig!"
ZOEK 15, 1
PRINT "<" + STRING$ (76, "=") + ">"
ZOEK 16, 1
PRINT "<"; TAB(78); ">"
ZOEK 17, 1
PRINT "<" + STRING$ (76, "=") + ">"
VOOR Z = 1 TOT EN MET 1000
ZOEK 16, 3
AFDRUKREEKS$ (75, "");
ZOEK 16, 3
AFDRUKKEN van x$(RND(1) * 63);
rem IF To.sound = 1 THEN
rem PLAY "l16" + CHR$(INT(RND(1) * 7) + 65)
rem END IF
VOLGENDE Z
VOOR x = 1 tot en met 5
AFDRUKKEN
VOLGENDE x
INPUT "bent u gedaan (J/n)"; d$
IF UCASE$(d$) <> "N" dan
m$ = "Done"
END IF
WEND
AFDRUKKEN
AFDRUKKEN "Betaal de Kassier"; betalen * 5; "dollar!"
ZZ$ = ""
ZZ$ = INPUT$(1)
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
endvofvjob:
WEERGEVEN AFDRUKKEN
ZOEK 25, 1
AFDRUKREEKS$ (79, "");
ZOEK 24, 1
rem EXIT SUB
EINDE
Odata:
GEGEVENS "Ja, als u creatief bent."
GEGEVENS "Ja, als u openstaan."
GEGEVENS "alles is mogelijk, maar je hebt een moeilijke start."
GEGEVENS "Wat een jeugdige dwaasheid vragen!"
GEGEVENS "u moet wachten en nogmaals vragen."
GEGEVENS "alleen conflict komt van het resultaat, gelieve te bidden."
GEGEVENS "duurt velen te bereiken uw verzoek worden georganiseerd."
GEGEVENS "Ja, als je houd het samen."
GEGEVENS "Worden zachtmoedig en krijgt u uw antwoord."
GEGEVENS "je bent gelukkig te halen zulks ver!"
GEGEVENS "U moet de fellowship van mannen."
DATA "In grote mate zal het bezit resultaat."
GEGEVENS "moet men bescheiden om hun doel te bereiken."
GEGEVENS "U zal zoet voor zijn enthousiasme voor uw quest doen."
GEGEVENS "Laat iemand anders het voortouw nemen om uw zoektocht."
GEGEVENS "Atone voor wat verwend is geweest, dan is reask uw vraag."
GEGEVENS "U bent te ver weg om het antwoord te krijgen."
GEGEVENS "Meditatie zal leiden u naar uw antwoord."
GEGEVENS "Bite door naar uw doel."
GEGEVENS "als je omgaan met genade leven!"
GEGEVENS "Er moet worden een komst apart voor lot te realiseren."
GEGEVENS "Alles moet terug naar wat is."
GEGEVENS "Niet wetende dat de ware antwoord beter zal zijn."
GEGEVENS "U moet de macht van de grote tamme."
GEGEVENS Watch"de hoeken van de mond."
GEGEVENS "het grootste overwicht zullen lot."
GEGEVENS ", zal zij de abysmals, sorry!"
GEGEVENS "u zal gelukkig zijn vast te houden aan wat je hebt."
GEGEVENS "Invloed zullen het weekwater steen aan uw zoektocht."
GEGEVENS wees"geduldig voor een tijdje."
GEGEVENS "het is een tijd om weg te krijgen."
GEGEVENS "de macht van de grote is op u."
GEGEVENS "Ja, er is een progressie te bereiken."
GEGEVENS "de bal crytal licht verliest en geen antwoord kan nu worden bereikt."
GEGEVENS "Iedereen dicht zullen deel van uw antwoord."
GEGEVENS "Nee, er is te veel oppositie."
GEGEVENS "Niet waarschijnlijk, er zijn obstakels in de weg."
GEGEVENS "Ja, verlossing zal komen."
GEGEVENS verondersteld"niet zo veel als je zou als."
GEGEVENS "Ja en meer dan was gepland."
GEGEVENS "Ja, als er een doorbraak is."
GEGEVENS "Misschien als je komt om te ontmoeten."
GEGEVENS "Nu is het tijd om samen te komen voor het antwoord."
GEGEVENS "Ja, alleen als er een duw omhoog."
GEGEVENS "Nee, onderdrukking stopt uw zoektocht."
GEGEVENS "Ja, Nee en misschien..."
GEGEVENS "Wat het orakel zegt is tegengesteld aan uw ware antwoord."
GEGEVENS "het antwoord zal langer duren en u betaalt voor het wachten."
GEGEVENS "alleen via een wekken!"
GEGEVENS "het is niet tijd voor een verhuizing, moet u nog steeds houden."
GEGEVENS "Laat lot ontwikkelen zoals het zal."
GEGEVENS "U moet het trouwen meisje eerst zien."
GEGEVENS "Meer dan je ooit gedacht."
GEGEVENS "kan u wonder en dwalen, maar het is tijd om te gaan."
GEGEVENS "alleen als je voorzichtig handelen."
GEGEVENS "Ja, met grote vreugde!"
GEGEVENS "Nee, zodat u het te spreiden moet loslaten."
GEGEVENS "alleen met beperkingen."
GEGEVENS "Kijk in jezelf en je het antwoord kunt vinden."
GEGEVENS "alleen met overwicht van het kleine."
GEGEVENS "het zal komen na voltooiing."
GEGEVENS "alleen vóór voltooiing."
GEGEVENS "I love Elizabeth!"
GEGEVENS "alleen God weet..."
