Delete the lists that were created.
rc = dellist ( names );
rc = dellist ( titles );
rc = dellist ( bgcolors );
rc = dellist ( fgcolors );
return;

TERM:
  call send (catalog, '_term');
  call send (view_id, '_detach');
  call send (model, '_term');
  rc = dellist ( datalist );
return;