graphsize 800,400
color white
rect 0,0,graphwidth,graphheight
a=50
b=10
c=90
for i=1 to 10
color blue
poly {a,10, a,30, b,70,b,50, a,10}
color red
poly{a,10,a,30,c,70,c,50,a,10}
color green
poly {a,30,c,70,a,110,b,70,a,30}
a=a+80
b=b+80
c=c+80
next i
color black
for i=0 to 120 step 10
line 0,i,800,i
next i
for i=0 to 800 step 10
line i,0,i,120
next i