Elevator Floor Computer

local FloorNumber

if fs.exists("floorNumber") then
  local file = fs.open("floorNumber", "r")
  FloorNumber = textutils.unserialize(file.readAll())
else

  print("Enter Floor Number")
  FloorNumber = read()

  local file = fs.open("floorNumber", "w")
  file.write(textutils.serialize(FloorNumber))
  file.close()

end

local openModem = peripheral.find("modem") or error("No modem attached", 0)

os.setComputerLabel("Floor " .. FloorNumber)

openModem.open(tonumber(FloorNumber))

print("opened")

local event, side, channel, replyChannel, message, distance
while true do
  event, side, channel, replyChannel, message, distance = os.pullEvent("modem_message")
  print("Received a reply: " .. tostring(message))
  if message == "Down" then

    redstone.setOutput("Right", true)
    os.sleep(1)
    redstone.setOutput("Right", false)

  elseif message == "Up" then

    redstone.setOutput("Top", true)
    os.sleep(1)
    redstone.setOutput("Top", false)

  end
end