mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
1 line
3.0 KiB
Plaintext
1 line
3.0 KiB
Plaintext
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 ! |