Filename:SINK-GC
If N=0
Then ClrText
"Player 1..."
2->L
Prog "S-TIMER"
0->T
0->P
Prog "SINK-SS"
ClrText
"Player 2..."
2->L
Prog "S-TIMER"
21->T
21->P
Prog "SINK-SS"
0->Mat H[6,43]
IfEnd
ClrText
"Game starting..."
2->L
Prog "S-TIMER"
Do
T->Mat H[6,43]
1->U
Prog "SINK-CP"
ClrText
"Next player get ready"
2->L
Prog "S-TIMER"
Prog "SINK-YT"
LpWhile W=0
If W=666
Then Prog "SINK-WIN"
IfEnd
Return