PROCEDURE Work() ENDPROCEDURE