View.Set ("graphics:max,max")
var mx, my, mb : int

%Front of the house
drawline (300, 300, 500, 300, blue)
drawline (300, 300, 300, 430, blue)
drawline (300, 430, 500, 430, blue)
drawline (500, 430, 500, 300, blue)
%door
drawfillbox (350, 300, 450, 400, brown)
drawfilloval (360, 350, 10, 10, yellow)

% front of roof
drawline (280, 430, 500, 430, black)
drawline (300, 300, 500, 300, black)
drawline (400, 500, 280, 430, black)
drawline (400, 500, 500, 430, black)

%side of house
drawline (500, 300, 550, 325, blue)
drawline (550, 455, 550, 325, blue)
drawline (500, 430, 550, 455, blue)

%side of roof
drawline (480, 515, 550, 455, black)
drawline (480, 515, 400, 500, black)