Подскажите пожалуйста, как в Fox Pro 2.6 (dos)
можно сделать следующий цикл по записям.
Имеется таблица pokupki.dbf со следующими данными:

kod_pr DATE_SCH OSTATOK N_SCH
1003 31.01.2007 30000 4
1003 28.02.2007 20000 5
2001 31.01.2007 14000 6
2001 28.02.2007 500 7
2001 31.03.2007 500 8

Есть другая таблица kredit.dbf с такими данными:
kod_pr summa
1003 50000
2001 15000

Т.е. на каждое предприятие приходит определенная
сумма, которая гасит сложившуюся задолженность.
Все это должно отображаться в текстовом файле,
т.е. примерно так:
1003 50000-30000=20000 погашение счета 4 от 31.01.2007
20000-20000=0 погашение счета 5 от 28.02.2007
и т.д.

Начал я так:

select 3
use sys(2003)+"/kredit.dbf"
set order to kod_pr
goto top
scan
kod_pr1=alltrim(kod_pr)
summa1=summa

select 1
use sys(2003)+"/pokupki.dbf"
goto top
set filter to alltrim(kod_pr)=kod1 .and. pr1=0
locate for alltrim(kod_pr)=kod1
******* здесь нужен цикл по полю OSTATOK (до тех пор,
******* пока он не будет равен 0)
select 3
endscan
******************

Спасибо.