VT100/tests/TestVT100Size.mod

MODULE TestVT100Size;

(* Double-size lines + alignment *)

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

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

  VT100.DoubleHeightTop;
  WriteString("DoubleHeightTop"); WriteLn;
  VT100.DoubleHeightBottom;
  WriteString("DoubleHeightBottom"); WriteLn;
  VT100.SingleWidth;
  WriteString("SingleWidth"); WriteLn;
  VT100.DoubleWidth;
  WriteString("DoubleWidth"); WriteLn;
  Delay(1000);

  VT100.ClearScreen;
  VT100.CursorHome;
  VT100.SingleWidth;
  WriteString("back to single width"); WriteLn;

  (* ScreenAlign fills screen with E - destructive, keep last *)
  VT100.ScreenAlign;
  Delay(1000);
  VT100.ClearScreen;
  VT100.CursorHome;
  WriteString("ScreenAlign done + cleared"); WriteLn;

  WriteString("--- end Size ---"); WriteLn;
END TestVT100Size.