20 lines
400 B
Text
20 lines
400 B
Text
|
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
|