程序代码：

use 表
m_exp=exp_1
for i=1 to recc()
    loca for exp_1=m_exp
    continue
       if found()
          dele for exp_1=m_exp and Dsl=0
       endif
    go i
    m_exp=exp_1
endif