IMPLEMENTATION MODULE VT100;

FROM STextIO IMPORT WriteString;
FROM ASCII IMPORT esc;
FROM Strings IMPORT Concat;

CONST
    clearScreenCode = "[2J";

VAR
    clearScreen : ARRAY [0..5]  OF CHAR;

    PROCEDURE cls;
    BEGIN
       WriteString(clearScreen) 
    END cls;

BEGIN
    Concat(esc,"[2J",clearScreen);
    Concat(esc,clearScreenCode,clearScreen);
END VT100.