F.stn_ilk("Erd4E", "iob4E", "Ori4E", "R")
if event.train then
if get_line()=="4" then
 if get_rc()=="NY" then
  interrupt_pos(POS(10,0,-10), "arr44")
 else
  interrupt_pos(POS(10,0,-10), "arr4")
 end
else
 interrupt_pos(POS(10,0,-10), "arr1")
end
end
if depart then
if get_line()=="4" then
 if get_rc()=="NY" then
  interrupt_pos(POS(10,0,-10), "dep44")
 else
  interrupt_pos(POS(10,0,-10), "dep4")
 end
else
 interrupt_pos(POS(10,0,-10), "dep1")
end
end