home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Global Amiga Experience
/
globalamigaexperience.iso
/
compressed
/
applications
/
turbocalc3_0demo.dms
/
turbocalc3_0demo.adf
/
TurboCalc
/
ARexx
/
TurboCalc.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1994-11-01
|
911b
|
45 lines
/**********************************************************
* Test ARexx-Skript für TurboCalc © 1993 Michael Friedrich
**********************************************************/
Options FailAt 0
Options Results
/* TurboCalc-Port festlegen */
/*--------------------------*/
ADDRESS TCALC
/* Lies aktuelle Position */
/*--------------------------*/
GETCURSORPOS
oldpos = RESULT
say "Cursor war in Zelle" oldpos
/* Schreibe Zelle A1 */
/*--------------------*/
PUT 10 A1
/* und Zelle A2 */
/*--------------*/
PUT 1.23 A2
/* Formel nach Zelle A3 */
/*----------------------*/
SELECTCELL 'A3'
PUT '=A1+A2'
/* und testweise auslesen: */
/*-------------------------*/
GETFORMULA
say "Formel in A3:" RESULT
/* Inhalt (d.h. Ergebnis von) A3 */
/*-------------------------------*/
GETVALUE A3
say "Ergebnis" RESULT
/* alte Zellposition zurücksetzen */
/*--------------------------------*/
SELECTCELL oldpos