: 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