home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / demos / programme / TurboCalc5d / Italiano / ARexx / TurboCalc.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-10-06  |  951 b   |  47 lines
  1. /**********************************************************
  2.  * Script Arexx di prova per TurboCalc © 1993 Michael Friedrich
  3.  **********************************************************/
  4.  
  5.  
  6. Options FailAt 0
  7. Options Results
  8.  
  9. /* Imposta porta TurboCalc */
  10. /*-------------------------*/
  11. ADDRESS TCALC
  12.  
  13. /* Ottieni posizione corrente */
  14. /*----------------------------*/
  15. GETCURSORPOS
  16. oldpos = RESULT
  17. say "Il cursore era nella cella" oldpos
  18.  
  19. /* Metti qualcosa nella cella A1  */
  20. /*--------------------------------*/
  21. PUT 10 A1
  22.  
  23. /* e nella cella A2 */
  24. /*------------------*/
  25. PUT 1.23 A2
  26.  
  27. /* Formula nella cella A3 */
  28. /*------------------------*/
  29. SELECTCELL 'A3'
  30. PUT '=A1+A2'
  31.  
  32. /* e leggi di nuovo: */
  33. /*-------------------*/
  34. GETFORMULA
  35. say "Formula in A3:" RESULT
  36.  
  37. /* Contenuti (risultato) di A3 */
  38. /*-----------------------------*/
  39. GETVALUE A3
  40. say "Risultato:" RESULT
  41.  
  42. /* ritorna alla vecchia posizione */
  43. /*--------------------------------*/
  44. SELECTCELL oldpos
  45.  
  46.  
  47.