n=8
F.stn("MR"..(n+1).."D", "MR"..n.."D", "MR"..(n-1).."D","R", 10, "MR"..n.."DC")
if event.train then
F.stn_return_free("MR8U", "MR89div", "st")
setstate("MR"..n.."UC", "green")
setstate("MR"..(n+1).."DC", "green")
end
if depart then
--setstate("MRS", "cr")
S.line[atc_id]="MRD"
setstate("MR"..(n-1).."UC", "red")
setstate("MR"..n.."DC", "red")
setstate("MR"..(n-1)..n.."div", "cr")
setstate("MR"..n..(n-1).."div", "cr")
end