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

CALL ZocTimeout 60
do 1000

CALL ZocSend "tn"


CALL ZocSend "t"


CALL ZocSend "1"


CALL ZocSend "78^M"

CALL ZocSend "q"

CALL ZocSend "1^M"

CALL ZocSend "y"

CALL ZocWait "engage?"
CALL ZocSend "y"

CALL ZocWait "]:["
CALL ZocSend "l"

CALL ZocSend "t"

CALL ZocSend "^M"

CALL ZocSend "4569"


CALL ZocSend "y"

CALL ZocWait "engage?"
CALL ZocSend "y"

CALL ZocWait "]:["
CALL ZocSend "l"


CALL ZocSend "41^M"


CALL ZocSend "sn"


CALL ZocSend "l"


CALL ZocSend "1"


CALL ZocSend "^M"

end