VolksForth/sources/generic/rfe.fb

\ Retro Forth Editor                                                                                                            a simple forth-style editor                                                                                                     use filename.fb                       :: open forth block file  block# list                           :: list block             v                                     :: view current block     x                                     :: clear/zero block       line# i text                          :: insert text at line    line# d                               :: delete line            n                                    :: load next block         p                                    :: load previous block     block# s                             :: load block              e                                    :: evaluate/load block                                                                                                                                     \ RetroForth Editor for VolksForth 1/2                19july2020                                                                16 constant l/b                                                                                                                 : (block) scr @ block ;  : (line) c/l * (block) + ;             : row dup c/l -trailing type c/l + cr ;                         : .rows l/s 0 do i 2 u.r space row loop ;                       : .block ." BLOCK: " scr @ . space ;                            : +--- ." +---" ;  : :--- ." :---" ;                            : x--- +--- :--- +--- :--- ;                                    : --- space space space x--- x--- x--- x--- cr ;                : vb --- scr @ block .rows drop --- ;                           : .stack ." Stack: " .s ;                                       : status .block .stack ;                                        : v cr vb status ;                                              -->                                                             \ RetroForth Editor for VolksForth 2/2                                                                                          : 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 ;                                                                                                                                                                                                                                                .( Retro Forth Editor loaded )                                                                                                           : x (block) l/b c/l * bl fill v* ;                              : p -1 scr +! v ;                                               : n 1 scr +! v ;                                                : e scr @ load ;                                                                                                                .( RetroForth Editor loaded )