
( simequ_app)
( 13th April 2016)

FLOAD" Variables"
FLOAD" Utilities"
FLOAD" DiskIOequns"   ( for storage & retrieval of data files)
FLOAD" CrNewEqn"
FLOAD" sim_equns"

( load options into array)
24 ARRAY options
' ABORT       0 options !
' NewEqn      1 options !
' read_file   2 options !

: equations
 BEGIN
  BEGIN
   SP! CR
   ."                              Exit (0)" CR
   ."  Create New Equations Matrix File (1)" CR
   ."       Solve Simultaneous Equation (2)" CR
   ." Enter 0 to 2: "   QUERY INTERPRET
   DUP 0  2  twixt
  UNTIL      ( pointer for options...)
  options @ EXECUTE
 0 UNTIL  ; 

path$ STRCPY" <rforth$dir>.Examples.nonGPIO.Matrices"
dir$  STRCPY" file01"
path$ todir


CR ." Type 'equations<CR>'"






