home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / misc / sci / lynx / rexx / testmul.imrx < prev   
Encoding:
Text File  |  1995-05-29  |  1.1 KB  |  69 lines
  1. /* Gradient rotationnel */
  2.  
  3. SIGNAL on ERROR
  4. SIGNAL on SYNTAX
  5. SIGNAL on BREAK_C
  6.  
  7. if ~ SHOW('L', "rexxreqtools.library") then
  8.  addlib('rexxreqtools.library',0,-30)
  9.  
  10. ADDRESS 'Lynx'
  11. options results
  12. options prompt '>'
  13.  
  14. AddrCurrentImage var adresse
  15.  
  16. MaskStatus var masque
  17. say "Etat du masquage: " masque
  18. Mask OFF
  19. Sigma var sig
  20. say "sigma = " sig
  21. Mask masque
  22.  
  23. do forever
  24.  pull inst
  25.  if inst = 'END' then leave
  26.  interpret inst
  27. end
  28.  
  29. options prompt
  30. say "Press [RETURN]"
  31. pull
  32.  
  33. LynxEnd
  34.  
  35. exit
  36.  
  37. ERROR:
  38.   Select
  39.    when RC = 3 then say "*** Error" RC" on line "SIGL": Process Failed"
  40.    when RC = 2 then say "*** Error" RC" on line "SIGL": Invalid entries" 
  41.    when RC = 1 then say "*** Error" RC" on line "SIGL": No image !"
  42.    otherwise say "*** Error "RC" on line "SIGL
  43.   end
  44.  
  45.   say "--> "SourceLine(SIGL)
  46.   say
  47.   say 'Press [RETURN]'
  48.   pull
  49.   LynxEnd
  50.   exit
  51.  
  52. SYNTAX:
  53.   say "*** Syntax error (Code "RC") on line" SIGL
  54.   say "--> "SourceLine(SIGL)
  55.   say
  56.   say 'Press [RETURN]'
  57.   pull
  58.   LynxEnd
  59.   exit
  60.  
  61. BREAK_C:
  62.   say "User Abort"
  63.   say "--> "SourceLine(SIGL)
  64.   say
  65.   say "Press [RETURN]"
  66.   pull
  67.   LynxEnd
  68.   exit
  69.