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

do 1000
DO 1000
do 1000
DO 1000
do 1000
DO 1000
do 1000
DO 1000
do 1000
DO 1000
do 1000
DO 1000

result= ZocWaitMux("Report Sector 6:","Report Sector 58:", "Report Sector 684:","Report Sector 1780:","Report Sector 2261:","Report Sector 3891:")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="2"
        WHEN result=2 THEN x="3"
WHEN result=3 THEN x="4"
WHEN result=4 THEN x="5"
WHEN result=5 THEN x="6"
WHEN result=640 THEN x=7

end

if x=1 then do
call zocsend "cpy6^Mq"
end

if x=2 then do
call zocsend "cpy58^Mq"
end

if x=3 then do
call zocsend "cpy684^Mq"
end

if x=4 then do
call zocsend "cpy1780^Mq"
end

if x=5 then do
call zocsend "cpy2261^Mq"
end

if x=6 then do
call zocsend "cpy3891^Mq"
end

if x=7 then do
call zocsend "1^H"
end

END
END
END
END
END
END
END
END
END
END
END
END