home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 100-199 / ff153.lzh / Dme / rexmacs / put.dme < prev    next >
Text File  |  1987-06-15  |  399b  |  16 lines
  1. /*   Saves the marked block as a file with the filename specified by     */
  2. /*   the 1st argument.    If no name is specified, the block is written     */
  3. /*   to file "t:$bsave".  Arguments following the 1st one are ignored.   */
  4. /*                                     */
  5. /*   Kim DeVaughn  12/21/87                         */
  6.  
  7. options failat 5
  8. rc = 0
  9.  
  10. parse arg filename junk
  11. if filename = ""
  12.    then bsave "t:$bsave"
  13.    else bsave  filename
  14. exit rc
  15.  
  16.