View difference between Paste ID: FYQeHaFN and DXyqVr3Y

 os.loadAPI("json")
 local mn = peripheral.wrap("monitor_2")
 mn.setBackgroundColor(colors.white)
 mn.clear()
 local mnside = "monitor_2" -- monitor side
 str = http.get("http://worldtimeapi.org/api/timezone/Europe/Moscow").readAll()
 obj = json.decode(str)
 print(obj.datetime)
 value = obj.datetime
 ttt,h,min,sec,tt2 = string.match(value, "(%w*)T(%w+):(%w+):(%w+).(%w*)")
 local sx,sy = mn.getSize()
 local function clear()
   mn.clear()
 end
 local function sbc(clr)
   mn.setBackgroundColor(clr)
 end
 local function stc(clr)
   mn.setTextColor(clr)
 end
 local function scp(x, y)
   mn.setCursorPos(x,y)
 end
 local function sccp(y,txt)
   mn.setCursorPos(math.ceil((sx/2) - (txt:len() / 2)), y)
 end
 local function write(txt)
   mn.write(txt)
 end
 
 print("H "..h.." .MIN: "..min.." .SEC: "..sec)
 local tupiks = 3
 local timesl = {}
 for i=1,tupiks do
   local file = fs.open("/dates/"..i,"r")
   timesl[i] = file.readAll()
   file.close()
 end
 local tmpl = 0
 mn.setTextScale(1)
 -- gui
 local function drawmscr()
 for i=1,3 do
   for g=1,sx do
     scp(g,i)
     sbc(colors.lightBlue)
     write(" ")
   end
 end
 end
 local buttonsx5 = {}
 local buttonsy = {}
 local buttonback = {}
 buttonback[1] = 2
 buttonback[2] = sy-2
 local function parkbt(clr)
   scp(1,5)
   sbc(clr)
   write(" ")
   local txt = "Park"
   for i=1,txt:len() do
     scp(1+1,5)
     write(" ")
   end
   scp(1,5)
   write(txt)
   buttonsx5[1] = "1".."|"..tostring(txt:len())
   buttonsy[1] = 5
 end
 parkbt(colors.lightBlue)
 local scr = "start"
 local tpkbtx = {}
 local claimed = {}
 local tmpdd = 0
 local tdays = 0
 local function drawmain()
   mn.setBackgroundColor(colors.white)
   clear()
   parkbt(colors.lightBlue)
   drawmscr()
   for i=1,tupiks do
     scp(1,8+i)
     local file = fs.open("/dates/"..i,"r")
     tmpdd = file.readAll()
     file.close()
     local filec = fs.open("/days/"..i,"r")
     tdays = filec.readAll()
     write("T"..i..": "..tmpdd.."("..tdays..")")
     filec.close()
   end
 end
 drawmain()
 local function drawparkscr()
   mn.setBackgroundColor(colors.white)
   clear()
   drawmscr()
   parkbt(colors.lightBlue)
   for i=1,sx do
     scp(i,sy-2)
     sbc(colors.red)
     write(" ")
   end
   scp(2,sy-2)
   sbc(colors.red)
   write("Back")
   sbc(colors.white)
   scr = "park"
   scp(1,7)
   for i=1,tupiks do
     scp(1+(i*2),7)
     local file = fs.open("/dates/"..tostring(i),"r")
     if file then print("file") end
     if string.find(file.readLine(),"null") then
       sbc(colors.lime)
       claimed[i] = false
     else
       sbc(colors.green)
       claimed[i] = true
     end
     file.close()
     write(tostring(i))
     tpkbtx[i] = 1+(i*2)
   end
 end
 local bt = 0
 local selc = 0
  function getclick()
   while true do
   bt = 0
   event, side, xPos, yPos = os.pullEvent("monitor_touch")
   print(scr)
   if side == mnside then
     for i=1,#buttonsy do
       if yPos == buttonsy[i] then
         if yPos == 5 then
         for g=1,#buttonsx5 do
           local xs,xe = string.match(buttonsx5[g], "(%w+)|(%w+)")
           xs = tonumber(xs)
           xe = tonumber(xe)
           if (xs >= xPos) or (xPos <= xe) then
             if bt ~= 1 then
               bt = 1
               parkbt(colors.blue)
               drawparkscr()
             else
               parkbt(colors.lightBlue)
             end
           end
           print(bt)
         end
       end
       elseif (yPos == 7) and (scr == "park") then
         selc = 0
         for g=1,#tpkbtx do
           if xPos == tpkbtx[g] then
             selc = g
             print("tupik get: "..selc)
             if claimed[g] == false then
               local file = fs.open("/dates/"..g,"w")
               file.write(h..":"..min..":"..sec)
               file.close()
               claimed[g] = true
               drawmain()
             elseif claimed[g] == true then
               local file = fs.open("/dates/"..g,"w")
               file.write("null")
               file.close()
               claimed[g] = false
               drawmain()
             end
         end
       end
     elseif (yPos == buttonback[2]) and (scr == "park") then
       scr = "main"
       drawmain()
     end
   end
   end
   end
 end
 -- Timer
 local function counttime()
  while true do
  if sec == 59 then
    sec = 0
    min = min + 1
  end
  if min == 60 then
    min = 0
    h = h + 1
    sec = 0
  end
  if h == 24 then
    h = 0
    sec = 0
    min = 0
  end
  sleep(1)
  if (sec ~= 60) or (h ~= 24) or (min ~= 60) then
    sec = sec + 1
  end
  sbc(colors.lightBlue)
  sccp(2,h..";"..min..":"..sec)
  write(" ".. h..":"..min..":"..sec)
  for i=1,#timesl do
    if timesl[i] == h..":"..min..":"..sec then
      local file = fs.open("/days/"..i,"r")
      tmpl = tonumber(file.readAll())
      file.close()
      tmpl = tmpl + 1
      local file = fs.open("/days/"..i,"w")
      print("Overwriting "..i.." with "..tmpl)
      file.write(tostring(tmpl))
      drawmain()
    end
  end
  end
 end
 parallel.waitForAll(getclick,counttime)