Home   >   Maths   >   Langton's ant program :FnOff
:AxesOff
:0->N
:31->R
:47->C
:1->D
:Lbl A
:Text(0,0,N)
:If D=1
:Then
:Pxl-Change(R,C)
:N+1->N
:C+1->C
:If pxl-Test(R,C)=0
:Then
:2->D
:End
:If pxl-Test(R,C)=1
:Then
:4->D
:End
:End
:If D=2
:Then
:Pxl-Change(R,C)
:N+1->N
:R+1->R
:If pxl-Test(R,C)=0
:Then
:3->D
:End
:If pxl-Test(R,C)=1
:Then
:1->D
:End
:End
:If D=3
:Then
:Pxl-Change(R,C)
:N+1->N
:C-1->C
:If pxl-Test(R,C)=0
:Then
:4->D
:End
:If pxl-Test(R,C)=1
:Then
:2->D
:End
:End
:If D=4
:Then
:Pxl-Change(R,C)
:N+1->N
:R-1->R
:If pxl-Test(R,C)=0
:Then
:1->D
:End
:If pxl-Test(R,C)=1
:Then
:3->D
:End
:End
:Goto A