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