**TI92P*econ1Rcpi†¥Z,() Prgm:clrio local a,b,x,y Disp "Urban CPI":disp "(base 93-95)":disp "$ in current yr":disp "divided by $ base yr":disp "times 100":pause:clrio disp "enter $ current yr":input a:ax:clrio disp "enter $ base yr":input b:by:clrio disp "The urban CPI is" disp ((x/y)100):pause:clrio EndPrgm äåÜo`