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/PARSE.PRO

Text File | 2000-06-30 | 256b | 14 lines

Procedure PARSE(Var S:str21);
Var P : Integer;
Begin
  dirs[0] := #0;
  P := Pos(':',S);
  If P <> 0 Then
  Begin
    dirs := Copy(S,1,P);
    dirs[0] := Chr(Length(dirs)-1);
    Delete(S,1,P);
  End;
End;