home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
200-299
/
ff284.lzh
/
Dme
/
rexmacs
/
putd.dme
< prev
next >
Wrap
Text File
|
1989-11-27
|
589b
|
18 lines
/* Saves the marked block as a file with the filename specified by */
/* the 1st argument, and then deletes it from the file being edited. */
/* If no name is specified, the block is written to file "t:$bsave". */
/* Arguments following the 1st one are ignored. */
/* */
/* Kim DeVaughn 12/28/87 */
options failat 5
rc = 0
parse arg filename junk
if filename = ""
then bsave "t:$bsave"
else bsave filename
bdelete
exit rc