mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-15 09:42:30 +02:00
12 lines
165 B
ObjectPascal
12 lines
165 B
ObjectPascal
program outport;
|
|
|
|
uses crt, go32;
|
|
|
|
begin
|
|
{ turn on speaker }
|
|
outportb($61, $ff);
|
|
{ wait a little bit }
|
|
delay(50);
|
|
{ turn it off again }
|
|
outportb($61, $0);
|
|
end. |