VT100/tests/TestVT52Ident.mod

MODULE TestVT52Ident;

(* VT52 identify: send only, no blocking read *)

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

BEGIN
  WriteString("--- VT52 Ident test ---"); WriteLn;

  VT52.Identify;
  WriteLn;
  WriteString("Identify sent (ESC Z)"); WriteLn;
  Delay(300);

  VT52.IdentifyResponse;
  WriteLn;
  WriteString("IdentifyResponse sent (ESC / Z)"); WriteLn;

  WriteString("--- end Ident ---"); WriteLn;
END TestVT52Ident.