20 lines
678 B
Plaintext
20 lines
678 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 m8ball$(20)
|
|
220 for i = 0 to 19
|
|
230 read m8ball$(i)
|
|
240 next i
|
|
250 randomize timer
|
|
260 input "What would you like to know? ",q$
|
|
270 print m8ball$(int(rnd(20)))
|
|
280 end
|