Help with elevator program

local side = "left"
local direction = {
	up = colors.green,
	down = colors.red
}
local floors = {
	[1] = {
		call = colors.black,
		here = colors.white
	},
	[2] = {
		call = colors.gray,
		here = colors.lightGray
	},
	[3] = {
		call = colors.blue,
		here = colors.cyan
	}
}

local function waitForChange()
	os.pullEvent("redstone")
end

while true do
	waitForChange()

	local targetFloor, currentFloor
	-- This iterates through the floor objects defined above
	-- and checks if any of their call lines is asserted.
	for ix = 1, #floors do
		if rs.testBundledInput(side, floors[ix].call) then
			targetFloor = ix
		end
		if rs.testBundledInput(side, floors[ix].here) then
			currentFloor = ix
		end
	end

	-- It's guaranteed that currentFloor is set, because
	-- at this point the elevator must be on a floor. Unless
	-- the program somehow crashed while the elevator was going,
	-- in which case you'd have to fix the elevator anyway.
	-- It's not guaranteed that targetFloor ever gets set.
	-- In case it doesn't, we just skip over the move code.
	if targetFloor then
		print("Called from floor " .. targetFloor .. ", currently on " .. currentFloor)
		if targetFloor < currentFloor then
			print("  Going down")
			rs.setBundledOutput(side, direction.down)
		elseif targetFloor > currentFloor then
			print("  Going up")
			rs.setBundledOutput(side, direction.up)
		else
			print("  Going nowhere")
		end

		while true do
			waitForChange()
			if rs.testBundledInput(side, floors[targetFloor].here) then
				break
			end
		end

		rs.setBundledOutput(side, 0)
	end
end

os.loadAPI("button")
local m = peripheral.wrap("monitor_13")
m.clear()
function fillTable()
  button.setTable("1", flr1, 2,4,2,4)
  button.setTable("2", flr2, 7,9,2,4)
  button.setTable("3", flr3, 12,14,2,4)
  button.setTable("4", flr4, 2,4,7,9)
  button.setTable("5", flr5, 7,9,7,9)
  button.setTable("B", bsemnt, 12,14,7,9)
  button.screen()
end
function getClick()
  event,side,x,y = os.pullEvent("monitor_touch")
  button.checkxy(x,y)
end
function flr1()
  button.flash("1")
  sleep(1)
  while  rs.testBundledInput("top", colors.white) ~= true do
    rs.setBundledOutput("top", colors.red)
  end
 
  if rs.testBundledInput("top", colors.white) == true then
    rs.setBundledOutput("top", 0)
  end
end
function flr2()
  button.flash("2")
  sleep(1)
 
end
function flr3()
  button.flash("3")
  sleep(1)
end
function flr4()
  button.flash("4")
end
function flr5()
  button.flash("5")
end
function bsemnt()
  button.flash("B")
end
fillTable()
while true do
  getClick()
end

local mon = peripheral.wrap("monitor_13")
mon.setTextScale(0.5)
mon.setTextColor(colors.white)
local button={}
mon.setBackgroundColor(colors.black)
function clearTable()
   button = {}
   mon.clear()
end
			  
function setTable(name, func, xmin, xmax, ymin, ymax)
   button[name] = {}
   button[name]["func"] = func
   button[name]["active"] = false
   button[name]["xmin"] = xmin
   button[name]["ymin"] = ymin
   button[name]["xmax"] = xmax
   button[name]["ymax"] = ymax
end
function funcName()
   print("You clicked buttonText")
end
	   
function fillTable()
   setTable("ButtonText", funcName, 5, 25, 4, 8)
end	
function fill(text, color, bData)
   mon.setBackgroundColor(color)
   local yspot = math.floor((bData["ymin"] + bData["ymax"]) /2)
   local xspot = math.floor((bData["xmax"] - bData["xmin"] - string.len(text)) /2) +1
   for j = bData["ymin"], bData["ymax"] do
	  mon.setCursorPos(bData["xmin"], j)
	  if j == yspot then
		 for k = 0, bData["xmax"] - bData["xmin"] - string.len(text) +1 do
		    if k == xspot then
			   mon.write(text)
		    else
			   mon.write(" ")
		    end
		 end
	  else
		 for i = bData["xmin"], bData["xmax"] do
		    mon.write(" ")
		 end
	  end
   end
   mon.setBackgroundColor(colors.black)
end
	
function screen()
   local currColor
   for name,data in pairs(button) do
	  local on = data["active"]
	  if on == true then currColor = colors.blue else currColor = colors.cyan end
	  fill(name, currColor, data)
   end
end
function toggleButton(name)
   button[name]["active"] = not button[name]["active"]
   screen()
end	
function flash(name)
   toggleButton(name)
   screen()
   sleep(0.25)
   toggleButton(name)
   screen()
end
											
function checkxy(x, y)
   for name, data in pairs(button) do
	  if y>=data["ymin"] and  y <= data["ymax"] then
		 if x>=data["xmin"] and x<= data["xmax"] then
		    data["func"]()
		    return true
		    --data["active"] = not data["active"]
		    --print(name)
		 end
	  end
   end
   return false
end
	
function heading(text)
   w, h = mon.getSize()
   mon.setCursorPos((w-string.len(text))/2+1, 1)
   mon.write(text)
end
	
function label(w, h, text)
   mon.setCursorPos(w, h)
   mon.write(text)
end