This is a somewhat

bulky TI-89 program (a sort of

grafix demo) that I made while fighting the

urge to

sleep in

Spanish class. Use a

graphlink to transfer it to your

calculator or print it out and put it in

by hand. Runs best with the

brightness turned down a little.

ClrIO

Local a,b,c

0->a

0->b

While a<77

While b<159

Output a,b,"1"

Output a,b+5,0

If remain(b,10)=0

ClrIO

b+6->b

EndWhile

0->b

a+10->a

EndWhile

ClrIO

158->b

76->a

While a>0

While b>0

Output a,b,"1"

Output a,b-1,"0"

If remain(b,10)=0

ClrIO

b-5->b

EndWhile

0->b

a-10->a

EndWhile

0->a

0->b

While b<158 and a<76

Output a,b,"0"

Output a+5,b+5,"1"

Output a+10,b+10,"0"

Output a+15,b+15,"1"

a+15->a

b+15->b

Output a,b,"1"

Output a+5,b+10,"0"

Output a+10,b+15,"1"

Output a+15,b+20,"0"

ClrIO

EndWhile

76->a

158->b

While a>0 and b>0

Output a,b,"1"

Output a+5,b+5,"0"

Output a+5,b+5,"1"

Output a+15,b+15,"0"

a-15->a

b-15->b

ClrIO

EndWhile

0->a

While a<15

Output rand(76),rand(158),"1"

Output rand(76),rand(158),"0"

a+1->a

EndWhile

ClrIO

15->a

While a>0

Output 82-rand(5),39-rand(5),"1 0 1"

Output 82+rand(5),39+rand(5),"0 1 0"

Output 82+rand(5),39-rand(5),"1 0 1"

Output 82-rand(5),39+rand(5),"0 1 0"

a-1->a

EndWhile

rand(3)->c

if c=0

Output 33,72,"the matrix"

if c=1

Output 33,50,"knock knock neo"

if c=2

Output 33,20,"how do you define real"

if c=3

Output 33,20,"take the red pill"

ClrHome

Pause

EndPrgm