( Utilities)
( 14th July 2015)

CR ." Utilities: "

: zero_matrix #rows @ 0 DO  #columns @ 0 DO   0 J I matrix !   LOOP  LOOP ;

: load_matrix ( a0,a1,a2,a3,row...)
   0 #columns @ 1- DO DUP >R  I  matrix    ( a0,a1,a2,a3,addr...)
                      !   R>               ( a0,a1,a2,row...)
               -1 +LOOP DROP ;

: dsp_matrix 5 FLD ! #rows @ 0 DO CR  #columns @ 0 DO  J I matrix @ F. SPACE LOOP  LOOP ;

: Y/N  KEY 89 = ;

: ?OK  CR ." OK? [Y;N]: " Y/N ;

: ?store CR ." Store this matrix? [Y;N]: " Y/N ;