VT52/EssaiVT521.mod

MODULE EssaiVT521;

FROM STextIO IMPORT WriteChar, WriteString, WriteLn,ReadChar;

(*
Erasing
From cursor to end of line 	ESC [ K or ESC [ 0 K
From beginning of line to cursor 	ESC [ 1 K
Entire line containing cursor 	ESC [ 2 K
From cursor to end of screen 	ESC [ J or ESC [ 0 J
From beginning of screen to cursor 	ESC [ 1 J
Entire screen 	ESC [ 2 J
*)

CONST ESC = CHR(27);
CONST ClrScr = "[2J";
CONST ClrLn = "[1K";

VAR Chaine : ARRAY[0..4] OF CHAR;
VAR a : CHAR;

BEGIN
     (*WriteString(" Test effacement d'écran");
     ReadChar(a);
     Chaine := ESC + ClrScr;			     
     WriteString(Chaine);*)
     WriteString(" Test d'effacement de ligne");
     ReadChar(a);
     Chaine := ESC + ClrLn;
     WriteString(Chaine);
END EssaiVT521.