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