\start83\
\comment=Program file dated 04/27/00, 11:48
\name=ZLENEMY
\file=D:\TICALC~1\SICODE\FINISH~1\TI-83\LODERU~1\ZLENEMY.TXT
Output(T-1,S-1,sub(Str1,[A](T,S)+1,1
S+D\->\S
While [A](T+1,S)\!=\1 and [A](T+1,S)\!=\2
Output(T-1,S-1,sub(Str1,[A](T,S)+1,1
T+1\->\T
Output(T-1,S-1,"\pi\":End
If [A](T,S+1)=1 and [A](T,S-1)=1
0\->\D
If S=X:Then
If T=Y:0\->\G:End
If [A](T+1,S+D)=0 or [A](T+1,S+D)=4 or [A](T,S+D)=1:\(-)\D\->\D
Output(T-1,S-1,"\pi\"
M+1\->\M
If I:Then
If M\>=\7:Then
1\->\[A](J,I
If I=X and J=Y:0\->\G
If I=S and J=T
Then:T-1\->\T:1\->\D:End
If I>2 and I<17
Output(J-1,I-1,"O"
0\->\I
End:End
If Z:Then
If [A](Y+1,X+Z)=1 and not(I:Then
X+Z\->\I:Y+1\->\J
3\->\[A](J,I
If I>2 and I<17
Output(J-1,I-1," "
0\->\Z:0\->\M
End:End
0\->\\theta\
\stop83\

