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

CALL ZocTimeout 60

SAY "'HELLO";

CALL ZocSend "d"

CALL ZocWait ":"
CALL ZocSend "1782^M"

CALL ZocWait ":"
CALL ZocSend "pt"

CALL ZocWait "[0;35m]?"
CALL ZocSend "^M"

CALL ZocWait "?"
CALL ZocSend "^M"