ANSINums

10 REM > ANSINums

20 REM List all 256 COLOUR numbers

30 REM Manually translate COLOUR numbers to ANSI colour sequences

40 :

50 PROCcolour(-1):REM Initialise

60 PROCcls

70 FOR A=0 TO 255:PROCcolour(A)

80 PRINT" ";LEFT$(STR$A+" ",3);

90 IF (A AND 15)=15:PRINT ELSE PRINT" ";

100 NEXT A

110 PROCcolour(128):PROCcolour(7):END

120 :

130 DEFPROCcls:PRINT'CHR$27;"[2J";CHR$27;"[1;1H";:ENDPROC

140 DEFPROCcolour(C):IF C<0:fgd=7:bgd=0:PRINT CHR$27;"[0m";:ENDPROC:REM Initialise

150 IF (C >= 192):border=C AND 15:ENDPROC :REM Set border colour

160 IF (C AND 128):bgd=C AND 15 ELSE fgd=C AND 15 :REM Set new colour

170 PRINT CHR$27;"[0";

180 IF (C AND 16):PRINT ";5"; :REM Flash

190 IF (C AND 32):PRINT ";4"; :REM Underline

200 IF (C AND 64):PRINT ";7"; :REM Inverse

210 PRINT ";";30+(fgd AND 7); :REM Foreground colour

220 IF (fgd AND 8):PRINT ";1"; :REM Bright foreground

230 PRINT ";";40+(bgd AND 7); :REM Background colour

240 IF (bgd AND 8):PRINT ";";100+(bgd AND 7); :REM Bright background

250 PRINT "m";

260 ENDPROC