'ProgramMode:RUN
Prog "~SL"
Prog "~SD"
'MAIN
Do
{X,Y
Y
G=28=>Dsz Y
G=27=>Isz X
G=38=>Dsz X
G=37=>Isz Y
Locate 1,Ans,StrMid(Str 1,WAns-W+1,W)
0
If X=0
Then Prog "~SS"
1
W->X
Dsz M
IfEnd
If Y=0
Then Prog "~SS"
1
H->Y
Dsz N
IfEnd
If X>W
Then Prog "~SS"
1
1->X
Isz M
IfEnd
If Y>H
Then Prog "~SS"
1
1->Y
Isz N
IfEnd
If Ans
Then Prog "~SL"
Prog "~SD"
IfEnd
If StrSrc(Str 9,StrMid(Str 1,WY-W+X,1))-1
Then List Ans[1->X
List Ans[2->Y
IfEnd
Locate X,Y,"@"
Do
Getkey->G
LpWhile  Not G
LpWhile 1