>SELECT banks >INDEX on code TO banks1 > >select 00000000 as SeqNum, BName, code from Banks into cursor curBanks order by 2 readwrite >lnRecs = reccount('Banks') >replace all SeqNum with recno() > >scan > if seek(code,'Banks','code') > replace code with lnRecs + SeqNum in Banks > endif >endscan >replace code with (code - lnRecs) all >SELECT banks >brow >>