@SUB CHECKREG@ @SUB TotalFinds@
@LOOP@ @ENDLOOP@
@SUB NextNo@