local tText = {
"First Line",
"Second Line",
"All the lines you want",
"If they fit on the monitor"
}
-- The side the monitor is on
local sSide = "back"
-- The text scale
local nTextScale = 3

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.setTextScale(nTextScale)
printScroll(mon, tText, sx)