%%ASCII ART FROM : http://www.chris.com/ascii/joan/www.geocities.com/SoHo/7373/flag.html
setscreen("Graphics:400;400")
Text.ColourBack(grey)

proc drawFlag
    var ls : string := "              "
    var ps : string := "      "
    var stars : string := "::::::"
    put "" put "" put "" put "" put ""
    %%pole
    Text.Colour(white)
    put ls + "======;===========;()"
    for i: 1 .. 4
        put ls + ps ..
        for j: 1 .. 7
            if j mod 2 = 0 then
                Text.Colour(white)
            else
                Text.Colour(red)
            end if
            put "#" ..
        end for
        Text.Colour(blue)
        put stars
    end for
    for i: 1 .. 6
        put ls + ps ..
        for j: 1 .. 13
            if j mod 2 = 0 then
                Text.Colour(white)
            else
                Text.Colour(red)
            end if
            put "#" ..
        end for
        put ""
    end for
end drawFlag


loop
    drawFlag   
    View.Update
    delay(100)
    cls
end loop