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