Terminate the classes that were instantiated.
TERM:
   call send(datid,'_term');
   list=dellist(list);
 return;