VolksForth/pgm/nc100/rfe.fb

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            8 constant l/b  : (block) scr @ block ;                                                                       : (line) c/l * (block) + ;  : row dup c/l type c/l + cr ;                                                     : .rows l/b 0 do i . row loop ;  : .block ." Block: " scr @ . space ;                                         : +--- ." +---" ;  : :--- ." :----" ;                                                                         : x--- +--- :--- +--- :--- ;                                                                                  : --- space space x--- x--- x--- x--- x--- x--- cr ;  -->                                                                                                                                                                                                                                                                                                                   : vb --- scr @ block .rows drop --- ;                                                                         : v cr vb ;  : v* update v ;  : s dup scr ! block drop v ;                                                    : ia (line) + >r 10 parse r> swap move v* ;  : i 0 swap ia ;                                                  : d (line) c/l bl fill v* ;  : x (block) l/b c/l * bl fill v* ;                                               : p -1 scr +! v ;  : n 1 scr +! v ;  : e scr @ load ;                                                         ' c/l >body 110 swap !