home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / sysutl / tone100.arc / TONE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1990-01-21  |  1.7 KB  |  45 lines
  1. program Tone;
  2.  
  3. {All LoringWare products are dedicated to the memory of my Grandfather,
  4. Loring E. Tyson. He was a scientist and teacher, and he was my 
  5. inspiration and mentor in the areas of science and technology. 
  6. September 3, 1903 - October 21, 1978.
  7.  
  8. This program was written to assist in troubleshooting the audio section
  9. of a computer. It produces an 880 hertz beep 1/20th of a second long, once
  10. a second. Running TONE gives you an audio source to trace through the audio
  11. section of the computer under test.
  12.  
  13. This product may be freely copied and distributed, but the copyright and
  14. all rights remain the property of the author. Any contributions gratefully
  15. accepted. Write to or Email Michael L. Tyson PSC Box 1681, Tampa, Fl.
  16. 33608-5360  GEnie - M.Tyson2}
  17.  
  18. uses
  19.     Crt;
  20. var
  21.    clr   : char;            {used to clear keyboard buffer}
  22.    Stop  : boolean;         {used to break out of loop}
  23.  
  24. procedure Beep;
  25. begin
  26.      sound (880) ; delay (50) ; NoSound ; Delay (950); {.05 sec 880hz beep/sec}
  27.      stop := keypressed                   {checks for keyboard input}
  28. end;
  29. begin
  30.      ClrScr;
  31.      TextBackground(Blue);
  32.      TextColor(Yellow);
  33.      WriteLn('                           ');
  34.      WriteLn('    TONE (TM) Ver 1.00     ');
  35.      WriteLn('                           ');
  36.      WriteLn(' Copyright 1990 LoringWare ');
  37.      WriteLn('    All rights reserved.   ');
  38.      WriteLn('   Press any key to exit.  ');
  39.      WriteLn('                           ');
  40.      while stop = false do                   {does procedure beep until}
  41.      beep;                        {a key is pressed}
  42.      stop := false;                 {resets variable}
  43.      clr := readkey                 {clears keyboard buffer}
  44. end.
  45.