home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / comm / mail / ems / rexx / shutdown.ems < prev    next >
Encoding:
Text File  |  1993-03-30  |  251 b   |  16 lines
  1. /* ShutDown.ems */
  2.  
  3. if( ~show( 'l', "ems_rexx.library" ) ) then
  4. do
  5.    if( ~addlib( "ems_rexx.library", 0, -30, 0 ) )then
  6.    do
  7.       say "Could not open ems_rexx.library"
  8.       exit 10
  9.    end
  10. end
  11.  
  12. call EMS_ShutDown()
  13.  
  14. call EMS_FreeScriptData()
  15. exit 0
  16.