setscreen ("graphics:625;425") % This sets the output screen to new size
var font1 : int % for a font to place numbers on the grid
font1 := Font.New ("Arial:8:bold")
var num : string % to change the x or y (of loops) to a string which font needs

% to make the vertical lines of the grid
for x : 0 .. maxx by 25
    drawline (x, 0, x, maxy, 29)
    num := intstr (x) % changing x to a string
    Font.Draw (num, x - 6, 0, font1, red)
end for

% to make the horizontal lines of the grid
for y : 0 .. maxy by 25
    drawline (0, y, maxx, y, 29)
    num := intstr (y)% changing y to a string
    Font.Draw (num, 0, y - 6, font1, red)
end for

drawfillbox(25,225,625,425,104) %sky
drawfillbox(25,25,625,225,48) %grass

drawfillarc(300,225,150,155,0,180,31) %moon

% Draw.Star (25, 375, 75, 300, black) % STAR
% drawfillstar (25, 375, 75, 300, yellow) % STAR
% drawfillarc(300,225,150,155,0,180,44) %sun
%
%
%
% drawfilloval(250,370,90,40,31)  %cloud
% drawfilloval(150,365,80,50,31)
% drawfilloval(255,370,90,65,31)
% drawfilloval(290,370,90,40,31)



drawdot(137,300,255)


drawfillbox(131,150,144,250,185) %tree
drawfilloval(137,275,50,40,green)

drawfillbox(261,125,275,225,185)
drawfilloval(268,250,50,50,green)

drawfillbox(425,25,600,200,123)%house

drawline(512,325,600,200,255)%roof
drawline(512,325,425,200,255)
drawline(425,200,600,200,255)
drawfill(512,250,55,251)

drawfillbox(475,25,550,125,12)%door
drawfilloval(537,75,5,5,255)

drawfillmapleleaf(325,325,400,400,12) %mapleleaf
 
drawfillstar(475,200,550,250,14) %star