mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-19 02:08:38 +00:00
15 lines
278 B
Forth
Executable File
15 lines
278 B
Forth
Executable File
: fb2fth ( u -- )
|
|
dup scr !
|
|
." \ *** Block No. " base @ decimal scr @ dup . ." Hexblock " hex . base ! cr
|
|
l/s 0 ?do
|
|
scr @ block i c/l * chars + c/l type cr
|
|
loop ;
|
|
|
|
: bdump 0 do i fb2fth loop ;
|
|
|
|
get-block-fid file-size drop drop 1024 /
|
|
bdump
|
|
|
|
bye
|
|
|