\ Some F83 BLOCK management tools

forth definitions
nuser block-input-file  0 block-input-file !

: !files	(s fcb -- )	dup block-fid !  block-input-file !  ;
: default	(s -- )		0 !files  ;
: file?		(s -- )		block-fid @ .file  ;
: switch	(s -- )
	block-fid @
	block-input-file @  block-fid !
	block-input-file ! ;
: capacity	(s -- n )	block-fid @  file-size s>d b/buf um/mod nip  ;
: in-block	(s n -- a )	block-input-file @  file-block  ;
: use-file	(s str -- )	[ sys ] open-block-file !files  ;
: using		(s -- )		blword  use-file ; \ filename
