The Mystical Magic 8-Ball 2.0!

Copy the following code into a program called 'THE8BALL'.

MODIFYING THE CODE IS ILLEGAL, COPY IT EXACTLY!

The instructions are designed for the TI-82, but should be
nearly identical on the TI-83.

Copyright (c) 1998, JDyne Technologies

----------------------------

How to get the Fancy Keys:

! (exclamation point) -- MATH=>PRB=>4
' (Apostrophy)        -- 2ND=>MATRX=>2

TEXT is in the DRAW menu.
Graph commands (CoordOn, etc.) are in WINDOW=>FORMAT

a • represents a space (ALPHA=>0)

a » represents the STO>

<= means "Less than/Equal to", 2ND=>MATH=>6

>= means "Greater than/Equal to", 2ND=>MATH=>4

Ø is Theta, or ALPHA=>3

----------------------------

: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",""