VolksForth/8086/msdos/src/blocking.fb

\                                                    cas 11nov05Routines to copy physical blocks into files.                                                                                    The copy will done from the current file and drive into a new   file created in on the current MS-DOS drive and sub-directory.  So there can be a different drives used in the DIRECT Mode and  in the FILE Mode.                                                                                                               This command sequence will copy the physical blocks 10-20 on    driver C: into file "TEST.FB" on drive D: in Subdirectory       "\VOLKS".                                                                                                                                                                                       KERNEL.FB  D: CD \VOLKS                                         DIRECT C:                                                       10 20 BLOCKS>FILE TEST.FB                                       \ copy physical blocks to file                       cas 10nov05                                                                | File outfile                                                                                                                    : blocks>file   ( <filename> from to -- )  [ Dos ]                 isfile@ -rot   outfile make  1+ swap                            ?DO  I over (block                                                   ds@ swap b/blk isfile@ lfputs                              LOOP  close isfile ! ;