home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / vpascal.zip / SOUNDS < prev    next >
Text File  |  1985-08-08  |  384b  |  18 lines
  1. PROGRAM SOUNDS; {let's see how the TONE procedure works}
  2. VAR
  3.   NOTE     : INTEGER;
  4.   DURATION : INTEGER;
  5.  
  6. BEGIN
  7.   DURATION := 500;
  8.   NOTE := 1;
  9.   TONE(NOTE,DURATION);
  10.   NOTE := 3;
  11.   TONE(NOTE,DURATION);
  12.   NOTE := 5;
  13.   TONE(NOTE,DURATION);
  14.   NOTE := 8;
  15.   TONE(NOTE,DURATION);
  16. END.
  17.  
  18.