var ptext : string
var mx, my, mb : int
var font := Font.New ("courier:12")
setscreen ("offscreenonly")
ptext := "Santabruzer"
type loc :
    record
        x, y : int
        letter : string
    end record
var text : array 1 .. length (ptext) of loc
loop
    for decreasing i : length (ptext) .. 1
        mousewhere (mx, my, mb)
        text (i).x := mx + i * 20
        text (i).y := my + 20
        text (i).letter := ptext (i)
        for f : 1 .. 5
            Font.Draw (text (i).letter, text (i).x - f, text (i).y - (f div 2), font, 24 + f)
        end for
        Font.Draw (text (i).letter, text (i).x, text (i).y, font, 7)
        delay (5)
    end for
    View.Update
    cls
end loop