10 REM > ANSINums
   20 REM List all 256 COLOUR numbers
   30 REM Manually translate COLOUR numbers to ANSI colour sequences
   40 :
   50 FOR A=0 TO 255:PROCcolour(A)
   60   PRINT" ";LEFT$(STR$A+"  ",3);
   70   IF (A AND 15)=15:PRINT ELSE PRINT" ";
   80 NEXT A
   90 PROCcolour(128):PROCcolour(7):END
  100 DEFPROCcls:PRINT'CHR$27;"[2J";CHR$27;"[1;1H";:ENDPROC
  110 DEFPROCcolour(A):PRINTCHR$27;"[0;";
  120 IF (A AND 8) :PRINT"1;";  :REM bright
  130 IF (A AND 16):PRINT"5;";  :REM flash
  140 IF (A AND 32):PRINT"4;";  :REM underline
  150 IF (A AND 64):PRINT"7;";  :REM invert
  160 IF (A AND 128):PRINT;40+(A AND 7); ELSE PRINT;30+(A AND 7);:REM colour
  170 PRINT"m";:ENDPROC

Download ANSINums

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.