Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (15 sloc) 211 Bytes
Disp "Magic 8-Ball!
Disp "Ask Your Question
Disp "Then Press Any Key
Repeat K≠0
getKey→K
End
Disp "","The 8-Ball Says:"
Wait .5
randInt(0,3)→B
If B=0
Disp "ASK AGAIN LATER
If B=1
Disp "YES
If B=2
Disp "NO