home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / rexx / menu_evaluate.edge < prev    next >
Text File  |  1994-10-23  |  565b  |  25 lines
  1. /*
  2. ** $VER: Menu_Evaluate.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Schneiden den aktuellen Block aus, berechnet ihn und fügt ihn wieder ein.
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Aktuellen Block in den Result-Puffer kopieren */
  13. cut resultbuff
  14. if rc==0 then do
  15.     
  16.     /* Den Wert vorbereiten und entsprechend interpretieren */
  17.     value="value=" result
  18.     interpret value
  19.     
  20.     /* Wenn keine Fehler aufgetreten sind, dann das Resultat einfügen */
  21.     if rc==0 then do
  22.         text """"value""""
  23.     end
  24. end
  25.