ColorScroll

-- The text to show on the monitor
local tText = {
"First Line",
"Second Line",
"All the lines you want",
"If they fit on the monitor"
}

local sSide = "back"
local nTextScale = 3
local bColor = colors.black
local tColor = colors.red

local function printScroll(mon, t)
    local w, h = mon.getSize()
    local scroll = 1
    local maxLen
    for i, line in ipairs(t) do
        if not maxLen or #line > maxLen then
            maxLen = #line
        end
    end
    while true do
        mon.clear()
        for i, line in ipairs(t) do
            mon.setCursorPos(w - scroll, i)
            mon.write(line)
        end
        scroll = scroll + 1
        if scroll >= w + maxLen then
            scroll = 1
        end
        sleep(0.15)
    end
end

term.clear()
term.setCursorPos(1, 1)
print("Scrolling text on the monitor...")

local mon = peripheral.wrap(sSide)
mon.setBackgroundColor(bColor)
mon.setTextColor(tColor)
mon.setTextScale(nTextScale)
printScroll(mon, tText, sx)