28 lines
320 B
Text
28 lines
320 B
Text
|
Filename:SINK-CUR
|
|||
|
|
Locate 1,1,"<22>"
|
|||
|
|
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,"<22>"
|
|||
|
|
Goto 2
|