C=66
a=0
ticker=0
function printchar(C, x,y)
    if x<-8 or x>39 then return end
    for j=0,7 do
        line=peek(2560+C*8+j)
        for i=0,7 do
            X=x+7-i
            ink(1+(flr(X)+j+flr(a))%15)
            if X>0 and X<40 then
                s=10+sin(a+(X)*0.1)*5
                if line & 1 == 1 then print(chr(233),X,y+j+s) end
            end
            line = line >> 1
        end
    end
end

function update()
    cls()
    message="HOLA JAILERS"
    for n=0,#message-1 do
        printchar(ascii(message,n),n*8-flr(a*4)%(#message*8),0)
    end
    a=a+0.1
end