var colorr : int
var coloor : int
put "What color do you want it from the outside ? "
get colorr
if colorr = 6 then
    %House
    drawfillbox (0, 0, 640, 90, green)     %grass
    drawfillbox (0, 90, 640, 400, brightblue)     %sky
        %roof line's
    drawline (250, 170, 370, 260, 1)
    drawline (450, 170, 370, 260, 1)
    drawline (250, 170, 450, 170, 1)
    drawfill (370, 180, 40, 1)
    drawline (500, 180, 370, 260, 1)
    drawline (450, 170, 500, 180, 1)
    drawfill (470, 190, 40, 1)
    drawline (450, 170, 370, 260, black)
    %house or building base of front and back
    drawfillbox (250, 40, 450, 170, colorr)
    drawline (450, 40, 500, 90, colorr)
    drawline (500, 90, 500, 180, colorr)
    drawline (500, 180, 450, 170, colorr)
    drawfill (470, 130, colorr, colorr)
    drawline (450, 40, 450, 170, black)
    end if
    get coloor
    if coloor = 7 then
    %house or building base of front and back
    drawfillbox (250, 40, 450, 170, coloor)
    drawline (450, 40, 500, 90, coloor)
    drawline (500, 90, 500, 180, coloor)
    drawline (500, 180, 450, 170, coloor)
    drawfill (470, 130, coloor, coloor)
    drawline (450, 40, 450, 170, black)
    end if
%Sunset
var x, y, x1, y1 : int
x := 20
y := 150
x1 := 370
y1 := 210
loop
    drawfilloval (x, y, 30, 30, yellow)
    delay (500)
    drawfilloval (x, y, 30, 30, brightblue)
    x := x + 7
    y := y + 5
    exit when x > 370
    exit when y >400
end loop
loop
    drawfilloval (x, y, 30, 30, yellow)
    delay (500)
    drawfilloval (x, y, 30, 30, brightblue)
    x := x + 7
    y := y - 5
    exit when x1 > 640
end loop