One-Liner: dump screens from a Forth block file

I occasionally need to convert Forth block files (from VolksForth) to plain text files (to use diff or other tools). This one-liner using gforth does the trick:

#!/bin/sh
gforth -e "use ${1} : dump-blocks 0 do i list loop ; : blocks get-block-fid file-size drop d>s 1024 / ; blocks dump-blocks bye"

Save in a script file (dump-blocks), make it executable, and then you can use

# dump-blocks 6502f83.fb > 6502f83.fs