Tim Swan's CONWAY in ti-Basic

ClrHome
{8,16→dim([A]
Fill(0,[A]
{8,16→dim([B]
Fill(0,[B]
1→[A](1,2
1→[A](2,3
1→[A](3,1
1→[A](3,2
1→[A](3,3
While 1
For(A,1,8
For(B,1,16
randInt(0,1→[A](A,B
" →Str1
If [A](A,B)=1
"O→Str1
Output(A,B,Str1
End
End
For(A,1,8
For(B,1,16
A+1→D
If D=9
1→D
A-1→E
If E=0
8→E
B+1→F
If F=17
1→F
B-1→G
If G=0
16→G
[A](D,F)+[A](D,B)+[A](D,G)+[A](E,F)+[A](E,B)+[A](E,G)+[A](A,F)+[A](A,G)→[B](A,B
End
End
For(A,1,8
For(B,1,16
[B](A,B)→N
If ([A](A,B)=1 and N=2)=3
Then
1→[A](A,B)
Else
0→[A](A,B)
End
End
End
End