'Bill' Animation Series -- #2

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

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,"IT'S•BILL•AGAIN")
:For(A,1,300,1)
:End
:Output(4,2,"•••••••••••••••")
:Output(5,10,"•")
:1»X
:For(A,1,8,1)
:If A=1:Output(6,1,"-")
:If A=2:Output(6,1,"--")
:If A=3:Output(6,1,")--")
:If A>3 and A<=8:Then
:Output(6,X,"•)--")
:X+1»X
:End
:End
:For(A,1,11,1)
:If X<13
:Output(6,X,"•)--O")
:If X=13
:Output(6,X,"•)--")
:If X=14
:Output(6,X,"•)-")
:If X=15
:Output(6,X,"•)")
:If X=16
:Output(6,16,"•")
:X+1»X
: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,3,"I•KILLED•BILL!")
:For(A,1,700,1)
:End
:Output(4,3,"••••••••••••••")
: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 "","","","","",""