home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 7
/
FreshFishVol7.bin
/
bbs
/
biz
/
turbocalc-2.18e.lha
/
TurboCalc
/
Arexx
/
TurboCalc.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1994-07-25
|
868b
|
45 lines
/**********************************************************
* Test ARexx-Script for TurboCalc © 1993 Michael Friedrich
**********************************************************/
Options FailAt 0
Options Results
/* Set TurboCalc-Port */
/*--------------------*/
ADDRESS TCALC
/* Get current position */
/*----------------------*/
GETCURSORPOS
oldpos = RESULT
say "Cursor was in Cell" oldpos
/* Put something to cell A1 */
/*---------------------------*/
PUT 10 A1
/* and Cell A2 */
/*-------------*/
PUT 1.23 A2
/* Formula to Cell A3 */
/*--------------------*/
SELECTCELL 'A3'
PUT '=A1+A2'
/* and read again: */
/*-----------------*/
GETFORMULA
say "Formula in A3:" RESULT
/* Contents (i.e. result of) A3 */
/*------------------------------*/
GETVALUE A3
say "Result:" RESULT
/* reset old cell position */
/*-------------------------*/
SELECTCELL oldpos