Minicraft posuvny text

--Nastaveni
mon = peripheral.wrap("back") --umisteni monitoru (left, right, front, back)
mon.setTextScale(4)           --Velikost textu
strtpos = 12                  --Startovaci pozice na obrazovce
speed = 0.2                   --rychlost posunu (v sekundach)
text = "Toto je zobrazovany text"    --Zobrazovany text

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