28 lines
No EOL
320 B
Text
28 lines
No EOL
320 B
Text
Filename:SINK-CUR
|
|
Locate 1,1,"¤"
|
|
Lbl 1
|
|
1->X
|
|
1->Y
|
|
Lbl 2
|
|
Prog "S-GK"
|
|
If Z=47
|
|
Then Goto 1
|
|
IfEnd
|
|
If Z=31
|
|
Then Return
|
|
IfEnd
|
|
Prog "SINK-LOC"
|
|
If Z=27 And X<21
|
|
Then X+1->X
|
|
IfEnd
|
|
If Z=28 And Y>1
|
|
Then Y-1->Y
|
|
IfEnd
|
|
If Z=38 And X>1
|
|
Then X-1->X
|
|
IfEnd
|
|
If Z=37 And Y<6
|
|
Then Y+1->Y
|
|
IfEnd
|
|
Locate X,Y,"¤"
|
|
Goto 2 |