VT100/Old/TestVT100N13.mod

MODULE TestVT100N13;

(* first test in VT52 mode *)

IMPORT VT100;
FROM Delay IMPORT Delay;
FROM STextIO IMPORT WriteString,WriteLn, WriteChar;
FROM ASCII IMPORT esc;
FROM Strings IMPORT Concat, String1, Length;
FROM NumberIO IMPORT WriteCard, CardToStr, WriteHex;

VAR
    i           : CARDINAL;
    str         : ARRAY [0..10] OF CHAR;
    print       : ARRAY [0..256] OF CHAR;
    tmpString   : ARRAY [0..10] OF CHAR;
    tmpString1  : String1;
    x,y         : CARDINAL;
 


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

    (* here work to be done*)
    (* VT100.cursorpos(10,10);
    VT100.requestCursorPosition(x,y);
    WriteString("Voici les coordonnées : ");
    WriteCard(x,5);
    WriteCard(y,5); *)
   
    (* set a clean terminal at the end *)
    (* Delay(2000); *)
    (* VT100.clearscreen; *)
    VT100.CloseTerminal;
END TestVT100N13.