home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #5 / AmigaPlus_Extra-CD_5-97.iso / online-tools / mail / ems / rexx / help.ems < prev    next >
Text File  |  1993-03-07  |  552b  |  35 lines
  1. /* Help.ems */
  2.  
  3. options results
  4. signal on error
  5. signal on syntax
  6.  
  7. parse arg cmd .
  8.  
  9. if( ~show( 'l', "ems_rexx.library" ) ) then
  10. do
  11.    if( ~addlib( "ems_rexx.library", 0, -30, 0 ) )then
  12.    do
  13.       say "Could not open ems_rexx.library"
  14.       exit 10
  15.    end
  16. end
  17.  
  18. if cmd = '' then call EMS_Help(     )
  19. else             call EMS_Help( cmd )
  20.  
  21. call EMS_FreeScriptData()
  22. exit 0
  23.  
  24. error:
  25. syntax:
  26.  
  27. error_text = EMS_LastError()
  28.  
  29. if error_text = '' then error_text = rc ErrorText( rc )
  30.  
  31. say '| ***BREAK: error at' sigl error_text
  32.  
  33. call EMS_FreeScriptData()
  34. exit rc
  35.