Ans->K
(Ans=26 and X<16)-(Ans=24 and X>1->I
(K=34 and Y<8)-(K=25 and Y>1->J
If not([A](Y+Ans,X+I
Then
Y+Ans->Y:X+I->X
Else
If 2=[A](Y+Ans,X+I
Then
If max([A](Y+2Ans,X+2I)={0,3
Then
Y+Ans->Y:X+I->X
If not([A](Y+J,Ans+I
Then
Output(Y+J,Ans+I,"O
2->[A](Y+J,Ans+I
Else
If 3=[A](Y+J,Ans+I
Then
Output(Y+J,Ans+I," 
0->[A](Y+J,Ans+I
End
End
End
End
End