37 lines
No EOL
424 B
Text
37 lines
No EOL
424 B
Text
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 |