VT100/tests/TestVT100Erase.mod

MODULE TestVT100Erase;

(* Erase: line right/left/all, screen down/up/all *)

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

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

  WriteString("Line with ClearLineRight -> garbage garbage");
  VT100.CursorPosition(2, 20);
  VT100.ClearLineRight;
  WriteLn;

  WriteString("garbage garbage <- ClearLineLeft");
  VT100.CursorPosition(3, 20);
  VT100.ClearLineLeft;
  WriteLn;

  WriteString("This line will be cleared");
  VT100.CursorPosition(4, 1);
  VT100.ClearLine;
  VT100.CursorPosition(4, 1);
  WriteString("ClearLine done");
  WriteLn;
  Delay(500);

  VT100.CursorPosition(10, 1);
  WriteString("filler below");
  VT100.CursorPosition(8, 1);
  VT100.ClearScreenDown;
  VT100.CursorPosition(8, 1);
  WriteString("ClearScreenDown done");
  WriteLn;

  VT100.CursorPosition(12, 1);
  WriteString("filler");
  VT100.CursorPosition(12, 1);
  VT100.ClearScreenUp;
  VT100.CursorPosition(12, 1);
  WriteString("ClearScreenUp done");
  WriteLn;
  Delay(500);

  VT100.ClearScreen;
  VT100.CursorHome;
  WriteString("ClearScreen done"); WriteLn;

  WriteString("--- end Erase ---"); WriteLn;
END TestVT100Erase.