VT100/tests/TestVT100Cursor.mod

MODULE TestVT100Cursor;

(* Cursor: Home, Position, HVPosition, Up, Down, Right, Left *)

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

BEGIN
  VT100.ClearScreen;
  VT100.CursorHome;
  WriteString("--- VT100 Cursor test ---"); WriteLn;
  Delay(500);

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

  VT100.HVPosition(7, 10);
  WriteString("at HV (7,10)");

  VT100.CursorHome;
  WriteString("Home+");
  VT100.CursorRight(5);
  WriteString("R5+");
  VT100.CursorDown(2);
  WriteString("D2+");
  VT100.CursorLeft(2);
  WriteString("L2+");
  VT100.CursorUp(1);
  WriteString("U1");
  WriteLn;

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