computercraft horizontal scrolling text

--Settings
mon = peripheral.wrap("left") --Screen Side
mon.setTextScale(4)           --Text Size
mon.setTextColor(colors.blue) --Text Color
speed = 0.2                   --Scroll Speed (Seconds)
text = "This is some Text"    --Displayed Text
strtpos = string.len((text)*1.3+5)--Start position on screen

pos = strtpos
poslimit = 0 - strtpos

while true do
 mon.clear()
 mon.setCursorPos(pos, 1)
 mon.write(text)
 sleep(speed)
 if pos == poslimit then
  pos = strtpos
 else
  pos = pos - 1
 end
end