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