VT100/tests/TestVT52Mode.mod

MODULE TestVT52Mode;

(* VT52 modes + charsets: EnterAnsi, keypads, graphics/ascii *)

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

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

  VT52.SetAltKeypad;
  WriteString("SetAltKeypad (ESC=)"); WriteLn;
  Delay(300);
  VT52.SetNumKeypad;
  WriteString("SetNumKeypad (ESC>)"); WriteLn;

  VT52.SetGraphics;
  WriteString("SetGraphics (ESC F)"); WriteLn;
  Delay(300);
  VT52.SetAscii;
  WriteString("SetAscii (ESC G)"); WriteLn;

  (* EnterAnsi switches terminal out of VT52 - keep last *)
  VT52.EnterAnsi;
  WriteString("EnterAnsi (ESC <)"); WriteLn;

  WriteString("--- end Mode ---"); WriteLn;
END TestVT52Mode.