New from the oven of the Cryptok AI...
A Magic 8 Ball in Commodore BASIC!
10 PRINT CHR$(147): REM CLEAR SCREEN
20 PRINT "MAGIC 8-BALL"
30 PRINT "============"
40 PRINT
50 PRINT "ASK A YES/NO QUESTION AND PRESS ENTER"
60 PRINT "(TYPE 'QUIT' TO EXIT)"
70 PRINT
80 INPUT "YOUR QUESTION"; Q$
90 IF Q$ = "QUIT" THEN END
100 IF Q$ = "" THEN GOTO 80
110 PRINT
120 PRINT "SHAKING THE MAGIC 8-BALL..."
130 FOR I = 1 TO 1000: NEXT I: REM PAUSE
140 R = INT(RND(1) * 20) + 1
150 ON R GOTO 160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350
160 PRINT "IT IS CERTAIN": GOTO 360
170 PRINT "IT IS DECIDEDLY SO": GOTO 360
180 PRINT "WITHOUT A DOUBT": GOTO 360
190 PRINT "YES DEFINITELY": GOTO 360
200 PRINT "YOU MAY RELY ON IT": GOTO 360
210 PRINT "AS I SEE IT, YES": GOTO 360
220 PRINT "MOST LIKELY": GOTO 360
230 PRINT "OUTLOOK GOOD": GOTO 360
240 PRINT "YES": GOTO 360
250 PRINT "SIGNS POINT TO YES": GOTO 360
260 PRINT "REPLY HAZY, TRY AGAIN": GOTO 360
270 PRINT "ASK AGAIN LATER": GOTO 360
280 PRINT "BETTER NOT TELL YOU NOW": GOTO 360
290 PRINT "CANNOT PREDICT NOW": GOTO 360
300 PRINT "CONCENTRATE AND ASK AGAIN": GOTO 360
310 PRINT "DON'T COUNT ON IT": GOTO 360
320 PRINT "MY REPLY IS NO": GOTO 360
330 PRINT "MY SOURCES SAY NO": GOTO 360
340 PRINT "OUTLOOK NOT SO GOOD": GOTO 360
350 PRINT "VERY DOUBTFUL": GOTO 360
360 PRINT
370 PRINT "PRESS ANY KEY TO ASK ANOTHER QUESTION"
380 GET K$: IF K$ = "" THEN 380
390 GOTO 10
I hope it runs on your Commodore 64. If it doesn't, then that's why I made it Open Source.
A Magic 8 Ball in Commodore BASIC!
10 PRINT CHR$(147): REM CLEAR SCREEN
20 PRINT "MAGIC 8-BALL"
30 PRINT "============"
40 PRINT
50 PRINT "ASK A YES/NO QUESTION AND PRESS ENTER"
60 PRINT "(TYPE 'QUIT' TO EXIT)"
70 PRINT
80 INPUT "YOUR QUESTION"; Q$
90 IF Q$ = "QUIT" THEN END
100 IF Q$ = "" THEN GOTO 80
110 PRINT
120 PRINT "SHAKING THE MAGIC 8-BALL..."
130 FOR I = 1 TO 1000: NEXT I: REM PAUSE
140 R = INT(RND(1) * 20) + 1
150 ON R GOTO 160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350
160 PRINT "IT IS CERTAIN": GOTO 360
170 PRINT "IT IS DECIDEDLY SO": GOTO 360
180 PRINT "WITHOUT A DOUBT": GOTO 360
190 PRINT "YES DEFINITELY": GOTO 360
200 PRINT "YOU MAY RELY ON IT": GOTO 360
210 PRINT "AS I SEE IT, YES": GOTO 360
220 PRINT "MOST LIKELY": GOTO 360
230 PRINT "OUTLOOK GOOD": GOTO 360
240 PRINT "YES": GOTO 360
250 PRINT "SIGNS POINT TO YES": GOTO 360
260 PRINT "REPLY HAZY, TRY AGAIN": GOTO 360
270 PRINT "ASK AGAIN LATER": GOTO 360
280 PRINT "BETTER NOT TELL YOU NOW": GOTO 360
290 PRINT "CANNOT PREDICT NOW": GOTO 360
300 PRINT "CONCENTRATE AND ASK AGAIN": GOTO 360
310 PRINT "DON'T COUNT ON IT": GOTO 360
320 PRINT "MY REPLY IS NO": GOTO 360
330 PRINT "MY SOURCES SAY NO": GOTO 360
340 PRINT "OUTLOOK NOT SO GOOD": GOTO 360
350 PRINT "VERY DOUBTFUL": GOTO 360
360 PRINT
370 PRINT "PRESS ANY KEY TO ASK ANOTHER QUESTION"
380 GET K$: IF K$ = "" THEN 380
390 GOTO 10
I hope it runs on your Commodore 64. If it doesn't, then that's why I made it Open Source.
New from the oven of the Cryptok AI...
A Magic 8 Ball in Commodore BASIC!
10 PRINT CHR$(147): REM CLEAR SCREEN
20 PRINT "MAGIC 8-BALL"
30 PRINT "============"
40 PRINT
50 PRINT "ASK A YES/NO QUESTION AND PRESS ENTER"
60 PRINT "(TYPE 'QUIT' TO EXIT)"
70 PRINT
80 INPUT "YOUR QUESTION"; Q$
90 IF Q$ = "QUIT" THEN END
100 IF Q$ = "" THEN GOTO 80
110 PRINT
120 PRINT "SHAKING THE MAGIC 8-BALL..."
130 FOR I = 1 TO 1000: NEXT I: REM PAUSE
140 R = INT(RND(1) * 20) + 1
150 ON R GOTO 160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350
160 PRINT "IT IS CERTAIN": GOTO 360
170 PRINT "IT IS DECIDEDLY SO": GOTO 360
180 PRINT "WITHOUT A DOUBT": GOTO 360
190 PRINT "YES DEFINITELY": GOTO 360
200 PRINT "YOU MAY RELY ON IT": GOTO 360
210 PRINT "AS I SEE IT, YES": GOTO 360
220 PRINT "MOST LIKELY": GOTO 360
230 PRINT "OUTLOOK GOOD": GOTO 360
240 PRINT "YES": GOTO 360
250 PRINT "SIGNS POINT TO YES": GOTO 360
260 PRINT "REPLY HAZY, TRY AGAIN": GOTO 360
270 PRINT "ASK AGAIN LATER": GOTO 360
280 PRINT "BETTER NOT TELL YOU NOW": GOTO 360
290 PRINT "CANNOT PREDICT NOW": GOTO 360
300 PRINT "CONCENTRATE AND ASK AGAIN": GOTO 360
310 PRINT "DON'T COUNT ON IT": GOTO 360
320 PRINT "MY REPLY IS NO": GOTO 360
330 PRINT "MY SOURCES SAY NO": GOTO 360
340 PRINT "OUTLOOK NOT SO GOOD": GOTO 360
350 PRINT "VERY DOUBTFUL": GOTO 360
360 PRINT
370 PRINT "PRESS ANY KEY TO ASK ANOTHER QUESTION"
380 GET K$: IF K$ = "" THEN 380
390 GOTO 10
I hope it runs on your Commodore 64. If it doesn't, then that's why I made it Open Source.