VT100/tests/TestVT100Charset.mod

MODULE TestVT100Charset;

(* Character sets G0/G1 + shifts *)

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

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

  VT100.SetUK_G0; WriteString("SetUK_G0"); WriteLn;
  VT100.SetUS_G0; WriteString("SetUS_G0"); WriteLn;
  VT100.SetGraphics_G0; WriteString("SetGraphics_G0"); WriteLn;
  VT100.SetAlt_G0; WriteString("SetAlt_G0"); WriteLn;
  VT100.SetAltGraph_G0; WriteString("SetAltGraph_G0"); WriteLn;

  VT100.SetUK_G1; WriteString("SetUK_G1"); WriteLn;
  VT100.SetUS_G1; WriteString("SetUS_G1"); WriteLn;
  VT100.SetGraphics_G1; WriteString("SetGraphics_G1"); WriteLn;
  VT100.SetAlt_G1; WriteString("SetAlt_G1"); WriteLn;
  VT100.SetAltGraph_G1; WriteString("SetAltGraph_G1"); WriteLn;

  VT100.Shift2; WriteString("Shift2 (SS2)"); WriteLn;
  VT100.Shift3; WriteString("Shift3 (SS3)"); WriteLn;

  VT100.SetUS_G0;
  VT100.SetUS_G1;
  WriteString("back to US ASCII"); WriteLn;

  WriteString("--- end Charset ---"); WriteLn;
  Delay(500);
END TestVT100Charset.