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