home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.uni-stuttgart.de/pub/systems/acorn/
/
Acorn.tar
/
Acorn
/
acornet
/
dev
/
forth
/
forthmacs
/
tools1
/
tools1~
/
!Forthmacs.lib.blktools
< prev
next >
Wrap
Text File
|
1994-10-18
|
540b
|
17 lines
\ 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 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