{************************************************
                 Hugo Eti‚vant
      http://cyberzoide.developpez.com
      
      (pour une aide en Turbo Pascal 7.0)
*************************************************}


{$M $4000,0,0 }
uses crt,dos;

var a,c: string;
    choix:integer;
    b:boolean;

procedure temps;
const days : array [0..6] of string[9] =
    ('dimanche','lundi','mardi',
     'mercredi','jeudi','vendredi',
     'samedi');
var y,m,d,dow:word;
begin
getdate(y,m,d,dow);
textbackground(1);
textcolor(15);
write('                      -     A.EXE     version 1.0     -                         ');
textbackground(0);
textcolor(7);
writeln('Vous disposez d''une p‚riode d''essai de 18 jours.');
writeln('Nous sommes le ',days[dow],' ',d:0,'/',m:0,'/',y:0);
if (d>=15) and (m>=11) then
begin
textcolor(4+blink);
writeln('Veuillez vous enregistrer, votre p‚riode d''essai est termin‚e.');
writeln('Le prix de la licence est de 10.000.000 $');
textcolor(7);
end;
writeln;
end;

procedure arj(i:integer; var a,c:string);
var param,commande:string;
begin
case i of
 1 : begin
     writeln;
     writeln('Entrez le chemin du fichier ou r‚pertoire source.');
     writeln('Exemple : C:\FICHIERS\PASCAL\*.PAS');
     write('-> ');
     readln(c);
     writeln('Entrez le chemin et le nom du fichier destination.');
     writeln('Exemple : A:\PASCAL.ARJ');
     write('-> ');
     readln(a);
     b:=true;
     commande:='A -R -VVAA';
     end;
 2 : begin
     writeln;
     writeln('Entrez le chemin et le nom du fichier source.');
     writeln('Exemple : A:\PASCAL.ARJ');
     write('-> ');
     readln(a);
     writeln('Entrez le chemin de destination.');
     writeln('Exemple : C:\FICHIERS\PASCAL\');
     write('-> ');
     readln(c);
     b:=true;
     commande:='X -R -VVAA';
     end;
 else writeln('Vous devez entrer un choix : 1 ou 2');
end;
if b=true then
 begin
 param:=commande+' '+a+' '+c;
 writeln;
 writeln('--------------------');
 writeln('LANCEMENT DE ARJ.EXE');
 writeln;
 swapvectors;
 exec('C:\ARJ.EXE',param);
 swapvectors;
 writeln;
 writeln('-----------------------');
 writeln('FIN D''EXECUTION DE ARJ');
 end;
end;

begin
writeln;
write('--------------------------------------------------------------------------------');
temps;
writeln('Programme d''aide … l''utilisation d''ARJ version 2.8');
writeln('Le fichier ARJ.EXE doit imp‚rativement se trouver dans le r‚pertoire racine du  disque dur.');
writeln;
writeln('Entrez votre choix : compacter ou d‚compacter [1/2] ?');
repeat
write('-> ');
readln(choix);
arj(choix,a,c);
until b=true;
end.