19 lines
666 B
Plaintext
19 lines
666 B
Plaintext
0 DATA "It is certain.", "It is decidedly so."
|
|
20 DATA "Without a doubt.", "Yes - definitely."
|
|
30 DATA "You may rely on it.", "As I see it, yes."
|
|
40 DATA "Most likely.", "Outlook good."
|
|
50 DATA "Yes.", "Signs point to yes."
|
|
60 DATA "Reply hazy, try again.", "Ask again later."
|
|
70 DATA "Better not tell you now.", "Cannot predict now."
|
|
80 DATA "Concentrate and ask again.", "Don't count on it."
|
|
90 DATA "My reply is no.", "My sources say no."
|
|
100 DATA "Outlook not so good.", "Very doubtful."
|
|
110 DIM M8BALL$(20)
|
|
120 FOR I=0 TO 19
|
|
130 READ M8BALL$(I)
|
|
140 NEXT I
|
|
150 RANDOMIZE TIMER
|
|
160 INPUT "What would you like to know? ", Q$
|
|
170 PRINT M8BALL$(INT(RND*20))
|
|
180 END
|