home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / TP-UTIL.ARK / DEEDLE.SRC < prev    next >
Text File  |  1986-01-06  |  768b  |  22 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.        }
  22. { MinorDOSVersion := Frac(DOSVersion);