blob: f53b843cad65247c298a09509d82fedc59e15179 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ 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.
|
