home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / text / edit / macro / mpascal / saveconf.ged < prev    next >
Text File  |  1994-09-11  |  479b  |  27 lines
  1. /*
  2. ** $VER: saveconf 0.001 (10 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. ** FUNCTION : Speicher der eingestellten Optionen im Verzeichnis S: unter dem
  7. **            Namen MPascal.config
  8. **
  9. */
  10.  
  11.  
  12. host = ADDRESS()                              /* get GED's port    */
  13.  
  14. IF show('p', 'MPASCAL') THEN
  15.  
  16.     do
  17.         ADDRESS MPASCAL
  18.         "saveconf S:MPascal.config"
  19.     end
  20. else 
  21.     do
  22.         ADDRESS (host)
  23.         'REQUEST BODY "Couldn''t launch MPascal ?!"'
  24.     end
  25.  
  26. EXIT
  27.