>>1が返事しないと、こういうのも出しちゃうぞ。

PC6001で、
100 screen 3,2,2
110 for i=1 to 10
120 color ,,2
130 color ,,1
140 next i