VT100/tests/TestVT52Erase.mod

MODULE TestVT52Erase;

(* VT52 erase + reverse feed *)

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

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

  WriteString("line + garbage garbage");
  VT52.CursorHome;
  VT52.CursorDown;
  VT52.CursorRight;
  VT52.CursorRight;
  VT52.CursorRight;
  VT52.CursorRight;
  VT52.ClearToEndOfLine;
  WriteLn;
  WriteString("ClearToEndOfLine done (ESC K)"); WriteLn;
  Delay(300);

  VT52.CursorPosition(10, 1);
  WriteString("filler below");
  VT52.CursorPosition(8, 1);
  VT52.ClearToEndOfScreen;
  VT52.CursorPosition(8, 1);
  WriteString("ClearToEndOfScreen done (ESC J)");
  WriteLn;
  Delay(300);

  VT52.ReverseFeed;
  WriteString("ReverseFeed (ESC I)"); WriteLn;

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