home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD1.img / d1xx / d153 / dme / rexmacs / get.dme < prev    next >
Encoding:
Text File  |  1987-06-15  |  477 b   |  19 lines
  1. /*   Inserts the file specified by the 1st argument immediately above     */
  2. /*   the line the cursor is on.  If no filename is specified, the file     */
  3. /*   "t:$bsave" is used if it exists.  Arguments following the 1st one   */
  4. /*   are ignored.                             */
  5. /*                                     */
  6. /*   Kim DeVaughn  12/21/87                         */
  7.  
  8. options failat 5
  9. rc = 0
  10.  
  11. parse arg filename junk
  12. if filename = ""
  13.    then if exists("t:$bsave")
  14.        then insfile "t:$bsave"
  15.        else nop
  16.    else insfile filename
  17. exit rc
  18.  
  19.