home *** CD-ROM | disk | FTP | other *** search
- /*rxtest.rexx */
- /*test rexx script */
- /*run from cli rx rxtest this is a very simple example with no error
- checking. It needds a cli open on the bottom half of the screen and
- workbench visable at the top.*/
-
- options results /*turn on string results*/
- address 'rexxinput'
- 'mouseto 20 30'
- 'clicklbutton'
- 'mouseto 20 10'
- 'pressrbutton'
- do x = 1 to 110
- 'mouserel 0 1'
- end
- 'relrbutton'
- 'mouseto 300 300'
- 'clicklbutton'
- 'stringcd'
- 'quit'
-
-