prog_char corrected