/* REXX (CREATED BY EITHLEEN) */ delay = 0.2 CALL ZocTimeout 6000 CALL ZocWaitForSeq 1 DO FOREVER rc= ZocWait("Hit range in ") ret= ZocWaitMux("A", "B", "C") SELECT WHEN ret=0 THEN DO CALL ZocWait "CCCCC" CALL ZocDelay delay CALL ZocSend " " END WHEN ret=1 THEN DO CALL ZocWait "AAAAA" CALL ZocDelay delay CALL ZocSend " " END WHEN ret=2 THEN DO CALL ZocWait "BBBBB" CALL ZocDelay delay CALL ZocSend " " END WHEN ret=640 THEN SIGNAL TIMEOUT END END