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