home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / MADTRB21.ZIP / DEEDLE.SRC < prev    next >
Text File  |  1985-10-19  |  716b  |  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.