home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB21.ZIP / DEEDLE.SRC < prev    next >
Encoding:
Text File  |  1985-10-19  |  716 b   |  21 lines
  1. {->>>>Deedle<<<<-----------------------------------------------}
  2. {                                                              }
  3. { Filename: DEEDLE.SRC -- Last Modified 10/20/85               }
  4. {                                                              }
  5. { This routine makes a sound not unlike certain electronic     }
  6. { telephone ringers you hear in lawyers' offices.  The number  }
  7. { of "deedles" is given by the value passed in Deedles.        }
  8. {--------------------------------------------------------------}
  9.  
  10. PROCEDURE Deedle(Deedles : Integer);
  11.  
  12. VAR I : Integer;
  13.  
  14. BEGIN
  15.   FOR I := 1 TO Deedles DO
  16.     BEGIN
  17.       Sound(800); Delay(50); Sound(500); Delay(50)
  18.     END;
  19.   NoSound
  20. END;
  21.