VT100/tests/TestVT100Reports.mod

MODULE TestVT100Reports;

(* DSR / DA / RIS. Sends requests only, no blocking read. *)

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

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

  VT100.RequestDeviceStatus;
  WriteLn;
  WriteString("RequestDeviceStatus sent (ESC[5n)"); WriteLn;
  Delay(300);

  VT100.RequestCursorPosition;
  WriteLn;
  WriteString("RequestCursorPosition sent (ESC[6n)"); WriteLn;
  Delay(300);

  VT100.Identify;
  WriteLn;
  WriteString("Identify sent (ESC[c)"); WriteLn;
  Delay(300);

  VT100.Identify2;
  WriteLn;
  WriteString("Identify2 sent (ESC[0c)"); WriteLn;
  Delay(300);

  WriteString("ResetTerminal NOT executed here (would reset)."); WriteLn;

  WriteString("--- end Reports ---"); WriteLn;
END TestVT100Reports.