home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
fish
/
text
/
editors
/
dme_441
/
rexmacs
/
put.dme
< prev
next >
Wrap
Text File
|
1991-01-24
|
399b
|
16 lines
/* Saves the marked block as a file with the filename specified by */
/* the 1st argument. If no name is specified, the block is written */
/* to file "t:$bsave". Arguments following the 1st one are ignored. */
/* */
/* Kim DeVaughn 12/21/87 */
options failat 5
rc = 0
parse arg filename junk
if filename = ""
then bsave "t:$bsave"
else bsave filename
exit rc