home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / turbopas / tlist23.zip / TEST.PAS < prev    next >
Pascal/Delphi Source File  |  1987-12-20  |  1KB  |  45 lines
  1. {.PTEPSON}
  2. {.MHTest Program For Turbo Pascal Source Code Lister - @D - @T}
  3. {.MFVersion ##1.0                            Page - # -}
  4. {.PA}
  5. {
  6.  
  7.                                 SOUND.PAS
  8.                   A Cleaned Up Sound Demonstration Program
  9.  
  10.                     Copyright (c) Borland International
  11.  
  12.  
  13.      This program was written by Borland International, it was picked as
  14.      the test program for the turbo lister utility, mainly because of it's
  15.      small size and the number of subroutines.
  16.  
  17. }
  18. program SoundDemo;
  19.  
  20. uses Crt;
  21.  
  22. type
  23.   NoteRecord = record
  24.                   C,CF,D,DF,E,F,FF,G,GF,A,AF,B: integer;
  25.                end;
  26.  
  27. Const
  28.   Notes: NoteRecord =
  29.           (C:1;CF:2;D:3;DF:4;E:5;F:6;FF:7;G:8;GF:9;A:10;AF:11;B:12);
  30.  
  31. Var
  32.   Ch : Char;
  33.  
  34. {$I TEST.LIB}    { Demonstrate Include File Listing }
  35.  
  36. {.PC10}
  37. begin
  38.   writeln('Press any key to Stop');
  39.   repeat SoftAlarm until KeyPressed;
  40.   Ch := ReadKey;
  41.   writeln('Press any key to Stop');
  42.   repeat Sirene until KeyPressed;
  43.   NoSound;
  44. end.
  45.