001 REM TACKER:  zilog (Captain Zilog)
002 REM DATE:    12-Aug-16 06:26:45
003 REM CHECKED: bwbasic
100 REM Magic ASCII 8 Ball - run with 'bwbasic ascii-8-ball.bas'
110 OPTION TERMINAL ANSI:CLS
120 CLS
130 PRINT:PRINT " The Magic ASCII 8 Ball is listening..":PRINT
140 INPUT ;"  What is your question"; STRING$(ANS)
150 RANDOMIZE TIME
160 A=CINT(1+20*RND())
170 PRINT:PRINT TAB(10); "-:-":PRINT
180 PRINT TAB(4);
190 IF A=1 THEN
200 PRINT "It is certain"
210 ELSEIF A=2  THEN PRINT "It is decidedly so"
220 ELSEIF A=3  THEN PRINT "Without a doubt"
230 ELSEIF A=4  THEN PRINT "Yes, definitely"
240 ELSEIF A=5  THEN PRINT "You may rely on it"
250 ELSEIF A=6  THEN PRINT "As I see it, yes"
260 ELSEIF A=7  THEN PRINT "Most likely"
270 ELSEIF A=8  THEN PRINT "Outlook good"
280 ELSEIF A=9  THEN PRINT "Yes"
290 ELSEIF A=10 THEN PRINT "Signs point to yes"
300 ELSEIF A=11 THEN PRINT "Reply hazy try again"
310 ELSEIF A=12 THEN PRINT "Ask again later"
320 ELSEIF A=13 THEN PRINT "Better not tell you now"
330 ELSEIF A=14 THEN PRINT "Cannot predict now"
340 ELSEIF A=15 THEN PRINT "Concentrate and ask again"
350 ELSEIF A=16 THEN PRINT "Don't count on it"
360 ELSEIF A=17 THEN PRINT "My reply is no"
370 ELSEIF A=18 THEN PRINT "My sources say no"
380 ELSEIF A=19 THEN PRINT "Outlook not so good"
390 ELSEIF A=20 THEN PRINT "Very doubtful"
400 ELSE GOTO 170
410 END IF
420 PRINT:PRINT TAB(9); " ,-. "
430 PRINT TAB(9); "((8))"
440 PRINT TAB(9); " `-' ":PRINT
450 END

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.