VT100/tests/TestAnsiModes.mod

MODULE TestAnsiModes;

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

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

  Ansi.DosMode(3); WriteString("DosMode 3"); WriteLn;
  Delay(300);
  Ansi.DosModeReset(3); WriteString("DosModeReset 3"); WriteLn;
  Ansi.WrapOn; WriteString("WrapOn"); WriteLn;
  Ansi.WrapOff; WriteString("WrapOff"); WriteLn;
  Ansi.WrapOn;

  Ansi.CursorInvisible; WriteString("CursorInvisible"); WriteLn;
  Delay(300);
  Ansi.CursorVisible; WriteString("CursorVisible"); WriteLn;

  Ansi.ScreenSave; WriteString("ScreenSave"); WriteLn;
  Ansi.ScreenRestore; WriteString("ScreenRestore"); WriteLn;

  Ansi.AltBufferOn; WriteString("AltBufferOn"); WriteLn;
  Delay(300);
  Ansi.AltBufferOff; WriteString("AltBufferOff"); WriteLn;

  WriteString("--- end Modes ---"); WriteLn;
END TestAnsiModes.