Retro Forth Block Editor

The Retro Forth block editor ported to VolksForth for the Atari 8bit.

\ Retro Forth Editor for
\ VolksForth Atari 8bit
HEX 
\needs BLOCK    INCLUDE" D:BUFIO.FS"
VOCABULARY EDITOR 
ONLYFORTH EDITOR ALSO DEFINITIONS EDITOR
ORDER
: (BLOCK) SCR @ BLOCK ;
: (LINE) C/L * (BLOCK) + ;
: ROW DUP C/L -TRAILING TYPE C/L + CR ;
: .ROWS L/S 0 DO I . ROW LOOP ;
: .BLOCK ." BLOCK: " SCR @ . SPACE ;
: +--- ." +---" ;
: :--- ." :---" ;
: X--- +--- :--- +--- :--- ;
: --- SPACE 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* ; : S SCR ! V ; 
: I 0 SWAP IA ; 
: D (LINE) C/L BL FILL V* ;
: X (BLOCK) L/S C/L * BL FILL V* ;
: P -1 SCR +! V ;
: N  1 SCR +! V ; : E SCR @ LOAD ;
CR .( RFE Editor loaded ) CR
FORTH