September 2017 Update

Task/Colour-bars-Display/XPL0/colour-bars-display-1.xpl0

@@ -1,12 +0,0 @@
-include c:\cxpl\codes;       \intrinsic code declarations
-int W, X0, X1, Y, C;
-[SetVid($13);           \320x200x8 graphics
-W:= 320/8;              \width of color bar (pixels)
-for C:= 0 to 8-1 do
-        [X0:= W*C; X1:= X0+W-1;
-        for Y:= 0 to 200-1 do
-                [Move(X0, Y); Line(X1, Y, C)];
-        ];
-C:= ChIn(1);            \wait for keystroke
-SetVid(3);              \restore normal text mode
-]

Task/Colour-bars-Display/XPL0/colour-bars-display-2.xpl0

@@ -1,8 +0,0 @@
-10 REM The ZX Spectrum display is 32 columns wide, so we have 8 columns of 4 spaces
-20 FOR r=0 TO 20: REM There are 21 rows
-30 FOR c=0 TO 7: REM We use the native colour sequence here
-40 PAPER c: REM set the background colour for the spaces to be printed
-50 PRINT "    ";: REM four spaces, the semicolon prevents newline
-60 NEXT c
-70 REM at this point the cursor has wrapped, so we don't need a newline
-80 NEXT r