:0üÁ
:Lbl 0
:ClrHome
:Output(1,1,"////////////////")
:Output(2,1,"/              /")
:Output(3,1,"/              /")
:Output(4,1,"/              /")
:Output(5,1,"/              /")
:Output(6,1,"/              /")
:Output(7,1,"/              /")
:Output(8,1,"////////////////")
:If Á=1:Goto 1
:1üÁ
:Output(3,3,"JDYNE")
:Output(4,3,"TECHNOLOGIES")
:Output(6,5,"PRESENTS")
:For(A,1,350,1)
:End
:Output(3,3,"THE MYSTICAL")
:Output(4,3,"MAGIC 8-BALL")
:Output(6,3,"VERSION 2.0!")
:For(A,1,600,1)
:End
:Lbl A
:ClrHome
:Disp "",""," ASK A QUESTION","    OUT LOUD","","","THEN PRESS A KEY"
:While getKey=0
:End
:ClrHome
:Output(1,3,"8-BALL SAYS:")
:Output(3,1,"----------------")
:Output(6,1,"----------------")
:Output(8,3,"PRESS A KEY.")
:int rand11üB
:If B=0 or B=1:Output(4,7,"YES!")
:If B=2 or B=3:Output(4,8,"NO")
:If B=4:Output(4,2,"QUITE POSSIBLY")
:If B=5:Output(4,3,"PROBABLY NOT")
:If B=6:Then:Output(4,2,"ANSWER UNCLEAR"):Output(5,1,"TRY AGAIN LATER!"):End
:If B=7:Output(4,2,"ABSOLUTELY NOT")
:If B=8:Output(4,4,"DEFINITELY")
:If B=9:Then:Output(4,1,"I'M NOT GOING TO"):Output(5,3,"ANSWER THAT!"):End
:If B=10:Then:Output(4,1,"IF YOU DONT KNOW"):Output(5,1,"I'M NOT TELLING!"):End
:While getKey=0
:End
:Menu("MAKE A SELECTION","ASK AGAIN",A,"EXIT",X)
:Lbl X
:ClrHome
:Goto 0
:Lbl 1
:Output(2,4,"THANKS FOR")
:Output(3,5,"PLAYING")
:Output(4,4,"8-BALL 2.0")
:Output(5,7,"FROM")
:Output(6,3,"JDYNE")
:Output(7,3,"TECHNOLOGIES")
:While getKey=0
:End
:ClrHome
:Disp " COPYRIGHT  (C)","1998, J.D.T., LP",""," HTTP://JDYNE.","  HYPERMART.NET",""