17 lines
No EOL
266 B
Text
17 lines
No EOL
266 B
Text
Filename:SINK-LOC
|
|
X+T->V
|
|
If Mat H[Y,V]=0
|
|
Then Locate X,Y,"."
|
|
IfEnd
|
|
If Mat H[Y,V]=2 And E=1
|
|
Then Locate X,Y,"."
|
|
IfEnd
|
|
If Mat H[Y,V]=1
|
|
Then Locate X,Y,"o"
|
|
IfEnd
|
|
If Mat H[Y,V]=2 And E=0
|
|
Then Locate X,Y,"^"
|
|
IfEnd
|
|
If Mat H[Y,V]=3
|
|
Then Locate X,Y,"X"
|
|
IfEnd |