Filename:SINK-SS
ClrText
"............................................................................................................................."
Locate 21,6,"."
Mat H[1,43]->O
0->E
Locate 1,7,"Deploy the boats [  ]"
0->S
Do
Locate 19,7,"  "
Locate 19,7,O-S
Prog "SINK-CUR"
If Mat H[Y,T+X]=0
Then 2->Mat H[Y,T+X]
S+1->S
IfEnd
Locate X,Y,"^"
0.2->L
Prog "S-TIMER"
LpWhile S<O