VolksForth/msdos/blocking.fb
2017-04-24 00:25:49 +02:00

1 line
3.0 KiB
Plaintext
Executable File

\ 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 ! ;