-
Notifications
You must be signed in to change notification settings - Fork 0
/
ECHO.PAS
30 lines (27 loc) · 715 Bytes
/
ECHO.PAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
{ @author: Sylvain Maltais (support@gladir.com)
@created: 2022
@website(https://www.gladir.com/unix-0)
@abstract(Target: Turbo Pascal, Free Pascal)
}
Program ECHOCommand;
Var
I:Integer;
FirstParam:String;
BEGIN
FirstParam:=ParamStr(1);
If FirstParam='/?'Then Begin
WriteLn('ECHO Cette commande permet d''afficher un message sur le console du systeme d''exploitation.');
WriteLn;
WriteLn('Syntaxe:');
WriteLn;
WriteLn('ECHO [/?] message');
WriteLn;
WriteLn(' /? Ce parametre permet d''afficher l''aide sur cette commande');
WriteLn(' message Ce parametre permet d''afficher un message');
End
Else
Begin
For I:=1 to ParamCount do Write(ParamStr(I));
WriteLn;
End;
END.