Full Source Code To Vision Bbs System
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
Program Sound_Test;
Uses Crt;
Var Frequency:Integer;
tone:Integer;
Begin
While Not Keypressed Do Begin
TextAttr:=9;
Write('Whoop');
Textattr:=10;
Write('...');
For Frequency:=3000 to 20 Do
Begin
Delay(1);
Sound(Frequency);
End;
For Tone:=1000 to 200 do Begin
Delay(1);
Sound(Tone);
End;
Delay(100);
End;
NoSound;
End.
