declare sub Purge_Start ( \
           byval Registration as string, \
           byval Copyright    as string )