17 lines
799 B
Plaintext
17 lines
799 B
Plaintext
dim as string answer(0 to 19) = { "It is certain.", "It is decidedly so.", "Without a doubt.", "Yes – definitely.",_
|
||
"You may rely on it.", "As I see it, yes.", "Most likely.", "Outlook good.",_
|
||
"Yes.", "Signs point to yes.", "Reply hazy, try again.", "Ask again later.",_
|
||
"Better not tell you now.", "Cannot predict now.", "Concentrate and ask again.", "Don't count on it.",_
|
||
"My reply is no.", "My sources say no.", "Outlook not so good.", "Very doubtful." }
|
||
|
||
dim as string question
|
||
randomize timer
|
||
|
||
print "Q to quit."
|
||
do
|
||
input "What would you like to know? ", question
|
||
if ucase(question)="Q" then exit do
|
||
print answer(int(rnd*20))
|
||
print
|
||
loop
|