move PUBX 41 to prog_char