VT100/tests/TestAnsiCursor.mod

MODULE TestAnsiCursor;

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

BEGIN
  Ansi.EraseScreen;
  Ansi.Home;
  WriteString("--- ANSI Cursor test ---"); WriteLn;

  Ansi.Position(5, 10);
  WriteString("at (5,10)");
  Ansi.HVPosition(7, 10);
  WriteString(" HV(7,10)");
  WriteLn;

  Ansi.Home;
  WriteString("H+");
  Ansi.Right(5); WriteString("R5+");
  Ansi.Down(2); WriteString("D2+");
  Ansi.Left(2); WriteString("L2+");
  Ansi.Up(1); WriteString("U1");
  WriteLn;

  Ansi.NextLine(2); WriteString("E2");
  WriteLn;
  Ansi.PrevLine(1); WriteString("F1");
  WriteLn;
  Ansi.ToColumn(20); WriteString("G20");
  WriteLn;

  Ansi.SaveDEC;
  Ansi.Position(15, 1); WriteString("moved");
  Ansi.RestoreDEC; WriteString(" DEC restored");
  WriteLn;

  Ansi.SaveSCO;
  Ansi.Position(16, 1); WriteString("moved2");
  Ansi.RestoreSCO; WriteString(" SCO restored");
  WriteLn;

  Ansi.RequestPosition;
  WriteLn; WriteString("6n sent"); WriteLn;

  Ansi.CursorUpScroll; WriteString(" ESC M"); WriteLn;

  WriteString("--- end Cursor ---"); WriteLn;
  Delay(500);
END TestAnsiCursor.