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