PROCEDURE  TEXT