F.stn("MR5D", "MR4D", "MRSD","R", 4, "MR4DC")
if event.train then
setstate("MR4UC", "green")
setstate("MR5DC", "green")
end
if depart then
S.line[atc_id]="MRD"
setstate("MRSUC", "red")
setstate("MR4DC", "red")
setstate("MRSUOut", "st")
setstate("MR43div", "st")

setstate("MRS3", "cr")
end