new

10 mode(1)
20 for c=2 to 4
25 color c
30 for x=40 to 80
40 for y=10 to 30
50 set(x+c*5, y+c*5)
60 next y
70 next x
80 next c
90 goto 90
