local C1 = {}

for _, name in pairs(peripheral.getNames()) do
  if peripheral.getType(name) == "crystal" then --# change "monitor" to your peripheral type.
    table.insert(myPeripherals, name)
  end
end

local m = peripheral.wrap("left")
local itemList = { }        --# place this at or near the beginning of your code

local function drawScreen()
  m.setBackgroundColor(colors.blue)
  m.clear()
  local tmpY = 1
  m.setCursorPos(1,tmpY)
  for i = 1, #itemList do
    m.write(itemList[i].name .. ": " .. tostring(itemList[i].qty))
    tmpY = tmpY + 1
    m.setCursorPos(1,tmpY)
  end
end

function CheckItems()
  itemList = { }
  local InvSize = C1.getInventorySize()
  for CurrSlot = 1, InvSize-1 do
    local slot = C1.getStackInSlot(CurrSlot)
    if slot ~= nil then -- Slots with stuff in them
      local match = false
      if #itemList == 0 then --# if there are no entries yet, add the first one
        itemList[1] = { name = slot.name }
        itemList[1].slots = { }
        itemList[1].slots[1] = { slot = CurrSlot }
        itemList[1].slots[1].qty = slot.qty
        itemList[1].qty = slot.qty
      else
        for i = 1, #itemList do
          if slot.name == itemList[i].name then
            itemList[i].slots[#itemList[i].slots+1] = { }
            itemList[i].slots[#itemList[i].slots] = { slot = CurrSlot }
            itemList[i].slots[#itemList[i].slots].qty = slot.qty
            itemList[i].qty = itemList[i].qty + slot.qty
            match = true
            break
          end
        end
        if not match then
          itemList[#itemList+1] = { name = slot.name }
          itemList[#itemList].slots = { }
          itemList[#itemList].slots[1] = { slot = CurrSlot }
          itemList[#itemList].slots[1].qty = slot.qty
          itemList[#itemList].qty = slot.qty
        end
      end
    end
  end
end

while true do
CheckItems()
drawScreen()
end