View difference between Paste ID: AjFu19cd and SxAjppbd

 function exchange(list,y,page)
     w,h = term.getSize()
     y=y+(h-1)*(page-1)
     local l = list[y]
     if y<=#list then
     --/execute if entity @p[nbt={Inventory:[{id:"",Count:b}]}]
     invcheck = "execute unless entity @p[nbt={Inventory:[{id:\""..l[1].."\",Count:"..l[2].."b}]}] run "
     checkstr = "execute if entity @p[nbt={Inventory:[{id:\""..l[1].."\",Count:"..l[2].."b}]}] run "
     exec(checkstr.."give @p "..l[3].." "..l[4])
     exec(checkstr.."tellraw @p {\"text\":\"Success!\",\"color\":\"green\"}")
     exec(invcheck.."tellraw @p {\"text\":\"Items not found! Make sure specified amount of items is in a separate slot.\",\"color\":\"red\"}")
     exec(checkstr.."clear @p "..l[1].." "..l[2])
     end
 end
 function draw(list,page)
     term.redirect(peripheral.wrap("top"))
     peripheral.wrap("top").setTextScale(0.5)
     term.clear()
     term.setCursorPos(1,1)
     w,h = term.getSize()
     pages = 1
     if h>#list then
         pages = math.floor(#list/(h-1))
     end
     for i=1+(h-1)*(page-1),(h-1)*page do
         if i>#list then break end
         print(list[i][2].." "..list[i][1].." -> "..list[i][4].." "..list[i][3])
     end
     term.setCursorPos(1,h)
     write("<<<")
     term.setCursorPos(math.floor(w/2),h)
     write(page)
     term.setCursorPos(w-2,h)
     write(">>>")
 end
 --------------+
 page = 1   --+#
 table = {} --+#
 --------------+
 table[1] = {"minecraft:polished_diorite",1,"minecraft:stone",6}
 table[2] = {"minecraft:stone",2,"minecraft:dirt",1}
 ---------------
 draw(table,page)
 while true do
     name,side,x,y = os.pullEvent("monitor_touch")
     w,h = term.getSize()
     if y<h then
         exchange(table,y,page)
     else
         if x<w/2 then
             page=page-1
             if page<1 then
                 page = math.ceil(#table/(h-1))
             end
         else
             page=page+1
             if page>math.ceil(#table/(h-1)) then
                 page = 1
             end
         end
     end
     draw(table,page)
 end