/* Sector Moving */

x= 10

DO 10000

x= x+1

CALL ZocSend x
CALL ZocSend "^M"
CALL ZocSend "e"

MOVING1:

result=ZocWaitMux("Fighters: 1", "Stop in this s", "Arriving sector :")
select
	WHEN result=0 then DO
		CALL ZocSend "a10^M^M"
		SIGNAL MOVING1
	end
	WHEN result=1 then DO
		CALL ZocSend "n"
		SIGNAL MOVING1
	end
	WHEN result=2 then blah=blah1
end

end

EXIT