Scrolling text.

local message = "Random test Message -- "
local tBuffer = {}
local termX = term.getSize()
local place = 1
local function addBuffer()
    table.insert(tBuffer,string.sub(message,place,place))
    place = place == #message and 1 or place + 1
end
repeat addBuffer()
until #tBuffer == termX
while true do
    term.setCursorPos(1,1)
    term.write(table.concat(tBuffer,""))
    table.remove(tBuffer,1)
    addBuffer()
    sleep(0.5)
end