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)     
    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