Data commit

Task/Colour-bars-Display/Chipmunk-Basic/colour-bars-display.basic

@@ -0,0 +1,19 @@
+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