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