tablo

sleep(2)
local config = fs.open("/configt","r")
local mn = peripheral.wrap(config.readLine())
local thisst = config.readLine()
config.close()
local function sbc(clr)
  mn.setBackgroundColor(clr)
end
local function scp(x,y)
  mn.setCursorPos(x,y)
end
sbc(colors.white)
mn.clear()
local sx,sy = mn.getSize()
sbc(colors.red)
print("SY: "..sy)
for i=1,sy/4 do
  for g=1,sx do
    scp(g, i)
    mn.write(" ")
  end
end
scp(1,1)
mn.setBackgroundColor(colors.white)
mn.write(thisst)
sbc(colors.white)
local tablesl = fs.list("/tables")
print(tablesl[2])
function drawtbl(sel)
for i=1,#tablesl do
  local handle = fs.open("/tables/"..tablesl[i], "r")
  local lines = handle.readLine()
  local data = {}
  table.insert(data,lines)
  for lines in handle.readLine do
    table.insert(data,lines)
  end
  handle.close()
  local linec = #data + 1
  if sel == i then
  for h=1,sy do
    sbc(colors.white)
    if (h > sy/4) and (sy > h) then
      scp(1,h)
      mn.clearLine()
    end
  end
  local tttxt = "Poezd: "
  mn.setTextColor(colors.black)
  scp(sx/2-(tttxt:len()/3),sy/4+1)
  mn.setTextColor(colors.black)
  sbc(colors.red)
  scp(2,sy/4+2)
  mn.write("Poezd: "..tablesl[i])
  sbc(colors.white)
  for g=1,linec do
    scp(2,sy/4+2+g)
    if data[g] == thisst then
      sbc(colors.blue)
      mn.write(data[g].."(eta)")
    else
    mn.write(data[g])
    end
    sbc(colors.white)
  end
  end
end
end
drawtbl(1)
local bt = {}
function drawselector(page)
  scp(sx,sy)
  sbc(colors.red)
  mn.setTextColor(colors.white)
  for i=1,sy do
    scp(i,sy)
    mn.write(" ")
  end
  scp(sx/2,sy)
  mn.write(page)
  scp(sx/2-2,sy)
  mn.write("<")
  bt[1] = sx/2-2
  scp(sx/2+2,sy)
  mn.write(">")
  bt[2] = sx/2+2
  local ttxt = "("..page.."/"..#tablesl..")"
  scp(sx-ttxt:len()+1,sy)
  mn.write(ttxt)
end
drawselector("1")
local selection = 1
local slt = 1
local function touch()
  while true do
    local event, side
    event, side, xPos, yPos = os.pullEvent("monitor_touch")
    if yPos == sy then
      if xPos == bt[2] then
        print(">")
        if slt == #tablesl then
        else
          slt = slt + 1
        end
        drawtbl(slt)
        drawselector(tostring(slt))
      elseif xPos == bt[1] then
        print("<")
        if slt == 1 then sleep(0.05) print(slt)
        else
          slt = slt -1
        end
        drawtbl(slt)
        drawselector(tostring(slt))
      end
    end
  end
end
local function textUpdate()
  local txtt = "Raspisanija"
  local tmpa = mn.getTextColor()
  mn.setCursorPos(math.ceil((sx / 2) - (txtt:len() / 2)), (sy/4)/2)
  mn.setTextColor(colors.white)
  mn.write(txtt)
  mn.setTextColor(tmpa)
end
textUpdate()
sleep(1)
touch()