|
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
|