50 lines
533 B
Plaintext
Executable File
50 lines
533 B
Plaintext
Executable File
'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 |