- #my $nl = ord substr $blk,95,1;
- #my $cr = ord substr $blk,96,1;
+ $h{'Batt_TX_OK'} = (unpack("C", substr $blk,86,1)+0) ^ 1;
+ $h{'Batt_Console'} = sprintf("%0.2f", unpack("s", substr $blk,87,2) * 0.005859375)+0;
+ $h{'Forecast_Icon'} = unpack("C", substr $blk,89,1);
+ $h{'Forecast_Rule'} = unpack("C", substr $blk,90,1);
+
+ $h{'Sunrise'} = sprintf( "%04d", unpack("S", substr $blk,91,2) );
+ $h{'Sunrise'} =~ s/(\d{2})(\d{2})/$1:$2/;
+ $h{'Sunset'} = sprintf( "%04d", unpack("S", substr $blk,93,2) );
+ $h{'Sunset'} =~ s/(\d{2})(\d{2})/$1:$2/;
+ }