Duty Cycle Counter Sub Routine

I am seeking a code written in structured text per IEC 61131 for a duty cycle protection device. Ultimately, this will be loaded in Modicon Unity, RSlogix, and Schneider’s SoMachine. This code, when loaded into a PLC, will protect a motor from running over its duty cycle. The duty cycle is described as the time a motor is ON divided by the ON-OFF-ON cycle. For example, if the motor is on for 10 minutes and off for 20 minutes before being turned back on, the duty cycle is 33.3%. If the motor is on for 20 minutes and off for 10 minutes before being turned back on, the duty cycle is 66.6%. The functionality of the sub-routine is described below. Inputs are: Max Duty Cycle (%), Max Run Time , and Motor State (ON/OFF). The outputs from the sub routine are Duty Cycle (of previous cycle) and Motor Run Permissive (Yes/No). If the motor is running and its run time is less than the max run time, the motor run permissive is YES. For instance, if a motor can run for 15 mins, the code would change the permissive from YES to NO if the motor ran for more than 15 minutes. Also, the permissive would not allow motor to run until the duty cycle criteria are fulfilled. For example, if we had a max run time of 20 minutes and a duty cycle of 66.6%, the permissive would remain as NO unit 10 mins after the motor turned off. At that time, the Motor Run Permissive would change to YES. VERY IMPORTANT: Please include magic phrase: "WATER IS WET" at the top of your reply.