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