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 stop1()

  if event == "redstone" and rs.getInput("back") == true then

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
end

function start1()


  if event == "redstone" and rs.getInput("back") == false then

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
end








local function loop1 ()
  while true do
    trains()
    stop1()
    sleep(1)
  end
end

local function loop2 ()
  while true do
    trains()
    start1()
    sleep(1)
  end
end

while(true) do
    parallel.waitForAny(loop1, loop2)
end