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 / DIRSCAN.FZN / DIRSCAN.FUN
Text File  |  2000-06-30  |  640b  |  20 lines
  1. Function DIRSCAN(S:dirstr):Integer;
  2. { Search Z3NDIR for directory name matching the string at S }
  3. { Return Rel 1 Drive/User if found, Zero if not.            }
  4. Var ndir, D, I : Integer;
  5. Begin
  6.   ndir := GETNDR;
  7.   If Mem[ndir] <> 0 Then
  8.   Repeat
  9.     name[0] := #8; { Initially 8 chars long }
  10.     For I := 1 to 8 Do
  11.     name[I] := Chr(Mem[ndir+I+1]);
  12.     I := Pos(' ',name);
  13.     If I <> 0 Then name[0] := Chr(I-1);
  14.     If S = name Then D := Swap(get(ndir)) Else D := 0;
  15.     ndir := ndir+18;
  16.   Until (D <> 0) or (Mem[ndir] = 0);
  17.   dirscan := D;
  18. End;
  19.  
  20.