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


@SUB NextNo@