15 lines
764 B
Text
15 lines
764 B
Text
BEGIN
|
|
[]STRING answers = ("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.");
|
|
DO
|
|
REF STRING question := LOC STRING;
|
|
print("Your question: ");
|
|
read((question, new line));
|
|
print((answers[ENTIER (random * UPB answers) + 1], new line))
|
|
OD
|
|
END
|