home *** CD-ROM | disk | FTP | other *** search
- /* REXX-Program: LOGIN.RX */
-
- 'CLS' /* clear screen */
-
- 'TIMEOUT 60' /* max. time to wait for something */
-
- 'WAIT "Press <ESC>"'
- 'SEND "^["' /* ^[ is the code for the ESC key */
-
- 'WAIT "your name?"'
- 'SEND "Joe User^M"' /* don't forget ^M after the name */
-
- 'WAIT "[Yes/No]"'
- 'SEND "Yes^M"'
-
- 'WAIT "password?"'
- 'SEND "secret^M"'
-
- /* the next command means that ZOC should
- automatically send a ^M (Enter) every time
- the text "Press Enter to continue" arrives.
- This way all the news screens are skipped,
- no matter how many of them appear */
- 'REPLY "Enter" "^M"'
-
-
- /* Wait for the main menu */
- 'WAIT "Main Menu"'
-
-
- /* Cancel the previous REPLY command so ZOC won't
- kick in if we received that text later */
- 'REPLY "Enter"'
-