(COND(QOJ(SETQ QO -1)(PROMPT"\nUpdating -")(WHILE(SETQ ENAME(SSNAME QOJ(SETQ QO(1+ QO))))(SETQ Q|J(ENTGET ENAME))(IF(NOT(EQ(SETQ QQJ(QQ ENAME Q$J))(QQ 1 Q|J)))(ENTMOD(Q#(CONS 1 QQJ)Q|J)))(IF(ZEROP(REM QO 4))(GC))(Q@))(PROMPT"\rDone.     ")))