home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / scientific / mathx / rexx / sendtomathscript.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  352 b   |  23 lines
  1. /*
  2. ** This script gets the selected function from mathX
  3. ** and sends it to MathScript
  4. */
  5.  
  6. options results
  7.  
  8. ADDRESS 'MATHX.1'
  9.  
  10. GETFUNCTION MS30
  11. fkt = result
  12.  
  13. IF ~SHOW('p',"MATHSCRIPT.1") THEN
  14. DO
  15.   ADDRESS COMMAND "run MathScript:MathScript"
  16.   ADDRESS COMMAND "waitforport "MATHSCRIPT.1""
  17. END
  18.  
  19. ADDRESS "MATHSCRIPT.1"
  20.  
  21. SCREENTOFRONT
  22. SETCODE '"'||fkt||'"'
  23.