>CLOSE all >use aliq >INDEX ON no TO no >set order to "no" >for i = 1 to 20 && assume 20 values for flag > seek i &&Table has no index order set > copy next 5 to temp while no = i >use aliq1 > append from temp >next >Also: you should index the table only once, outside of individual programs like this:
index on no tag noTAG will create a permanent index, one that gets opened automatically with the table, and updated every time you add records.
set order to "no"but you would no longer need the INDEX command.