VT100/tests/TestVT100Modes.mod

MODULE TestVT100Modes;

(* LNM + DEC private modes ?1..?9 *)

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

BEGIN
  VT100.ClearScreen;
  VT100.CursorHome;
  WriteString("--- VT100 Modes test ---"); WriteLn;

  VT100.SetNewLine; WriteString("SetNewLine "); WriteLn;
  VT100.ResetNewLine; WriteString("ResetNewLine"); WriteLn;

  VT100.SetAppCursorKeys; WriteString("SetAppCursorKeys"); WriteLn;
  VT100.SetCursorKeys; WriteString("SetCursorKeys"); WriteLn;

  VT100.SetANSI; WriteString("SetANSI"); WriteLn;
  VT100.SetVT52; WriteString("SetVT52 (careful: terminal may switch!)"); WriteLn;
  VT100.SetANSI; (* back to ANSI *)

  VT100.Set132Columns; WriteString("Set132Columns"); WriteLn;
  Delay(300);
  VT100.Set80Columns; WriteString("Set80Columns"); WriteLn;

  VT100.SetSmoothScroll; WriteString("SetSmoothScroll"); WriteLn;
  VT100.SetJumpScroll; WriteString("SetJumpScroll"); WriteLn;

  VT100.SetReverseScreen; WriteString("SetReverseScreen"); WriteLn;
  Delay(300);
  VT100.SetNormalScreen; WriteString("SetNormalScreen"); WriteLn;

  VT100.SetRelativeOrigin; WriteString("SetRelativeOrigin"); WriteLn;
  VT100.SetAbsoluteOrigin; WriteString("SetAbsoluteOrigin"); WriteLn;

  VT100.SetAutoWrap; WriteString("SetAutoWrap"); WriteLn;
  VT100.ResetAutoWrap; WriteString("ResetAutoWrap"); WriteLn;
  VT100.SetAutoWrap; (* leave wrap on *)

  VT100.SetAutoRepeat; WriteString("SetAutoRepeat"); WriteLn;
  VT100.ResetAutoRepeat; WriteString("ResetAutoRepeat"); WriteLn;

  VT100.SetInterlace; WriteString("SetInterlace"); WriteLn;
  VT100.ResetInterlace; WriteString("ResetInterlace"); WriteLn;

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