bonjour, est il possible de rendre ce programme en turbo pascal sous forme de fichier *.exe , j'ai essayé avec Dev pascal mais ca n'a pas marché , il n'a pas reconnu l'instruction du port LPT1 parallele , s'il ya un autre compilateur ou une autre solution je vous prie de m'informer .
merci d'avance
"debutant non classé !!"
program alarm;
uses crt;
var v:integer;
begin
clrscr;
writeln('vous pouvez sortir');
delay(12000);
repeat
v:=port[957];
if v and 64=64 then
writeln ('attension ALARM')
else begin
clrscr;
writeln('declenchement alarme');
port[956]:=1;
delay (6000);
repeat
port [956]:=2;
delay (100);
port[956]:=0;
delay(100);
until Keypressed;
end;
port[956]:=0;
until keypressed;
Readln;
end.