17 lines
252 B
Text
17 lines
252 B
Text
|
Filename:MN-INVEN
|
||
|
ClrText
|
||
|
"1 5 2 6 3 7 4 8 R"
|
||
|
0->L
|
||
|
3->G
|
||
|
1->H
|
||
|
Do
|
||
|
L+1->L
|
||
|
Prog "MN-GETIN"
|
||
|
H+1->H
|
||
|
If H=5
|
||
|
Then 13->G
|
||
|
1->H
|
||
|
IfEnd
|
||
|
LpWhile L<8
|
||
|
Mat M[10,S]->A
|
||
|
Locate 3,5,A[DISP]
|