home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / word / text / 019 / vms.sl < prev    next >
Text File  |  1993-01-19  |  460b  |  21 lines
  1. ;; vms.sl
  2. ;; system specific routines
  3.  
  4.  
  5. (
  6.   [cfile file cmd] 
  7.   "@jed_library:vms_shell.com/output=" =cfile
  8.   "sys$login:_jed_shell.cmd_" =file
  9.   cfile file strcat =cfile
  10.   
  11.   "Shell Command:"  "" read_mini =cmd
  12.   cmd strlen {return} !if
  13.   
  14.   " \"" cmd strcat "\"" strcat =cmd
  15.   "starting process..." message flush 
  16.   cfile cmd strcat system pop
  17.   "*shell*" pop2buf erase_buffer
  18.   file insert_file pop bob
  19.   file delete_file
  20. ) do_shell_cmd
  21.