VT100/tests/TestVT100Keypad.mod

MODULE TestVT100Keypad;

(* Keypad modes *)

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

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

  VT100.SetAltKeypad;
  WriteString("SetAltKeypad (ESC=)"); WriteLn;
  Delay(500);
  VT100.SetNumKeypad;
  WriteString("SetNumKeypad (ESC>)"); WriteLn;

  WriteString("--- end Keypad ---"); WriteLn;
END TestVT100Keypad.