Update pcalc.c