blob: 3d343301ba4ff13b768cf9550c1ebc327cb8d3ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Program Example16;
uses Crt;
{ Program to demonstrate the Sound and NoSound function. }
var
i : longint;
begin
WriteLn('You will hear some tones from your speaker');
while (i<15000) do
begin
inc(i,500);
Sound(i);
Delay(100);
end;
WriteLn('Quiet now!');
NoSound; {Stop noise}
end.
|
