var x, y : int
var c : string
colorback (black)
cls
loop
    y := (Rand.Int (1, maxcol))
    x := 4
    c := chr (Rand.Int (65, 90))
    loop
        c := chr (Rand.Int (65, 90))
        x += 1
        exit when x > maxrow
        color (10)
        Text.Locate (x, y)
        put c ..
        delay (20)
        color (3)
        Text.Locate (x - 1, y)
        put Str.Lower (c) ..
        delay (20)
        color (15)
        Text.Locate (x - 2, y)
        put Str.Lower (c) ..
        delay (20)
        color (grey)
        Text.Locate (x - 3, y)
        put chr (Rand.Int (11, 126)) ..
    end loop
end loop