39 lines
822 B
Text
39 lines
822 B
Text
PROC Main()
|
|
DEFINE PTR="CARD"
|
|
DEFINE COUNT="20"
|
|
CHAR ARRAY s(256)
|
|
PTR ARRAY a(COUNT)
|
|
BYTE i
|
|
|
|
a(0)="It is certain."
|
|
a(1)="It is decidedly so."
|
|
a(2)="Without a doubt."
|
|
a(3)="Yes - definitely."
|
|
a(4)="You may rely on it."
|
|
a(5)="As I see it, yes."
|
|
a(6)="Most likely."
|
|
a(7)="Outlook good."
|
|
a(8)="Yes."
|
|
a(9)="Signs point to yes."
|
|
a(10)="Reply hazy, try again."
|
|
a(11)="Ask again later."
|
|
a(12)="Better not tell you now."
|
|
a(13)="Cannot predict now."
|
|
a(14)="Concentrate and ask again."
|
|
a(15)="Don't count on it."
|
|
a(16)="My reply is no."
|
|
a(17)="My sources say no."
|
|
a(18)="Outlook not so good."
|
|
a(19)="Very doubtful."
|
|
|
|
DO
|
|
PrintE("Enter your question or blank to exit:")
|
|
InputS(s)
|
|
IF s(0)=0 THEN
|
|
EXIT
|
|
FI
|
|
i=Rand(COUNT)
|
|
PrintE(a(i))
|
|
PutE()
|
|
OD
|
|
RETURN
|