MODULE TestVT52N1;

IMPORT VT52, Delay;

FROM STextIO IMPORT WriteChar, WriteString, WriteLn;

BEGIN
    (* VT52.vt52; *)
    VT52.cls;
    (* Delay.Delay(2000);
    (* VT52.cursorpos(40,20); *)
    WriteChar("d");
    VT52.cursordn;VT52.cursordn;VT52.cursordn;VT52.cursordn;
    VT52.cursorrt;VT52.cursorrt;VT52.cursorrt;VT52.cursorrt;
    WriteChar("f");
    VT52.cursorup; VT52.cursorup;VT52.cursorlf;VT52.cursorlf;
    WriteChar("x");
    Delay.Delay(2000);
    VT52.cursorhome;
    Delay.Delay(2000);
    VT52.cleareos;
    Delay.Delay(2000);
    WriteChar("d");
    VT52.cursordn;VT52.cursordn;VT52.cursordn;VT52.cursordn;
    VT52.cursorrt;VT52.cursorrt;VT52.cursorrt;VT52.cursorrt;
    WriteChar("f");VT52.cursorup; VT52.cursorup;
    Delay.Delay(2000);
    VT52.cleareos;
    Delay.Delay(2000);
    WriteString("Une petite maison sur la colline");
    VT52.cursorlf;VT52.cursorlf;VT52.cursorlf;VT52.cursorlf;
    Delay.Delay(2000);
    VT52.cleareol;
    Delay.Delay(2000); *)
    VT52.cursorpos(20,20);
    WriteString("    hi hi !");
    Delay.Delay(5000);
    WriteLn;
END TestVT52N1.