freepascal.compiler/docs/go32ex/outport.pp

uses
	crt,
	go32;

begin
	outportb($61, $ff);
	delay(50);
	outportb($61, $0);
end.