home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / Mathscript_cr.lzx / MathScript / Rexx / FW_OpenMathScript.ms < prev    next >
Encoding:
Text File  |  1996-08-19  |  820 b   |  65 lines
  1. /* $VER: FW_OpenMathScript.ms 1.0 (18.08.96)
  2. **
  3. **
  4. */
  5.  
  6. options results
  7.  
  8. fw=address()
  9.  
  10. call SetClip("MS_FW",fw)
  11.  
  12. if ~show('p',"MATHSCRIPT.1") then
  13.   do
  14.     if ~exists("MathScript:MathScript") then
  15.       do
  16.         address "FINALW.1"
  17.         showmessage 1 1 '"MathScript could not be found!" "It has not been installed correctly!" "" "Ok" "" ""'
  18.         exit
  19.       end
  20.  
  21.     address command "run MathScript:MathScript"
  22.     address command "WaitForPort MATHSCRIPT.1"
  23.   end
  24.  
  25.  
  26. import=FALSE
  27.  
  28. address value fw
  29. currentobject
  30. id=result
  31. if id~=0 then
  32.   do
  33.     getobjecttype id
  34.     if result=1 then
  35.       do
  36.         copy
  37.         import=TRUE
  38.       end
  39.   end
  40.  
  41. status fontsize
  42. pt=result
  43.  
  44.  
  45. address "MATHSCRIPT.1"
  46.  
  47. clear
  48.  
  49. 'setgeneralprefs item="fontsize"' pt
  50.  
  51. show
  52.  
  53. screentofront
  54.  
  55. if import=TRUE then
  56.   do
  57.     importclip
  58.   end
  59.  
  60. exit
  61.  
  62.  
  63.  
  64.  
  65.