Filename:SINK-DM
"                                                                                                                           "
1->Y
Do
For 1->X To 21
Prog "SINK-LOC"
Next
Y+1->Y
LpWhile Y<7