The task is to create 1 pixel wide coloured vertical pinstripes with a sufficient number of pinstripes to span the entire width of the graphics display.



The pinstripes should either follow the system palette sequence,   or a sequence that includes:

black,   red,   green,   blue,   magenta,   cyan,   yellow,   and   white:

   after filling the top quarter, switch to a wider 2 pixel wide vertical pinstripe pattern,
   halfway down the display, switch to 3 pixel wide vertical pinstripe,
   finally to a 4 pixels wide vertical pinstripe for the last quarter of the display.


See also

   display black and white 
   print colour


LET w = 640
LET h = 480
SET WINDOW 0, w, 0, h
 
LET h = h/4
LET y2 = h-1
 
FOR i = 1 TO 4
    LET col = 0
    LET y = (i-1)*h
    FOR x = 1 TO w STEP i
        IF remainder(col,15) = 0 THEN LET col = 0
        SET COLOR col
        BOX AREA x, x+i, y, y+h
        LET col = col+1
    NEXT x
NEXT i
END