fpcdocs/go32ex/outport.pp


1
2
3
4
5
6
7
8
9

uses
        crt,
        go32;

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