home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VISI_PAS.ZIP / SOUNDS < prev    next >
Encoding:
Text File  |  1980-01-01  |  384 b   |  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.