home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / commercial / turbocalc / docs / italiano / arexx / turbocalc.rexx < prev   
OS/2 REXX Batch file  |  1998-04-27  |  951b  |  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.