VT100/tests/TestVT100SGR.mod

MODULE TestVT100SGR;

(* SGR attributes: Reset, Bold, Underline, Blink, Reverse *)

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

BEGIN
  VT100.ClearScreen;
  VT100.CursorHome;

  WriteString("--- VT100 SGR test ---"); WriteLn;
  Delay(500);

  VT100.ResetAttributes;
  WriteString("Normal"); WriteLn;

  VT100.Bold;
  WriteString("Bold"); WriteLn;
  VT100.ResetAttributes;

  VT100.Underline;
  WriteString("Underline"); WriteLn;
  VT100.ResetAttributes;

  VT100.Blink;
  WriteString("Blink"); WriteLn;
  VT100.ResetAttributes;

  VT100.Reverse;
  WriteString("Reverse"); WriteLn;
  VT100.ResetAttributes;

  WriteString("--- end SGR ---"); WriteLn;
END TestVT100SGR.