mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-29 21:49:17 +00:00
71 lines
1.7 KiB
Forth
71 lines
1.7 KiB
Forth
|
|
||
|
\ *** Block No. 0, Hexblock 0
|
||
|
|
||
|
\ 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
|
||
|
|
||
|
|
||
|
|
||
|
\ *** Block No. 1, Hexblock 1
|
||
|
|
||
|
\ 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 ;
|
||
|
-->
|
||
|
|
||
|
\ *** Block No. 2, Hexblock 2
|
||
|
|
||
|
\ 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 )
|
||
|
|
||
|
|
||
|
\ *** Block No. 3, Hexblock 3
|
||
|
|
||
|
: x (block) l/b c/l * bl fill v* ;
|
||
|
: p -1 scr +! v ;
|
||
|
: n 1 scr +! v ;
|
||
|
: e scr @ load ;
|
||
|
|
||
|
.( RetroForth Editor loaded )
|
||
|
|
||
|
|
||
|
|
||
|
|