home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / text / edit / macro / augfl / goldfax.ged next >
Text File  |  1994-04-26  |  1KB  |  41 lines
  1. /************************************************************
  2.              GoldFax written by Francois Helsen
  3.                     for use with GoldEd
  4.             No need to run GPFax before send Fax
  5.          Install as 'GoldFax...' in the ARexx menu.
  6.  
  7.                         First release
  8.              $VER: GoldFax.ged 1.0  (26.04.94)
  9.  
  10. ************************************************************/
  11.  
  12. OPTIONS RESULTS                             /* enable return codes     */
  13.  
  14. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  15.     address 'GOLDED.1'
  16.  
  17. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  18. OPTIONS FAILAT 6                            /* ignore warnings         */
  19. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  20.  
  21.  
  22. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  23.  
  24. if ~show(ports, rexx_gpfax) then
  25.     do
  26.         address command 'run >NIL: GPFax:GPFax -z -Q'
  27.     end
  28.  
  29. PRINT ALL
  30.  
  31. /* ---------------------------- END OF YOUR CODE --------------------- */
  32.  
  33. 'UNLOCK' /* VERY important: unlock GUI */
  34. EXIT
  35.  
  36. SYNTAX:
  37.  
  38. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  39. 'UNLOCK'
  40. EXIT
  41.