home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / misc / sci / lynx / rexx / template.imrx < prev    next >
Encoding:
Text File  |  1995-05-29  |  922 b   |  55 lines
  1. /* Script for Lynx */
  2.  
  3. SIGNAL on ERROR
  4. SIGNAL on SYNTAX
  5. SIGNAL on BREAK_C
  6.  
  7. /* If you don't have rexxreqtools.library, delete these two lines */
  8. if ~ SHOW('L', "rexxreqtools.library") then
  9.   ret = addlib('rexxreqtools.library',0,-30)
  10.  
  11. ADDRESS 'Lynx'
  12. options results
  13.  
  14. /*
  15.  
  16.     INSERT YOUR CODE HERE
  17.  
  18. */
  19.  
  20. LynxEnd
  21. exit
  22.  
  23. ERROR:
  24.  Select
  25.    when RC = 3 then say "*** Error" RC" on line "SIGL": Process Failed"
  26.    when RC = 2 then say "*** Error" RC" on line "SIGL": Invalid entries" 
  27.    when RC = 1 then say "*** Error" RC" on line "SIGL": No image !"
  28.    otherwise say "*** Error "RC" on line "SIGL
  29.  end
  30.  
  31.  say "--> "SourceLine(SIGL)
  32.  say
  33.  say 'Press [RETURN]'
  34.  pull
  35.  LynxEnd
  36.  exit
  37.  
  38. SYNTAX:
  39.   say "*** Syntax error (Code "RC") on line" SIGL
  40.   say "--> "SourceLine(SIGL)
  41.   say
  42.   say 'Press [RETURN]'
  43.   pull
  44.   LynxEnd
  45.   exit
  46.  
  47. BREAK_C:
  48.   say "User Abort"
  49.   say "--> "SourceLine(SIGL)
  50.   say
  51.   say "Press [RETURN]"
  52.   pull
  53.   LynxEnd
  54.   exit
  55.