Mine

proc unitLabels (teamOn : boolean)
    var unitnames : array 1 .. 3 of string := init ("Inf.", "Tank", "Art.")
    Draw.Text ("Units", 125, 90, verdana, black)
    drawbox (65, 75, 95, 100, black)
    drawfill (66, 76, red, black)
    drawbox (65, 30, 95, 55, black)
    drawfill (66, 31, blue, black)
    if teamOn = false then
        drawbox (64, 29, 96, 56, white)
        drawbox (64, 74, 96, 101, green)
    else
        drawbox (64, 73, 96, 101, white)
        drawbox (64, 29, 96, 56, green)
    end if
    for u : 1 .. 3
        drawbox (130 + (u * 35), 55, 155 + (u * 35), 80, black)
        Draw.Text (unitnames (u), 130 + (u * 35), 40, smallfont, black)
    end for
end unitLabels

%This into teh main loop
        locate (2, 1)
        if teamOn = false then
            put "RED TEAM"..
        else
            put "BLUE TEAM"..
        end if
        unitLabels