Code: Select all
AxesOff
FnOff
1->X:1->Y
0->S:0->T
prgmMAP1
While 1
S+((X-S)=11)(X!=16)-((X-S)=0)(X!=–1->S
T+((Y-T)=7)(T!=16)-((Y-T)=0)(Y!=–1->T
real(2,0,S,T,16,16,0,12,0,8,0,0,8,0
real(1,8(X-S),8(Y-T),1,8,0,1,0,0,0,1
Repeat Ans
getKey->K
End
If K=45:Return
X+(K=26)(X!=15)-(K=24)(X!=0->N
Y+(K=34)(Y!=15)-(K=25)(Y!=0->O
If not([A](O+1,N+1
Then
N->X:O->Y
End
End