Quick Basic in Application

CLS
RANDOMIZE TIMER
PRINT “I am the magical Fortune Teller.”
INPUT “Think of a question and press enter for your answer…”, A$
PRINT
Answer = INT(RND * 5 + 1)
SELECT CASE Answer
CASE 1
PRINT “Yes, definitely.”
CASE 2
PRINT “Ask again, later.”
CASE 3
PRINT “No way!”
CASE 4
PRINT “It is certain.”
CASE 5
PRINT “Yes.”
END SELECT