VT100/tests/TestVT52Cursor.mod

MODULE TestVT52Cursor;

(* VT52 cursor: Up/Down/Right/Left/Home/Position *)

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

BEGIN
  VT52.CursorHome;
  WriteString("--- VT52 Cursor test ---"); WriteLn;
  Delay(300);

  VT52.CursorPosition(5, 10);
  WriteString("at (5,10)");

  VT52.CursorHome;
  WriteString("Home+");
  VT52.CursorRight;
  WriteString("R+");
  VT52.CursorDown;
  WriteString("D+");
  VT52.CursorLeft;
  WriteString("L+");
  VT52.CursorUp;
  WriteString("U");
  WriteLn;

  VT52.CursorPosition(12, 30);
  WriteString("at (12,30)");
  WriteLn;

  WriteString("--- end Cursor ---"); WriteLn;
END TestVT52Cursor.