EXECUTE 'SELECT THE.FILE A.FIELD B.FIELD BY A.FIELD TO 1'
*
LOOP
  READNEXT ID FROM 1 ELSE ID = 'eof'
UNTIL ID = 'eof' DO
  READ REC FROM F1, ID THEN GOSUB DO.SOMETHING
REPEAT