program knipperled; uses wincrt;
const
	LPT1D=$3bc;
var
	aanteller, uitteller: longint;
begin
	repeat
		aanteller:=20000000; {pas deze constanten aan als de de leds te   }
      uitteller:=20000000; {snel of te traag knipperen. Max = 2147483647}
		port[LPT1D]:=port[LPT1D] or $04;
		writeln('Led aan.');
		while aanteller>0 do
		begin
			aanteller:=aanteller-1
		end;
		port[LPT1D]:=port[LPT1D] and $fb;
		writeln('Led uit.');
		while uitteller>0 do
		begin
			uitteller:=uitteller-1
		end
	until keypressed
end.
