ANSIGrid

10 REM > ANSIGrid

20 REM Grid of ANSI foregrounds/backgrounds

30 :

40 CLS:PRINT CHR$27;"[0m";SPC27;"ANSI Colour Grid"

50 PRINT " Background"'"Fgd";

60 FOR bg%=0 TO 15:PRINT" ";~bg%;" ";:NEXT bg%:PRINT

70 FOR fg%=0 TO 15

80 PRINT CHR$27;"[0m ";~fg%;" ";

90 FOR bg%=0 TO 15

100 PROCm(fg%,bg%)

110 PRINT " ";~bg%;~fg%;" ";

120 REM PRINT STRING$(4,CHR$&B1);

130 NEXT bg%

140 PRINT CHR$27;"[0m"

150 NEXT fg%

160 END

170 :

180 DEFPROCm(fg%,bg%)

190 PRINT CHR$27;"[0";

200 IF (fg% AND 8):PRINT ";1"; :REM Bright foreground

210 PRINT ";3";fg% AND 7; :REM Foreground colour

220 PRINT ";4";bg% AND 7; :REM Background colour

230 IF bg%>7:PRINT ";10";bg% AND 7; :REM Bright background

240 PRINT "m";

250 ENDPROC