Source code in the freebasic programming language

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