VT100/tests/TestAnsiColor.mod

MODULE TestAnsiColor;

IMPORT Ansi;
FROM STextIO IMPORT WriteString, WriteLn;
FROM Delay IMPORT Delay;

BEGIN
  Ansi.EraseScreen;
  Ansi.Home;
  WriteString("--- ANSI Color test ---"); WriteLn;

  Ansi.FG(Ansi.Red); WriteString("Red FG"); WriteLn;
  Ansi.FG(Ansi.Default);
  Ansi.BG(Ansi.Blue); WriteString("Blue BG"); WriteLn;
  Ansi.BG(Ansi.Default);

  Ansi.FG(Ansi.BrightGreen); WriteString("BrightGreen"); WriteLn;
  Ansi.FG(Ansi.Default);
  Ansi.BG(Ansi.BrightMagenta); WriteString("BrightMagenta BG"); WriteLn;
  Ansi.BG(Ansi.Default);

  Ansi.FG256(200); WriteString("FG256 200"); WriteLn;
  Ansi.FG(Ansi.Default);
  Ansi.BG256(100); WriteString("BG256 100"); WriteLn;
  Ansi.BG(Ansi.Default);

  Ansi.FGRGB(255, 0, 128); WriteString("RGB FG 255,0,128"); WriteLn;
  Ansi.FG(Ansi.Default);
  Ansi.BGRGB(0, 255, 64); WriteString("RGB BG 0,255,64"); WriteLn;
  Ansi.BG(Ansi.Default);

  Ansi.SGRReset;
  WriteString("--- end Color ---"); WriteLn;
  Delay(500);
END TestAnsiColor.