mon = peripheral.wrap("right")
p = peripheral.wrap("left")

function pulse()
redstone.setOutput("left", true)
sleep(2)
redstone.setOutput("left", false)
end

function trains()
mon.setTextColor(colors.white)
mon.setCursorPos(2,5)
mon.write("TRAIN 1 - Water")
mon.setCursorPos(2,6)
mon.write("TRAIN 2 - Oil")
mon.setCursorPos(2,7)
mon.write("TRAIN 3 -")
mon.setCursorPos(2,8)
mon.write("TRAIN 4 -")
mon.setCursorPos(2,9)
mon.write("TRAIN 5 -")
mon.setCursorPos(2,10)
mon.write("TRAIN 6 -")
mon.setCursorPos(2,11)
mon.write("TRAIN 7 -")
mon.setCursorPos(2,12)
mon.write("TRAIN 8 -")
end

function stop()
mon.setTextColor(colors.red)

mon.setCursorPos(22,5)
mon.write("CANCELLED")

mon.setCursorPos(22,6)
mon.write("CANCELLED")

mon.setCursorPos(22,7)
mon.write("CANCELLED")

mon.setCursorPos(22,8)
mon.write("CANCELLED")

mon.setCursorPos(22,9)
mon.write("CANCELLED")

mon.setCursorPos(22,10)
mon.write("CANCELLED")

mon.setCursorPos(22,11)
mon.write("CANCELLED")

mon.setCursorPos(22,12)
mon.write("CANCELLED")
end



while true do
   mon.clear()
   mon.setCursorPos(2,2)
   mon.setTextColor(colors.white)
   mon.write("TRAIN STATION")

   if rs.getInput("back") then
   mon.setCursorPos(2,3)
   mon.setTextColor(colors.red)
   mon.write("TRAIN IN EXIT ZONE. CANCELLING DEPARTURES.")
trains()
stop()

   else
   mon.setCursorPos(2,3)
   mon.setTextColor(colors.green)
   mon.write("ZONE CLEAR. RESUMING DEPARTURES.          ")
trains()

mon.setTextColor(colors.green)

mon.setCursorPos(22,12)
mon.write("DEPARTING")
p.setFreq(108)
    pulse()
sleep(2)
mon.setCursorPos(22,11)
mon.write("DEPARTING")
p.setFreq(107)
    pulse()
sleep(2)
mon.setCursorPos(22,10)
mon.write("DEPARTING")
p.setFreq(106)
    pulse()
sleep(2)
mon.setCursorPos(22,9)
mon.write("DEPARTING")
p.setFreq(105)
    pulse()
sleep(2)
mon.setCursorPos(22,8)
mon.write("DEPARTING")
p.setFreq(104)
    pulse()
sleep(2)
mon.setCursorPos(22,7)
mon.write("DEPARTING")
p.setFreq(103)
    pulse()
sleep(2)
mon.setCursorPos(22,6)
mon.write("DEPARTING")
p.setFreq(102)
    pulse()
sleep(2)
mon.setCursorPos(22,5)
mon.write("DEPARTING")
p.setFreq(101)
    pulse()


end
sleep(2)
end