00100 PRINT Newpgae 00110 LET Stime=Timer 00120 LET Total_Records=Fnrecordsinfile("ACTIVE.INT//6") 00130 LET Etime=Timer 00135 PRINT "Total Records:",Total_Records 00140 PRINT "Total Time:",Etime-Stime 01000 DEF Fnrecordsinfile(Flname$*256) 01010 DIM Temp_Index$*256 01020 LET Temp_Index$=Env$("TEMP")&"\RecordsInFile.[session]" 01030 EXECUTE "*Index "&Flname$&" "&Temp_Index$&" 1 1 REPLACE ISAM DUPKEYS SHR -n" 01040 OPEN #99: "NAME="&Temp_Index$,INTERNAL,OUTIN,RELATIVE 01050 LET Fnrecordsinfile=Lrec(99) 01060 CLOSE #99,FREE: 01070 FNEND