100 GRAPHICS LORES 16
110 SET PALETTE BLACK,RED,GREEN,BLUE,MAGENTA,CYAN,YELLOW,WHITE
120 FOR I=1 TO 7
130   CALL BAR(I)
140 NEXT
150 DEF BAR(C)
160   SET INK C
170   PLOT C*160,0;C*160,719;C*160+152,719;C*160+152,0;C*160,0
180   PLOT C*160+16,16,PAINT
190 END DEF