Elevator Floor Call Computer

local FloorNumber

function saveFloorNum(FloorNumber)

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

end

function readFloorNum()

  local FloorNumber

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

  return FloorNumber

end

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("Call Floor " .. FloorNumber)

print("opened")

while true do
  os.pullEvent("redstone")
  if rs.getInput("Right") then
    print("Sending Message")
    openModem.transmit(6968, 0, FloorNumber)
  end
end