Data commit

Task/Colour-bars-Display/FutureBasic/colour-bars-display.basic

@@ -0,0 +1,18 @@
+void local fn DoIt
+  long index, x = 0
+  CFArrayRef colors = @[fn ColorBlack,fn ColorRed,
+  fn ColorGreen,fn ColorBlue,fn ColorMagenta,
+  fn ColorCyan,fn ColorYellow,fn ColorWhite]
+
+  window 1, @"Color bars/Display", (0,0,480,270), NSWindowStyleMaskTitled
+
+  pen -1
+  for index = 0 to len(colors) - 1
+    rect fill (x,0,60,270), colors[index]
+    x += 60
+  next
+end fn
+
+fn DoIt
+
+HandleEvents