home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / Menu_Evaluate.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  465 b   |  24 lines
  1. /*
  2. ** $VER: Menu_Evaluate.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Cut, Evaluate and Type the result of the current block
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* cut the current block into the result buffer */
  12. cut resultbuff
  13. if rc==0 then do
  14.     
  15.     /* prepare and then interpret the value */
  16.     value="value=" result
  17.     interpret value
  18.     
  19.     /* if there were no errors then type the result */
  20.     if rc==0 then do
  21.         text """"value""""
  22.     end
  23. end
  24.