10 REM > ColourNums
   20 REM List all 256 COLOUR numbers
   30 :
   40 FOR A=0 TO 255:COLOUR A
   50   PRINT" ";LEFT$(STR$A+"  ",3);
   60   IF (A AND 15)=15:PRINT ELSE PRINT" ";
   70 NEXT A
   80 COLOUR 128:COLOUR 7