VT100/tests/TestVT100Scroll.mod

MODULE TestVT100Scroll;

(* Scroll/line: Index, ReverseIndex, NextLine, Save/Restore, ScrollRegion *)

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

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

  VT100.SaveCursor;
  VT100.CursorPosition(10, 1);
  WriteString("saved here");
  VT100.CursorPosition(12, 1);
  WriteString("moved");
  Delay(500);
  VT100.RestoreCursor;
  WriteString(" <- restored");
  WriteLn;
  Delay(500);

  VT100.Index;
  WriteString("Index (ESC D)"); WriteLn;
  VT100.ReverseIndex;
  WriteString("ReverseIndex (ESC M)"); WriteLn;
  VT100.NextLine;
  WriteString("NextLine (ESC E)"); WriteLn;

  VT100.SetScrollRegion(5, 15);
  WriteString("ScrollRegion 5..15 set"); WriteLn;
  Delay(500);
  VT100.SetScrollRegion(1, 24);
  WriteString("ScrollRegion reset 1..24"); WriteLn;

  WriteString("--- end Scroll ---"); WriteLn;
END TestVT100Scroll.