46 lines
1,009 B
Text
46 lines
1,009 B
Text
10 PRINT "Concentrate hard on your question, then tell me your favorite number."
|
|
20 INPUT N
|
|
30 REM in lieu of a random number generator
|
|
40 IF N<0 THEN LET N=-N
|
|
50 IF N<20 THEN GOTO 1000+N*10
|
|
60 LET N=N-20
|
|
70 GOTO 50
|
|
1000 PRINT "It is certain."
|
|
1005 END
|
|
1010 PRINT "It is decidedly so."
|
|
1015 END
|
|
1020 PRINT "Without a doubt."
|
|
1025 END
|
|
1030 PRINT "Yes - definitely."
|
|
1035 END
|
|
1040 PRINT "You may rely on it."
|
|
1045 END
|
|
1050 PRINT "As I see it, yes."
|
|
1055 END
|
|
1060 PRINT "Most likely."
|
|
1065 END
|
|
1070 PRINT "Outlook good."
|
|
1075 END
|
|
1080 PRINT "Yes."
|
|
1085 END
|
|
1090 PRINT "Signs point to yes."
|
|
1095 END
|
|
1100 PRINT "Reply hazy, try again."
|
|
1105 END
|
|
1110 PRINT "Ask again later."
|
|
1115 END
|
|
1120 PRINT "Better not tell you now."
|
|
1125 END
|
|
1130 PRINT "Cannot predict now."
|
|
1135 END
|
|
1140 PRINT "Concentrate and ask again."
|
|
1145 END
|
|
1150 PRINT "Don't count on it."
|
|
1155 END
|
|
1160 PRINT "My reply is no."
|
|
1165 END
|
|
1170 PRINT "My sources say no."
|
|
1175 END
|
|
1180 PRINT "Outlook not so good."
|
|
1185 END
|
|
1190 PRINT "Very doubtful."
|