kevin's

m = peripheral.wrap("top")
m.clear()
screenw,screenh = m.getSize()

local sonicList = {
[1] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ",".","-","-",".","_"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[2] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ","`","."," "," ","`","-","."," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[3] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ",".","-","'"," "," "," "," ","`","."," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[4] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ",".","'"," "," "," "," "," "," ","_",".",".",":",".","_"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[5] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ","`","."," "," ",".","-","-",".","'"," "," "," "," "," "," ","`","."," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[6] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ","_",".","'"," "," ","\\","."," "," "," "," "," "," ",".","-","-",".","\\"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[7] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ",".","'"," "," "," "," "," "," ","|"," "," "," "," "," ","|"," "," "," "," ","|"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[8] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ","`","-","-","."," "," "," "," "," ","|"," "," ",".","-","-","|"," "," "," "," ","D"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[9] = {" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ","`",";"," "," ","/","'","\\","/"," "," "," ","\\,","`","-","-","-","'","@"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[10] ={" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ",".","'"," "," ",".","'"," "," "," ","'",".","_"," ","`","-",".","_","_",".","'"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[11] ={" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ",".","'"," "," ",".","'"," "," "," "," "," "," ","_",".","`","-","-","-","'"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[12] ={" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ",".","'","-","-","'","'"," "," "," ","."," "," "," ","`","-",".",".","_","_",".","-","-","."," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[13] ={" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ","~","-","="," "," ","=","-","~","_","-"," "," "," ","`","-",".",".","_","_","_","("," "," ","=","=","=",";"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "},
[14] ={" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," ","~","-","="," "," ","-"," ","-"," "," "," "," ",".","'"," "," "," "," "," "," "," ","`","-","-","-","'"," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "}
}

function printCentered(str, ypos)
  m.setCursorPos((screenw/2 - #str/2) + 1, ypos)
  m.write(str)
end

m.setTextScale(1)

while true do
--m.setTextColour(512)
printCentered("Welcome To Kev's Base!",2)

--m.setTextColour(2)
printCentered("Gotta Go Fast - Sanic 8D!",4)

for i=1,#sonicList[1]-screenw do
    sleep(0.001)
    for key,value in pairs(sonicList) do
        for xpos=1,screenw do
            m.setCursorPos(xpos, 5+key)
            m.write(sonicList[key][xpos+i-1])
        end
    end
end

--[[
for i=#sonicList[1]-screenw,1,-1 do
    sleep(0.001)
    for j=#sonicList,1 do
        for k=#sonicList[1],1,-1 do
            for xpos=1,screenw do
                m.setCursorPos(xpos, 5+j)
                m.write(sonicList[j][xpos+i-1])
            end
        end
    end
end
]]--
sleep(1)
end