ROUTINE MonthWise
ALIAS
  Meter = CHANNEL[71]; %Energi
  MeterBase = CHANNEL[79]; %Meter base
  CurrentMonth = CHANNEL[80]; %Current month
  Jan = CHANNEL[83]; %Januari
  Feb = CHANNEL[84]; %Februari
  Mars = CHANNEL[85]; %Mars
  April = CHANNEL[86]; %April
  May = CHANNEL[87]; %Maj
  June = CHANNEL[88]; %Juni
  July = CHANNEL[89]; %Juli
  Aug = CHANNEL[90]; %Augusti
  Sept = CHANNEL[91]; %September
  Oct = CHANNEL[92]; %Oktober
  Nov = CHANNEL[93]; %November
  Dec = CHANNEL[94]; %December
VAR
  Month;
  Value;
BEGIN
  IF Meter > 0 THEN
  Value := Meter - MeterBase;
  Month := CurrentMonth;
  IF TIME_MONTH <> CurrentMonth THEN
    MeterBase <- Meter;
    CurrentMonth <- TIME_MONTH;
  ENDIF;

  IF Month = 1 THEN Jan <- Value;
  ELSIF Month = 2 THEN Feb <- Value;
  ELSIF Month = 3 THEN Mars <- Value;
  ELSIF Month = 4 THEN April <- Value;
  ELSIF Month = 5 THEN May <- Value;
  ELSIF Month = 6 THEN June <- Value;
  ELSIF Month = 7 THEN July <- Value;
  ELSIF Month = 8 THEN Aug <- Value;
  ELSIF Month = 9 THEN Sept <- Value;
  ELSIF Month = 10 THEN Oct <- Value;
  ELSIF Month = 11 THEN Nov <- Value;
  ELSIF Month = 12 THEN Dec <- Value;
  ENDIF;
 ENDIF;
END;