mon = peripheral.wrap("back")
function lineBreak()
        x, y = mon.getCursorPos()
        if y ~= 1 then
                y = y + 1
        end
        mon.setCursorPos(1, y)
        width, height = mon.getSize()
        mon.write("+" .. string.rep("-", width - 2) .. "+")
end
function printString(sString)
        x, y = mon.getCursorPos()
        y = y + 1
        mon.setCursorPos(1, y)
        mon.write(sString)
end
function printStringCentre(sString)
        x, y = mon.getCursorPos()
        y = y + 1
        mon.setCursorPos(1, y)
        width, height = mon.getSize()
        nStringCentre = math.floor(string.len(sString) / 2)
        nMonitorCentre = math.floor(width / 2)
        x = math.floor(nMonitorCentre - nStringCentre)
        mon.setCursorPos(x, y)
        mon.write(sString)
end
function printStringRight(sString)
width, height = mon.getSize()
x, y = mon.getCursorPos()
y = y + 1
x = math.ceil(width - string.len(sString))
mon.setCursorPos(x, y)
mon.write(sString)
end
function scrollText(tStrings, nRate)
nRate = nRate or 5
if nRate < 0 then
  error("rate must be positive")
end
local nSleep = 1 / nRate

width, height = mon.getSize()
x, y = mon.getCursorPos()
        sText = ""
        for n = 1, #tStrings do
                sText = sText .. tostring(tStrings[n])
  sText = sText .. ""
        end
        sString = ""
        if width / string.len(sText) < 1 then
                nStringRepeat = 3
        else
                nStringRepeat = math.ceil(width / string.len(sText) * 3)
        end
for n = 1, nStringRepeat do
  sString = sString .. sText
end
while true do
  for n = 1, string.len(sText) do
   sDisplay = string.sub(sString, n, n + width - 1)
   mon.clearLine()
   mon.setCursorPos(1, y)
   mon.write(sDisplay)
   sleep(nSleep)
  end
end
end
mon.clear()
mon.setCursorPos(1, 1)
mon.setTextScale(5)
mon.setTextColor(colors.white)

printString("")

tScrollText = {}
tScrollText[1] = "I just did sex so hard to this girl. She was moaning and stuff and i did sex so hard and so good with her. She was all \"Please have good sex with me\" and I said back \"Yeah, I'm going to really sex you so great lady\" and she's like \"Thanks\". It was so good and so hot and we both loved making a sex on all the positions. At the end I was all \"Hey, I'm going to finish sex now\" and she said \"Yes, that would be nice if you finished so hard on that towel\". I said \"Yes\" and I finished so hard on the towel. And It was so hot.       "
x, y = mon.getCursorPos()
y = y - 1
mon.setCursorPos(1, y)
scrollText(tScrollText)