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