VT100/tests/TestAnsiSGR.mod

MODULE TestAnsiSGR;

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

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

  Ansi.SGR(Ansi.ResetA); WriteString("Reset "); WriteLn;
  Ansi.SGR(Ansi.BoldA); WriteString("Bold"); WriteLn;
  Ansi.SGRResetBoldDim;
  Ansi.SGR(Ansi.DimA); WriteString("Dim"); WriteLn;
  Ansi.SGRResetBoldDim;
  Ansi.SGR(Ansi.ItalicA); WriteString("Italic"); WriteLn;
  Ansi.SGRResetItalic;
  Ansi.SGR(Ansi.UnderlineA); WriteString("Underline"); WriteLn;
  Ansi.SGRResetUnderline;
  Ansi.SGR(Ansi.BlinkA); WriteString("Blink"); WriteLn;
  Ansi.SGRResetBlink;
  Ansi.SGR(Ansi.InverseA); WriteString("Inverse"); WriteLn;
  Ansi.SGRResetInverse;
  Ansi.SGR(Ansi.HiddenA); WriteString("Hidden"); WriteLn;
  Ansi.SGRResetHidden;
  Ansi.SGR(Ansi.StrikeA); WriteString("Strike"); WriteLn;
  Ansi.SGRResetStrike;

  Ansi.SetAttr(Ansi.BoldA, Ansi.Red, Ansi.Blue);
  WriteString("SetAttr bold red/blue"); WriteLn;
  Ansi.SGRReset;

  WriteString("--- end SGR ---"); WriteLn;
  Delay(500);
END TestAnsiSGR.