home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 411b.lha / dme_1.42 / rexmacs / putd.dme < prev    next >
Text File  |  1990-09-08  |  589b  |  18 lines
  1. /*   Saves the marked block as a file with the filename specified by     */
  2. /*   the 1st argument, and then deletes it from the file being edited.   */
  3. /*   If no name is specified, the block is written to file "t:$bsave".   */
  4. /*   Arguments following the 1st one are ignored.                        */
  5. /*                                                                       */
  6. /*   Kim DeVaughn  12/28/87                                              */
  7.  
  8. options failat 5
  9. rc = 0
  10.  
  11. parse arg filename junk
  12. if filename = ""
  13.    then bsave "t:$bsave"
  14.    else bsave  filename
  15. bdelete
  16. exit rc
  17.  
  18.