100 rem Colour bars/Display
110 graphics 0 : graphics cls
120 for i = 0 to 7
130   read r,g,b
140   graphics color r,g,b
150   for j = 0 to 79
160     x = i*80+j
170     graphics moveto x,0
180     graphics lineto x,399
190   next j
200 next i
500 data 0,0,0 : rem black
510 data 100,0,0 : rem red
520 data 0,100,0 : rem green
530 data 0,0,100 : rem blue
540 data 100,0,100 : rem magenta
550 data 0,100,100 : rem cyan
560 data 100,100,0 : rem yellow
570 data 100,100,100 : rem white