/*
 *
 * Script name:     GotoCellDemo.rexx
 * Author:          Franz Hemmer
 * Purpose:         Demonstrate the GOTO_CELL feature in InterSpread.
 * Related Program: InterSpread Pro
 * Written:         08.02.93
 *
 */

Options Results
parse arg waitamount

/*----------------------------------*/
/* Check that parameter was passed: */
/*----------------------------------*/
IF waitamount = "" THEN DO
   SAY 'Usage: GotoCellDemo <waitamount>'
   EXIT 5
END

/*-------------------------------------------------*/
/* Address InterSpread port, and execute commands. */
/*-------------------------------------------------*/
ADDRESS INTERSPREAD1

CURRENT_SHEETNAME
IF result ~= 'test' THEN DO
   OPEN_SHEET "INTERSPREAD:DemoSheets/test"
   SAY 'Sheet loaded...'
END
SAY 'Walking the sheet :-)'
GOTO_CELL B3                                 /* GOTO_CELL demo. */
DO i=1 TO waitamount
END
GOTO_CELL C3
DO i=1 TO waitamount
END
GOTO_CELL D3
DO i=1 TO waitamount
END
GOTO_CELL E3
DO i=1 TO waitamount
END
GOTO_CELL F3
DO i=1 TO waitamount
END
GOTO_CELL G3
DO i=1 TO waitamount
END
GOTO_CELL G4
DO i=1 TO waitamount
END
GOTO_CELL F4
DO i=1 TO waitamount
END
GOTO_CELL E4
DO i=1 TO waitamount
END
GOTO_CELL D4
DO i=1 TO waitamount
END
GOTO_CELL C4
DO i=1 TO waitamount
END
GOTO_CELL B4
DO i=1 TO waitamount
END
GOTO_CELL B5
DO i=1 TO waitamount
END
GOTO_CELL C5
DO i=1 TO waitamount
END
GOTO_CELL D5
DO i=1 TO waitamount
END
GOTO_CELL E5
DO i=1 TO waitamount
END
GOTO_CELL F5
DO i=1 TO waitamount
END
GOTO_CELL G5
DO i=1 TO waitamount
END
GOTO_CELL G6
DO i=1 TO waitamount
END
GOTO_CELL F6
DO i=1 TO waitamount
END
GOTO_CELL E6
DO i=1 TO waitamount
END
GOTO_CELL D6
DO i=1 TO waitamount
END
GOTO_CELL C6
DO i=1 TO waitamount
END

SELECT_BLOCK B3 G6                           /* Currency demo. */
DO i=1 TO waitamount * 2
END
CURRENCY 1
DO i=1 TO waitamount * 2
END
CURRENCY 2
DO i=1 TO waitamount * 2
END
CURRENCY 3
DO i=1 TO waitamount * 2
END
CURRENCY 4
DO i=1 TO waitamount * 2
END
CURRENCY 5
DO i=1 TO waitamount * 2
END
CURRENCY 6
DO i=1 TO waitamount * 2
END
CURRENCY 7
DO i=1 TO waitamount * 2
END
CURRENCY 8
DO i=1 TO waitamount * 2
END
CURRENCY 9
DO i=1 TO waitamount * 2
END
CURRENCY 10
DO i=1 TO waitamount * 2
END
CURRENCY 11
DO i=1 TO waitamount * 2
END
CURRENCY 12
DO i=1 TO waitamount * 2
END
CURRENCY 13
DO i=1 TO waitamount * 2
END
CURRENCY 14
DO i=1 TO waitamount * 2
END
CURRENCY 15
DO i=1 TO waitamount * 2
END
CURRENCY 0
DO i=1 TO waitamount * 2
END
COPY
GOTO_CELL A8
DO i=1 TO waitamount * 3
END
PASTE
DO i=1 TO waitamount * 3
END
SELECT_BLOCK A8 F11
DO i=1 TO waitamount * 2
END
ERASE
DO i=1 TO waitamount * 2
END

GOTO_CELL B3											/* Style demo. */
SELECT_BLOCK B3 G6
STYLE BOLD
DO i=1 TO waitamount * 3
END
STYLE ITALIC
DO i=1 TO waitamount * 3
END
STYLE UNDERLINE
DO i=1 TO waitamount * 3
END
STYLE SUPERSCRIPT
DO i=1 TO waitamount * 3
END
STYLE SUBSCRIPT
DO i=1 TO waitamount * 3
END
STYLE COLOR2
DO i=1 TO waitamount * 3
END
STYLE COLOR3
DO i=1 TO waitamount * 3
END
STYLE COLOR1
DO i=1 TO waitamount * 3
END
STYLE NORMAL
DO i=1 TO waitamount * 3
END
INDENT LEFT
DO i=1 TO waitamount * 3
END
INDENT CENTERED
DO i=1 TO waitamount * 3
END
INDENT NATURAL
GOTO_CELL A1
SAY 'Done !'