Filename:SINK-YT
Lbl 1
ClrText
Locate 1,7,"Loading HOME..."
0->E
Prog "SINK-DM"
Locate 1,7,"                     "[DISP]
Prog "SINK-AE"
ClrText
"Loading..."
Mat H->Mat S
T->C
1->T
0->D
2->N
1->X
C->V
Do
V+1->V
Prog "S-SMAT"
If List 1[1]!=0
Then 0->W
C->T
{1,1}->Dim Mat S
0->U
Prog "SINK-CP"
Return
IfEnd
LpWhile V<C+21
666->W
C->T
{1,1}->Dim Mat S
0->U
Prog "SINK-CP"
Return
IfEnd
Goto 1