\start83\
\comment=Program file dated 04/27/00, 11:48
\name=ZLMOVE
\file=D:\TICALC~1\SICODE\FINISH~1\TI-83\LODERU~1\ZLMOVE.TXT
Output(Y-1,X-1,sub(Str1,[A](Y,X)+1,1
If K=23 or K=22:(K=23)-(K=22)\->\Z:(K=26)-(K=24)+X\->\X
If [A](Y,X)=1
(K=24)-(K=26)+X\->\X
Output(Y-1,X-1,"X"
While ([A](Y+1,X)\!=\1 and [A](Y+1,X)\!=\2 and [A](Y,X)\!=\2) and not(T=Y+1 and X=S)
Output(Y-1,X-1," "
If [A](Y,X)=4
Then
P+1\->\P:0\->\[A](Y,X):End
Y+1\->\Y
Output(Y-1,X-1,"X"
End
If [A](Y,X)=4:Then
P+1\->\P
0\->\[A](Y,X)
End
If K=25 and Y\!=\1:Then
If [A](Y,X)=2
Then
Output(Y-1,X-1,"H"
Y-1\->\Y
Output(Y-1,X-1,"X"
End:End
If K=34:Then
If [A](Y+1,X)=2 or ([A](Y,X)=2 and [A](Y+1,X)\!=\1):Then
Output(Y-1,X-1,sub(Str1,[A](Y,X)+1,1
Y+1\->\Y
Output(Y-1,X-1,"X
0\->\K
prgmZLMOVE
End:End
\stop83\

