home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / misc / sci / lynx / rexx / normaliser.imrx < prev    next >
Encoding:
Text File  |  1995-05-29  |  884 b   |  56 lines
  1. /* Normalisation */
  2.  
  3. SIGNAL on ERROR
  4. SIGNAL on SYNTAX
  5. SIGNAL on BREAK_C
  6.  
  7. if ~ SHOW('L', "rexxreqtools.library") then
  8.   ret = addlib('rexxreqtools.library',0,-30)
  9.  
  10. ADDRESS 'Lynx'
  11. options results
  12.  
  13. say 'min ?'
  14. pull min
  15. say 'max ?'
  16. pull max
  17.  
  18. Normalize min max
  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.  
  48. BREAK_C:
  49.   say "User Abort"
  50.   say "--> "SourceLine(SIGL)
  51.   say
  52.   say "Press [RETURN]"
  53.   pull
  54.   LynxEnd
  55.   exit
  56.