17 lines
266 B
Text
17 lines
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
|