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 / JSAGE / ZSUS / PROGPACK / NZ-TURBO.LBR / DNSCAN.FUN < prev    next >
Text File  |  2000-06-30  |  256b  |  9 lines
  1. Function DNSCAN:Integer;
  2. Var du : Integer;
  3. Begin
  4.   du := dirscan(dirs);
  5.   If du = 0 Then du := duscan(dirs);
  6.   dnscan := du
  7. End;
  8.  
  9.