home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / S8-TCAL3.DMS / in.adf / TurboCalc / ARexx / TurboCalc.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-11-01  |  911 b   |  45 lines
  1. /**********************************************************
  2.  * Test ARexx-Skript für TurboCalc © 1993 Michael Friedrich
  3.  **********************************************************/
  4.  
  5. Options FailAt 0
  6. Options Results
  7.  
  8. /* TurboCalc-Port festlegen */
  9. /*--------------------------*/
  10. ADDRESS TCALC
  11.  
  12. /* Lies aktuelle Position */
  13. /*--------------------------*/
  14. GETCURSORPOS
  15. oldpos = RESULT
  16. say "Cursor war in Zelle" oldpos
  17.  
  18. /* Schreibe Zelle A1  */
  19. /*--------------------*/
  20. PUT 10 A1
  21.  
  22. /* und Zelle A2 */
  23. /*--------------*/
  24. PUT 1.23 A2
  25.  
  26. /* Formel nach Zelle A3 */
  27. /*----------------------*/
  28. SELECTCELL 'A3'
  29. PUT '=A1+A2'
  30.  
  31. /* und testweise auslesen: */
  32. /*-------------------------*/
  33. GETFORMULA
  34. say "Formel in A3:" RESULT
  35.  
  36. /* Inhalt (d.h. Ergebnis von) A3 */
  37. /*-------------------------------*/
  38. GETVALUE A3
  39. say "Ergebnis" RESULT
  40.  
  41. /* alte Zellposition zurücksetzen */
  42. /*--------------------------------*/
  43. SELECTCELL oldpos
  44.  
  45.