RosettaCodeData/Task/Pinstripe-Display/FutureBasic/pinstripe-display.basic

window 1, @"Pinstripe/Display", (0,0,800,484), NSWindowStyleMaskTitled

double x, y = 0, w
for w = 1 to 4
  pen w
  for x = w * 1.5 to 800 step w * 2
    line x, y to x, y + 121
  next
  y += 121
next

HandleEvents