procedure function

Procedure function up and working.