mon = peripheral.wrap("right")
mon.clear()
mon.setTextScale(5)
wScreen, hScreen = mon.getSize()

text = {
	"A",
	"Y",
	"R",
	"O",
	"B",
	"O",
	"T"
}

while true do
	p.clear()
	for k,v in ipairs(text) do
		p.setCursorPos(wScreen,k+v)
		p.write(v)
		os.sleep(0.5)
		p.scroll(1)
	end
	os.sleep(0.5)
	for i=1,7 do
		p.scroll(1)
		os.sleep(0.5)
	end
end