VT100/Old/T.mod

MODULE TestVT100N?;

(* first test in VT52 mode *)

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

VAR
    i : CARDINAL;

BEGIN
    (* VT100 mode*)
   
    (* clear Screen *)
    VT100.clearscreen;(* OK *)
    Delay(2000);

    (* here work to be done*)

    (* set a clean terminal at the end *)
    Delay(2000);
    VT100.clearscreen;
END TestVT100N?.