var picID : int
picID := Pic.FileNew ("picture.bmp")

var newPicID : int
newPicID := Pic.Scale (picID, 200, 200)

Pic.Draw (newPicID, 0, 0, picCopy)

var colours : array 1 .. 200, 1 .. 200 of int

for x : 1 .. 200
    for y : 1 .. 200
        colours (x, y) := whatdotcolour (x, y)
    end for
end for

cls

for x : 1 .. 100
    for y : 1 .. 100
        drawdot (x, y, colours (x, y))
    end for
end for
for x : 101 .. 200
    for y : 101 .. 200
        drawdot (x, y, colours (x, y))
    end for
end for
for x : 1 .. 100
    for y : 101 .. 200
        drawdot (x, y, colours (x, y) div 2)
    end for
end for
for x : 101 .. 200
    for y : 1 .. 100
        drawdot (x, y, colours (x, y) div 2)
    end for
end for