/* Script for Lynx */

SIGNAL on ERROR
SIGNAL on SYNTAX
SIGNAL on BREAK_C

/* If you don't have rexxreqtools.library, delete these two lines */
if ~ SHOW('L', "rexxreqtools.library") then
  ret = addlib('rexxreqtools.library',0,-30)

ADDRESS 'Lynx'
options results

/*

	INSERT YOUR CODE HERE

*/

LynxEnd
exit

ERROR:
 Select
   when RC = 3 then say "*** Error" RC" on line "SIGL": Process Failed"
   when RC = 2 then say "*** Error" RC" on line "SIGL": Invalid entries" 
   when RC = 1 then say "*** Error" RC" on line "SIGL": No image !"
   otherwise say "*** Error "RC" on line "SIGL
 end

 say "--> "SourceLine(SIGL)
 say
 say 'Press [RETURN]'
 pull
 LynxEnd
 exit

SYNTAX:
  say "*** Syntax error (Code "RC") on line" SIGL
  say "--> "SourceLine(SIGL)
  say
  say 'Press [RETURN]'
  pull
  LynxEnd
  exit

BREAK_C:
  say "User Abort"
  say "--> "SourceLine(SIGL)
  say
  say "Press [RETURN]"
  pull
  LynxEnd
  exit