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]