{***************************************************************************}
{*             Erstellen eines Mustereintrags fuer gezieltes Suchen        *}
{***************************************************************************}

PROCEDURE MachMuster(VAR MusterIdent:DiskIdent; VAR MusterName : DirName);
  VAR p : 0..127; c : char;
  BEGIN
    p:=pos('/',Befehl);
    IF p>0
      THEN BEGIN
             MusterIdent:=copy(Befehl,1,p-1);
             Befehl:=copy(Befehl,p+1,length(Befehl)-p)
           END
      ELSE MusterIdent:='';
    p:=pos('.',Befehl);
    IF p=0 THEN BEGIN Befehl:=Befehl+'. '; p:=length(Befehl) END;
    MusterName:=copy(Befehl,1,p-1);
    IF MusterName[length(MusterName)]='*'
      THEN
       BEGIN MusterName:=copy(MusterName,1,length(MusterName)-1); c:='?' END
      ELSE c:=' ';
    WHILE length(MusterName)<8 DO MusterName:=MusterName+c;
    MusterName:=MusterName+copy(Befehl,p+1,length(Befehl)-p);
    IF MusterName[length(MusterName)]='*'
      THEN
       BEGIN MusterName:=copy(MusterName,1,length(MusterName)-1); c:='?' END
      ELSE c:=' ';
    WHILE length(MusterName)<11 DO MusterName:=MusterName+c;
   END;