--waiting lane
-- config'd for the southbound-waiting lane
-- train nose points south, using a north signal
local dir = "N"
local waiting_signal = "TY_WAITING_"..dir

if S.yard_active then
	if atc_id then
		atc_send("B0")
		interrupt(10,"recheck")
	end
else -- send train to "headshunt"
	if not atc_id then return end
	S.yard_active = true
	step_fc()
	local rc = get_rc() or ""
	S.rc = rc
	
	--check for RTS
	if  S.single_dir == true or S.rc:match("TY_RTS") then
		S.dir = dir
		--working end = entrance dir
		S.RTS = true -- to direct train to PICKUP lane. AROUND_dir will be set by the pickup track
	else
		--invert S.dir
		--working end ~= entrance end
		if dir == "N" then
			S.dir = "S" 
		else
			S.dir = "N"
		end
	end

	set_rc("PICKUP")	
	set_route(waiting_signal,"HEADSHUNT")
	atc_set_text_outside("Proceeding to Classification Yard")
	atc_send("S0WRS4")
end