Scroll Function

-- Scroll Stuff
local w,h = term.getSize()
scrollpos = 1
local data = {
"derp","pie","stupid","people","I","like","pancakes","derpy","man","stoops","over","to","grab","his","hat","from","the","watered","street","and","I","like","him","for","it","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"
}
local greatestpos = 1
for i = 1,#data do
    local ref = data[i]
    if #ref > greatestpos then
        greatestpos = #ref
    end
end

pospossible = #data-(h-1)
if pospossible < 1 then
    pospossible = 1
end

local function buffer()
    term.setCursorPos(1,1)
    for i = scrollpos,#data do
        if i > #data then break end
        term.write(data[i])
        for i = 1,greatestpos do
            term.write(" ")
        end
        local x,y = term.getCursorPos()
        y = y+1
        term.setCursorPos(1,y)
        if y > 19 then break end
    end
end
buffer()
while true do
    local e, p1, p2, p3 = os.pullEvent()
    if e == "char" and p1 == "q" then
        break
    elseif e == "mouse_scroll" then
        if p1 == 1 and scrollpos < pospossible then
            scrollpos = scrollpos+1
        elseif p1 == -1 and scrollpos > 1 then
            scrollpos = scrollpos-1
        end
        buffer()
    end
end

shell.run("clear")