home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / S8-PCALC.LHA / ProCalc / Rexx / Test.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-11-19  |  940 b   |  52 lines
  1. /* Tests some of the Arexx functions of Professional Calc */
  2.  
  3. ADDRESS "PCALC"
  4. options results
  5.  
  6.  
  7. /* Select a cell, then return what cell we've just selected */
  8. SelectCell C1
  9. Current
  10. say result
  11.  
  12. DrawMessage "This is a message from ARexx."
  13.  
  14. /* Puts a value in cell C1, then gets it back and prints it on the output window */
  15. PutCell "5"
  16. SelectCell C1
  17. GetValue
  18. say result
  19.  
  20. /* Puts a formula in cell C2, then gets it back and prints it on the output window */
  21. SelectCell C2
  22. PutCell "=A1+SIN(3)"
  23. SelectCell C2
  24. GetFormula
  25. say result
  26.  
  27. /* Puts text in cell C2, then gets it back and prints it on the output window */
  28. SelectCell C3
  29. PutCell "This is what I'm putting into the cell."
  30. SelectCell C3
  31. GetLabel
  32. say result
  33.  
  34. /* Tests what kind of cell this is */
  35. IsValue
  36. say result
  37.  
  38. IsFormula
  39. say result
  40.  
  41. IsLabel
  42. say result
  43.  
  44. /* Select a range, then return what range we've just selected */
  45. SelectRange "A1:D7"
  46. Current
  47. say result
  48.  
  49. SaveSpread "Ram:Test.pcf"
  50.  
  51.  
  52.