Update DIGGER_FOREVER.BAS