mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-06 06:32:33 +02:00
19 lines
370 B
ObjectPascal
19 lines
370 B
ObjectPascal
{ example for : outport*()
|
|
I/O access
|
|
}
|
|
|
|
{ This example demonstrates the use of the outport functions.
|
|
|
|
It simply turns the PC's internal speaker on for 50 ms and off again.
|
|
}
|
|
uses crt,
|
|
go32;
|
|
|
|
begin
|
|
{ turn on speaker }
|
|
outportb($61, $ff);
|
|
{ wait a little bit }
|
|
delay(50);
|
|
{ turn it off again }
|
|
outportb($61, $0);
|
|
end. |