Create Prog_D