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