home *** CD-ROM | disk | FTP | other *** search
- /* DEVPAC.CED - Macro to call Hisoft Devpac V3 from CygnusEd
- Saves waiting for Hisoft to fix their editor :-)
-
- */
- options results
- LF = '0A'X
-
- rawkey 17 128
-
- status 19
- FileName = result
-
-
- getstring 'ram:test' '"Destination file name:"'
- TestFile = result
-
- if (TestFile = "RESULT") then exit 0
-
- TestFile = "-o" || TestFile
-
- address command "genam > ram:errors " Filename TestFile
-
- address command "ed ram:errors -o"
-
- jump to file "errors"
-
- editable file
-