loop
    var TAIL : int
    randint (TAIL, 10, 20)
    const DENSITY := 50
    const LENGTH := TAIL
    const BGCOLOUR := black
    const DTIME := 0
    var randi : int
    var row : array 1 .. DENSITY of int
    var col : array 1 .. DENSITY of int
    var chara : array 1 .. DENSITY of char
    var shades : array - 1 .. LENGTH - 1 of int
    for i : 0 .. LENGTH
        shades (i - 1) := RGB.AddColour (0, i / LENGTH, 0)
    end for
    for i : 1 .. DENSITY
        row (i) := Rand.Int (-LENGTH * 2, maxrow)
        col (i) := Rand.Int (1, maxcol)
        chara (i) := chr (Rand.Int (0, 255 - LENGTH))
    end for
    colourback (BGCOLOUR)
    drawfillbox (0, 0, maxx, maxy, BGCOLOUR)
    loop
        for i : 1 .. DENSITY
            for j : 0 .. LENGTH - 1
                row (i) += 1
                if row (i) > 0 and row (i) <= maxrow then
                    locate (row (i), col (i))
                    color (shades (j))
                    put chara (i) ..
                end if
            end for
            row (i) -= LENGTH - 1
            if row (i) > maxrow + LENGTH then
                row (i) := -LENGTH
                col (i) := Rand.Int (1, maxcol)
                chara (i) := chr (Rand.Int (0, 255 - LENGTH))
            end if
            delay (DTIME)
        end for
        View.Update
    end loop
end loop

var x, y : int
colourback (black)
cls
colour (green)
loop
    for a : 0 .. 255
        randint (x, 1, 80)
        randint (y, 1, 5)
        locate (y, x)
        put chr (a)
        randint (x, 1, 80)
        randint (y, 6, 11)
        locate (y, x)
        put chr (a)
        randint (x, 1, 80)
        randint (y, 12, 17)
        locate (y, x)
        put chr (a)
        randint (x, 1, 80)
        randint (y, 17, 22)
        locate (y, x)
        put chr (a)
        randint (x, 1, 80)
        randint (y, 22, 25)
        locate (y, x)
        put chr (a)
    end for
    delay (20)
end loop


%you can make like this
%loop
%    for a : 0 .. 255
%        randint (x, 1, 80)
%        randint (y, 1, 5)
%        locate (y, x)
%        put chr (a)
%        randint (x, 1, 80)
%        randint (y, 1, 25)
%        locate (y, x)
%        put chr (a)
%    end for
%    delay (20)
%end loop
% but it clumps to the left....