Update A-DIGGER.BAS