The following function deletes all the tags in the current table, which you would do before rebuilding all the tags from scratch.

PROCEDURE ZapTags

   do while "" # tag(1) 

      delete tag tag(1) 

   enddo