expand (plistname)
/*Inputs a series of records and
inserts them in alphabetical
order in the ordered list listname.
*/
listpointer *plistname;
{
int done;
done = FALSE;
while(!done)
processrecord(plistname,&done);
}