mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-20 03:58:17 +02:00
16 lines
298 B
ObjectPascal
16 lines
298 B
ObjectPascal
{ 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. |