procedure addtoinv;