printstrbox(1,dwindsize+2,80,dwindsize+2,"Enter database name :");
readstr(pretend(&rootname,*char),filenamelen);
setupdefn();
initfiles();
filopnd:=true;
fi;
if response='u' or response='U' then
clearcmdwind();
printstrbox(1,dwindsize+2,80,dwindsize+2,"Enter database name :");
readstr(pretend(&rootname,*char),filenamelen);
initfiles();
filopnd:=true;
gotofirst();
fi;
not(quit or filopnd)
do
od;
clearscr();
while not quit do
clearcmdwind();
clearstatwind();
if dataindex.level[dataindex.curlev].map[dataindex.currecnum] then
displayrec();
fi;
gotoxy(1,dwindsize+1);
writeln(crtout;"Record=",dataindex.currecnum," Level=",dataindex.curlev," ",dataindex.level[dataindex.curlev].numonlev," records selected out of ",dataindex.maxrecnum-dataindex.numdeletes);