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