% My current code
% Displays 1 - 9, finds where it's located on the screen, then saves this with a random name

% Declare variables
var maxX, minX, maxY, minY, nameNum : int
var name : string

procedure saveScreen
    % The main part

    % Reset the min and max variables
    maxX := 0
    maxY := 0
    minX := maxx
    minY := maxy

    % Look through every square
    for x : 0 .. maxx
        for y : 0 .. maxy
            if whatdotcolor (x, y) not= white then
                if y < minY then
                    minY := y
                elsif y > maxY then
                    maxY := y
                end if
                if x > maxX then
                    maxX := x
                elsif x < minX then
                    minX := x
                end if
            end if
        end for
    end for

    % Move the min and max values by five; makes it have a bit of a border
    if minX - 5 >= 0 then
        minX -= 5
    end if
    if maxX + 5 <= maxx then
        maxX += 5
    end if
    if minY - 5 >= 0 then
        minY -= 5
    end if
    if maxY - 5 <= 0 then
        maxY -= 5
    end if

    % Generate the random name
    nameNum := Rand.Int (1, maxint)
    name := "TuringPic" + intstr(nameNum) + ".bmp"

    % Finally, save the picture
    Pic.ScreenSave (minX, minY, maxX, maxY, name)

end saveScreen

% Show 1 .. 9, then save the text on the screen
for i : 1 .. 9
    cls
    Font.Draw(intstr(i), maxx div 2, maxy div 2, Font.New("Arial:20:bold"), black)
    saveScreen(intstr(i))
end for