From 9e3995d0ee5266d99b8c50d1077f34cee2e9380b Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Thu, 26 May 2022 01:29:02 +0400
Subject: [PATCH] added Reset() function to VT100 module.

---
 src/runtime/VT100.Mod | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/runtime/VT100.Mod b/src/runtime/VT100.Mod
index 03cc1d2c..6687ed02 100644
--- 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 *)