20 lines
829 B
Text
20 lines
829 B
Text
class MAIN is
|
|
const answers: ARRAY{STR} :=
|
|
|
|
|
"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."
|
|
|;
|
|
main is
|
|
RND::seed := #TIMES.wall_time;
|
|
loop
|
|
#OUT+"Your question: "; #OUT.flush;
|
|
question ::= #IN.get_str;
|
|
#OUT+answers[RND::int(0, answers.size-1)] + "\n";
|
|
end;
|
|
end;
|
|
end;
|