home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / datafiles / text / howtocode / utils / ced / devpac.ced < prev    next >
Text File  |  1995-02-27  |  459b  |  28 lines
  1. /*   DEVPAC.CED - Macro to call Hisoft Devpac V3 from CygnusEd
  2.      Saves waiting for Hisoft to fix their editor :-)
  3.  
  4. */
  5. options results
  6. LF = '0A'X
  7.  
  8. rawkey 17 128
  9.  
  10. status 19
  11. FileName = result
  12.  
  13.  
  14. getstring 'ram:test'  '"Destination file name:"'
  15. TestFile = result
  16.  
  17. if (TestFile = "RESULT") then exit 0
  18.  
  19. TestFile = "-o" || TestFile
  20.  
  21. address command "genam > ram:errors " Filename TestFile
  22.  
  23. address command "ed ram:errors -o"
  24.  
  25. jump to file "errors"
  26.  
  27. editable file
  28.