Oraklet. (4 / 9 steg)

Steg 4: Bonus:

REM **************************************************************************
REM * program: oracle pc
REM * Obs: slumpmässiga val av svar på en fråga.
REM * programmerare: Computothought
REM * senaste uppdatering: 03/10/11
REM *------------------------------------------------------------------------
ÅTERSTÄLLA odata
BREDD 80, 25
CLS
RANDOMIZE TIMER
DIM x$(64)
rem To.sound = 1
FÖR x = 0-63
Läs x$(x)
Nästa x
m$ = "Inte gjort"
betala = 0

MEDAN m$ = "Inte gjort"
betala = lön + 1
CLS
LETA UPP 4, 1
PRINT "T H E O R A C L E!"
LETA UPP 5, 1
PRINT "Computothought 2009"
FÖR x = 1 till 1500
Nästa x
LETA UPP 7, 1
LINE INPUT "Skriv in din fråga:", q$
SELECT CASE vänster$ (q$, 1)
MÅL CHR$(248)
rem To.sound = 1
MÅL CHR$(255)
rem To.sound = 0
END SELECT
LETA UPP 10, 1
PRINT "Oracle kommer att visa dig det är tankar, kalla sedan ditt svar."
LETA UPP 12, 1
Skriv ut "så ha tålamod!"
LETA UPP 15, 1
PRINT "<" + STRÄNGEN$ (76, "=") + ">"
LETA UPP 16, 1
PRINT "<"; TAB(78); ">"
LETA UPP 17, 1
PRINT "<" + STRÄNGEN$ (76, "=") + ">"
FÖR Z = 1 TILL 1000
LETA UPP 16, 3
SKRIV UT STRÄNGEN$ (75, "");
LETA UPP 16, 3
Skriva ut x$(RND(1) * 63);
rem om To.sound = 1 då
rem spela "l16" + CHR$(INT(RND(1) * 7) + 65)
rem END IF
NÄSTA Z
FÖR x = 1-5
SKRIV UT
Nästa x
INGÅNG "är du gjort (J/n)"; d$
OM UCASE$(d$) <> "N" då
m$ = "Gjort"
SLUT OM
WEND

SKRIV UT
Skriva ut "Vänligen betala i kassan"; betala * 5. "dollar!"
ZZ$ = ""
ZZ$ = INPUT$(1)

' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
endvofvjob:
VISA SKRIV UT
LETA UPP 25, 1
SKRIV UT STRÄNGEN$ (79, "");
LETA UPP 24, 1
rem EXIT SUB
SLUTET

OData:
DATA "Ja, om du är kreativ."
DATA "Ja, om du är mottaglig."
DATA "allt är möjligt, men du kommer att ha en svår start."
DATA "Vad en Ungdomliga dårskap att be!"
DATA "du måste vänta och frågar igen."
DATA "bara konflikt kommer av resultatet, please be."
DATA "det kommer att ta många som organiseras för att utföra din begäran."
DATA "Ja, om du håller den samman."
DATA "Vara ödmjuka och du kommer att få ditt svar."
DATA "du har tur att få detta långt!"
DATA "Du måste ha gemenskapen av män."
DATA "i stor åtgärd kommer besittning resultatet."
DATA "måste vara blygsamma för att uppnå sina mål."
DATA "Du kommer att göra bra att ha den entusiasm för ditt uppdrag."
DATA "Låt någon annan ta ledningen till din quest".
DATA "Atone för vad som har varit bortskämd, sedan reask din fråga."
DATA "Du är för långt bort att få svaret."
DATA "Meditation leder dig till ditt svar."
DATA "Bita igenom ditt mål."
"Om du hantera livet med grace!"
DATA "Det är att vara ett kommande isär för öde realiseras."
DATA "Alla måste återvända till vad är."
DATA "Utan att veta det rätta svaret kommer att bli bättre."
DATA "Du måste tämja kraften i stort."
DATA "Titta på hörnen av munnen."
DATA "störst övervikt blir öde."
DATA "blir det abysmals, förlåt!"
DATA "du kommer att ha tur att hålla fast vid vad du har."
DATA "Inflytande kommer att vara den stöpning sten till din quest."
DATA "Bara ha tålamod ett tag."
DATA "det är en tid för att få bort."
DATA "kraften i stort är på dig."
DATA "Ja, det finns en progression uppnås."
DATA "crytal bollen förlorar ljus och inget svar kan nås fram till nu."
DATA "Alla nära blir delen av ert svar."
DATA "Nej, det är för mycket motstånd."
DATA "Inte troligt, hinder i vägen."
DATA "Ja, befrielse att komma."
DATA tänkt"inte så mycket som du kanske som."
DATA "Ja och var mer än planerat."
DATA "Ja, om det finns ett genombrott."
DATA "Kanske om du kommer att möta."
DATA "Nu är det dags att samlas för svaret."
DATA "Ja, om det finns ett tryck uppåt."
DATA "Nej, förtryck kommer att sluta ditt uppdrag."
DATA "Ja, nej och kanske..."
DATA "Vad oraklet säger är motsatsen till din sanna svaret."
DATA "svaret tar längre tid och du kommer att betala för att vänta."
DATA "bara genom en väcka!"
DATA "är det inte dags för ett drag, du måste hålla fortfarande."
DATA "Låt ödet utveckla som det kommer".
DATA "Du måste se den gifta maiden först."
DATA "Mer än du någonsin kunnat föreställa oss."
DATA "kan du undrar och vandra, men det är dags att flytta."
DATA "endast om du agerar försiktigt."
DATA "Ja, med stor glädje!"
DATA "nej, så du måste släppa det att sprida ut.
DATA "endast med begränsningar."
DATA "Titta inom dig själv och du kan hitta svaret."
DATA "endast med övervikt av små."
DATA "det kommer att vara efter avslutad."
DATA "bara innan slutförande."
DATA "I love Elizabeth!"
DATA "endast Gud vet..."