added Reset() function to VT100 module.

vishaps · May 25, 2022 · 9e3995d · 9e3995d
1 parent 590398b
commit 9e3995d
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/runtime/VT100.Mod b/src/runtime/VT100.Mod
@@ -168,8 +168,15 @@ CONST
 
    END EscSeq2;
 
-
-
+   PROCEDURE Reset*;
+      VAR
+       cmd : ARRAY 6 OF CHAR;
+   BEGIN
+      COPY(Escape, cmd);
+      Strings.Append("c", cmd);
+      Out.String(cmd);
+      Out.Ln;
+   END Reset;
 (* Cursor up
    moves cursor n cells in the given direction. if the cursor is already at the edge of the screen, this has no effect *)