From f2e4df6555db95336d7cee13df07fc5786003000 Mon Sep 17 00:00:00 2001
From: Sylvain Maltais <smaltais@gladir.com>
Date: Wed, 20 Apr 2022 08:55:30 -0400
Subject: [PATCH] Ajout de la commande CLEAR

---
 CLEAR.PAS | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 CLEAR.PAS

diff --git a/CLEAR.PAS b/CLEAR.PAS
new file mode 100644
index 0000000..df78beb
--- /dev/null
+++ b/CLEAR.PAS
@@ -0,0 +1,30 @@
+{ @author: Sylvain Maltais (support@gladir.com)
+  @created: 2022
+  @website(https://www.gladir.com/unix-0)
+  @abstract(Target: Turbo Pascal, Free Pascal)
+}
+
+Program CLEAR;
+
+Uses Crt;
+
+Var
+ FirstParam:String;
+
+BEGIN
+ FirstParam:=ParamStr(1);
+ If(FirstParam='/?')or(FirstParam='--help')or(FirstParam='-h')or
+   (FirstParam='/h')or(FirstParam='/H')Then Begin
+  WriteLn('CLEAR   Cette commande permet d''effacer l''ecran.');
+  WriteLn;
+  WriteLn('Syntaxe:');
+  WriteLn;
+  WriteLn('CLEAR [/?]');
+  WriteLn;
+  WriteLn('  /?    Ce parametre permet d''afficher l''aide sur cette commande');
+ End
+  Else
+ Begin
+  ClrScr;
+ End;
+END.
\ No newline at end of file