VT100/tests/TestVT100Tabs.mod

MODULE TestVT100Tabs;

(* Tabs: Set, Clear, ClearAll *)

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

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

  VT100.CursorPosition(5, 10);
  VT100.TabSet;
  VT100.CursorPosition(5, 20);
  VT100.TabSet;
  WriteString("tabs set at col 10,20");

  VT100.CursorPosition(6, 1);
  VT100.TabClear;
  WriteString("TabClear at current col done");
  WriteLn;

  VT100.TabClearAll;
  WriteString("TabClearAll done"); WriteLn;

  WriteString("--- end Tabs ---"); WriteLn;
  Delay(500);
END TestVT100Tabs.