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