\ Some F83 BLOCK management tools

nuser block-source  0 block-source !

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