19 lines
644 B
Plaintext
19 lines
644 B
Plaintext
100 CLS
|
|
110 DATA "It is certain.","It is decidedly so."
|
|
120 DATA "Without a doubt.","Yes - definitely."
|
|
130 DATA "You may rely on it.","As I see it, yes."
|
|
140 DATA "Most likely.","Outlook good."
|
|
150 DATA "Yes.","Signs point to yes."
|
|
160 DATA "Reply hazy, try again.","Ask again later."
|
|
170 DATA "Better not tell you now.","Cannot predict now."
|
|
180 DATA "Concentrate and ask again.","Don't count on it."
|
|
190 DATA "My reply is no.","My sources say no."
|
|
200 DATA "Outlook not so good.","Very doubtful."
|
|
210 DIM m$(20)
|
|
220 FOR i = 0 TO 19
|
|
230 READ m$(i)
|
|
240 NEXT i
|
|
260 INPUT "What would you like to know? "; q$
|
|
270 PRINT m$(INT(RND(20)))
|
|
280 END
|