'Bill' Animation Series -- #1

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

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, Scott K. Bradford, 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

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

:ClrHome
:0ȯ
:Lbl A
:1»X
:If Ø=0:For(A,1,9,1)
:If Ø=1:For(A,1,7,1)
:If A=1:Then
:Output(6,1,"O")
:Output(7,1,"+")
:Output(8,1,"^")
:End
:If A=2 or A=4 or A=6 or A=8:Then
:Output(6,X,"•O")
:Output(7,X,"•+")
:Output(8,X,"•'")
:X+1»X
:End
:If A=3 or A=5 or A=7 or A=9:Then
:Output(6,X,"•O")
:Output(7,X,"•+")
:Output(8,X,"•^")
:X+1»X
:End
:End
:If Ø=1:Goto B
:For(A,1,200,1)
:End
:Output(5,10,"/")
:Output(4,11,"HIYA!")
:For(A,1,300,1)
:End
:Output(4,2,"MY•NAME•IS•BILL")
:For(A,1,300,1)
:End
:Output(4,2,"•••••••••••••••")
:Output(5,10,"•")
:4»X
:For(A,1,7,1)
:If A=2:Then
:Output(5,9,"O")
:Output(6,9,"^")
:End
:If A>=2 and <=5:Then
:Output(X,9,"O")
:Output(X+1,9,"^")
:Output(X+2,9,"•")
:X-1»X
:End
:If A=6:Then
:Output(1,9,"^")
:Output(2,9,"•")
:End
:If A=7:Output(1,9,"•")
:End
:1ȯ
:For(A,1,350,1)
:End
:Goto A
:Lbl B
:For(A,1,250,1)
:End
:Output(5,8,"/")
:Output(4,8,"HAHAHA!!")
:For(A,1,300,1)
:End
:Output(4,4,"BILL'S•DEAD!!")
:For(A,1,700,1)
:End
:Output(4,4,"•••••••••••••")
:Output(5,8,"•")
:Output(1,2,"PRESS•ANY•KEY!")
:While getKey=0
:End
:ClrHome
:Output(1,2,"COPYRIGHT•1998")
:For(A,1,200,1)
:End
:Output(2,1,"SCOTT•K•BRADFORD")
:For(A,1,200,1)
:End
:Output(4,3,"JDYNE")
:For(A,1,200,1)
:End
:Output(5,3,"TECHNOLOGIES")
:For(A,1,200,1)
:End
:Disp "","","","","",""