ok?      sequence             occurrences    effect/colour

yes     <ESC>[0m                    2       normal text (reset to defaults)

yes     <ESC>[32m                   3       green

yes     <ESC>[36m                  23       cyan

NO      <ESC>[38;2;128;128;128m     2       bright black (grey)

NO      <ESC>[38;2;192;192;0m       2       yellow

NO      <ESC>[38;2;255;128;0m       4       orange

NO      <ESC>[38;2;255;128;128m    29       pink

yes     <ESC>[4m                    2       dim foreground

NO!!!   <ESC>[97m                 150       bright white (aixterm standard)

                'm':begin                             // set up character colours and attributes
                      if S='' then S:='0';
                      n:=PC(S);
//                    ShowMessage(IntToStr(n)+'  |'+S+'|');
                      if n=-1 then fail else
                      begin
                        for I:=1 to n do
                        begin
                          J:= Pn(S,I);
                          case J of 0:begin
//                                      ShowMessage('reset colours and attributes');
                                        DimText:=false;
                                        InvText:=false;
                                        TxtStyle:=[];
                                        FGcolour:=FGdefault;
                                        BGcolour:=BGdefault
                                      end;
                                    1:TxtStyle:= TxtStyle+[fsBold];       // bold
                                    2:DimText:=true;                      // dim FGcolour
                                    4:TxtStyle:=TxtStyle+[fsUnderline];   // underline
                                    5:begin end;                          // (not supported)
                                    7:InvText:=true;                      // reverse video
                               30..37:FGcolour:=J-30;
                                   39:FGcolour:=FGdefault;
                               40..47:BGcolour:=J-40;
                                   49:BGcolour:=BGdefault
                          end  { of case }
                        end;
                        pass
                      end
                    end;

//======================================================================================
//      Attribute               VT100 Code      VT 100 Colour       LCD Screen Colour
//======================================================================================
#define VT100_C_NORMAL          "\033[30m"      // Black            Foreground Colour
#define VT100_C_COMMENT         "\033[33m"      // Yellow               Yellow
#define VT100_C_KEYWORD         "\033[36m"      // Cyan                 Cyan
#define VT100_C_QUOTE           "\033[32m"      // Green                Green
#define VT100_C_NUMBER          "\033[31m"      // Red                  Red
#define VT100_C_LINE            "\033[37m"      // White                Grey
#define VT100_C_STATUS          "\033[30m"      // Black                Brown
#define VT100_C_ERROR           "\033[31m"      // Red                  Red

Print Chr$(27) + "[33m"
Print "Hello"
Print Chr$(27) + "[2m"
Print "Hello"

Print Chr$(27) + "[33m"
Print "Hello"
Print Chr$(27) + "[1m"
Print "Hello"