Update Prog18_1.m