list items

s=peripheral.wrap("bottom")
tab={}
x=0
y=1
a=s.list(2)
while x<=3276800 do
if a[x]~=nil then
tab[y]=tostring(x).." : "..tostring(a[x])
y=y+1
end
x=x+1
end
y=0
while true do
x=1
term.clear()
while x<=13 do
term.setCursorPos(1,x)
term.write(tab[x+y])
x=x+1
end
event, key, isHeld = os.pullEvent("key")
if key==200 then y=y+1 end
if key==208 then y=y-1 end

end