graphsize 800,100
color blue
cls
rect 0,0,graphwidth,graphheight
color yellow
x=1
y=0
a=70
m=10
for i=1 to 11
gosub transf
next i
end
transf:
color blue
rect 0,0,800,100
x=x+a
color black
rect x+m*6,y+m*1,5,8*m
color yellow
poly {x,y+m*7,x+m*9,y+m*7,x+m*7,y+m*9,x+m*2,y+m*9,x,y+m*7}
color red
poly {x+m*6,y+m*2,x+m*6,y+m*6,x+m*1,y+m*6,x+m*6,y+m*2}
color green
poly {x+m*6,y+m*2,x+m*6,y+m*6,x+m*8,y+m*6,x+m*6,y+m*2}
pause(0.5)
return