While (true) Do
  Begin
  sub1:=makemenu('All');
  If sub1='&' Then break;
  While (true) Do
   Begin
   sub2:=makemenu(sub1);
   If sub2='&' Then break;
   end;
  end;

While sub1<>'&' Do
  Begin
  sub1:=makemenu('All');
  sub2:='';
  While (sub1<>'&') and (sub2<>'&') Do
   Begin
   sub2:=makemenu(sub1);
   sub3:='';
   While (sub2<>'&') and (sub3<>'&') Do
    Begin
    sub3:=makemenu(sub2);
    file1:='';
    While (sub3<>'&') and (file1<>'&') Do
     Begin
     file1:=makemenu(sub3);
     end;
    end;
   end;
  end;