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