( Variables)
( 12th July 2015)

CR ." Variables: "

6 CONSTANT maxrows          ( define matrix size up to rank 6)
maxrows DUP 1+ ARRAY[] matrix
maxrows  ARRAY sequence        ( to be used to 'rearrange' order of equations) 
maxrows  ARRAY x(i)            ( to hold solutions x0,x1 etc)

0 VARIABLE #rows    0 VARIABLE #columns  ( updated later)
: #zrows    #rows    @ 1- ;  ( i.e. counting from zero)
: #zcolumns #columns @ 1- ;  ( i.e. counting from zero)
0 VARIABLE a{n,m}      ( array element)
0 VARIABLE n           ( row number)

( ----- DiskIO variables ----)
HEX
0C CONSTANT OS_GBPB

DECIMAL
0 VARIABLE ptr  ( for directory names)
0 VARIABLE nchars
0 VARIABLE objno  ( successful directory search if >0)

( reading directory entries)
0 VARIABLE dir_buff%    2048 ALLOT  ( bytes storage) 

1 STRING zero$    zero$   STRCPY" 0"
1 STRING dot$     dot$    STRCPY" ."
3 STRING cat$     cat$    STRCPY" CAT"
5 STRING cdir$    cdir$   STRCPY" CDIR "
4 STRING seldir$  seldir$ STRCPY" DIR "
60 STRING cmnd$     ( holds complete OSCLI command)
60 STRING path$
60 STRING parent$
12 STRING dir$
20 STRING prefile$  prefile$ STRCPY" file"
12 STRING obj$
3  STRING prefday$  prefday$ STRCPY" day"

12 STRING filename

( set up default paths and directories on SDFS)
( OSCLI" DIR <rforth$dir>.Maths2.Matrices")
