INCLUDE "lib.cps" FUNCTION mAiN RETURNS INTEGER CALL Increment() OUTPUT Counter RETURN Status() ENDFUNCTION