var gridy, gridx : int := 30
% Grid.
for counter : 1 .. 18
    gridy := gridy + 20
    Draw.Line (30, gridy, 230, gridy, 3)
end for
for counter : 1 .. 10
    gridx := gridx + 20
    Draw.Line (gridx, 30, gridx, 390, 3)
end for

proc SetUpBlock (var block : array 0 .. 3, 0 .. 3 of int)
    /*
     . []
     . [][][]   0
     .
     . [][][]
     . []       1
     .
     . [][]
     . [][]     2
     .
     . [][][]
     .   []     3
     .
     . [][][][] 4
     .
     . [][]
     .   [][]   5
     .
     .   [][]
     . [][]     6
     .
     .
     */
    for x : 0 .. 3
        for y : 0 .. 3
            block (x, y) := 0
        end for
    end for

    var whatblock : int := Rand.Int (0, 6)
    case whatblock of
        label 0 :
            block (0, 3) := 1
            block (0, 2) := 1
            block (1, 2) := 1
            block (2, 2) := 1
        label 1 :
            block (0, 1) := 1
            block (0, 2) := 1
            block (1, 2) := 1
            block (2, 2) := 1
        label 2 :
            block (0, 3) := 1
            block (1, 3) := 1
            block (0, 2) := 1
            block (1, 2) := 1
        label 3 :
            block (0, 3) := 1
            block (1, 3) := 1
            block (2, 3) := 1
            block (1, 2) := 1
        label 4 :
            block (0, 3) := 1
            block (1, 3) := 1
            block (2, 3) := 1
            block (3, 3) := 1
        label 5 :
            block (0, 3) := 1
            block (1, 3) := 1
            block (1, 2) := 1
            block (2, 2) := 1
        label 6 :
            block (0, 2) := 1
            block (1, 2) := 1
            block (1, 3) := 1
            block (2, 3) := 1
    end case

end SetUpBlock

    for counter : 1 .. 4
        for counter2 : 1 .. 4
            if block (counter, counter2) = 1 then
                Draw.Fill (31 + (20 * counter), 369 - (20 * counter2), 3, 3)
            end if
        end for
    end for