VT100/tests/TestAnsiPrint.mod

MODULE TestAnsiPrint;

IMPORT Ansi;
FROM STextIO IMPORT WriteString, WriteLn;

BEGIN
  Ansi.EraseScreen;
  Ansi.Home;
  WriteString("--- ANSI Print/Ctrl test ---"); WriteLn;

  Ansi.PrintScreen; WriteLn; WriteString("PrintScreen sent"); WriteLn;
  Ansi.PrintLine; WriteLn; WriteString("PrintLine sent"); WriteLn;
  Ansi.StartLog; WriteLn; WriteString("StartLog sent"); WriteLn;
  Ansi.StopLog; WriteLn; WriteString("StopLog sent"); WriteLn;

  Ansi.Bell; WriteString("Bell sent"); WriteLn;
  Ansi.Backspace; WriteString("Backspace sent"); WriteLn;
  Ansi.HTab; WriteString("HTab sent"); WriteLn;
  Ansi.LineFeed; WriteString("LineFeed sent"); WriteLn;
  Ansi.VTab; WriteString("VTab sent"); WriteLn;
  Ansi.FormFeed; WriteString("FormFeed sent"); WriteLn;
  Ansi.CarriageReturn; WriteString("CR sent"); WriteLn;

  WriteString("--- end Print/Ctrl ---"); WriteLn;
END TestAnsiPrint.