home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 74 / af074a.adf / archives / af74a2.lzx / ARcalcV2.0 / ARexx / eval.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-06-08  |  243 b   |  16 lines
  1. /*
  2.     This simple script just evaluate the given expression and prints the result
  3.     or the error message
  4. */
  5.  
  6. address ARCALCPORT
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 100
  9.  
  10. PARSE ARG expression
  11. Eval expression
  12. if RC > 0 then
  13.     SAY ARCALC_ERROR
  14.  
  15. SAY RESULT
  16.