/* REXX (CREATED BY ZOC LEARN MODE) */

CALL ZocTimeout 60

CALL ZocSend "o"

CALL ZocWait "?"
CALL ZocSend "3"


CALL ZocSend "26^M"

CALL ZocWait "?"
CALL ZocSend "q"

CALL ZocWait "]:["
CALL ZocSend "p"


CALL ZocSend "r"

CALL ZocWait "[Pause]"
CALL ZocSend "^M"


CALL ZocSend "s"

CALL ZocSend "3"


CALL ZocSend "^M"