From c711f95edc4555f3bddd6cb275c5fa1dfefa8f48 Mon Sep 17 00:00:00 2001
From: Sylvain Maltais <smaltais@gladir.com>
Date: Wed, 20 Apr 2022 10:23:56 -0400
Subject: [PATCH] Ajout de la commande REBOOT

---
 REBOOT.PAS | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 REBOOT.PAS

diff --git a/REBOOT.PAS b/REBOOT.PAS
new file mode 100644
index 0000000..d49305e
--- /dev/null
+++ b/REBOOT.PAS
@@ -0,0 +1,32 @@
+{ @author: Sylvain Maltais (support@gladir.com)
+  @created: 2022
+  @website(https://www.gladir.com/unix-0)
+  @abstract(Target: Turbo Pascal)
+}
+
+Program Reboot;
+
+Var
+ FirstParam:String;
+
+BEGIN
+ FirstParam:=ParamStr(1);
+ If FirstParam='/?'Then Begin
+  WriteLn('REBOOT   Cette commande permet de redemarrer l''ordinateur');
+  WriteLn;
+  WriteLn('Syntaxe:');
+  WriteLn;
+  WriteLn('REBOOT [/?]');
+  WriteLn;
+  WriteLn('  /?    Ce parametre permet d''afficher l''aide sur cette commande');
+ End
+  Else
+ Begin
+  {$IFNDEF FPC}
+   MemW[Seg0040:$72]:=$1234;
+   ASM
+    INT 19h
+   END;
+  {$ENDIF}
+ End;
+END.
\ No newline at end of file