PRGEDIT 3 PRGDEL -1 EXEC 3 DIM B[N] NOW=0 FOR I=0 TO N-1 V$=FORMAT$("A%.F",A[I]+2147483648) IF CHKVAR("3:"+V$) THEN INC B[VAR("3:"+V$)] ELSE PRGSET V$+"="+STR$(NOW) EXEC 3 INC B[NOW] INC NOW ENDIF NEXT FOR I=0 TO N-1 A[I]=B[VAR(FORMAT$("3:A%.F",A[I]+2147483648))] NEXT