USE TEMP7
STORE 0 TO LL
STORE '        ' TO TT
DO WHILE .NOT. EOF()
STORE DEPNUM TO TT
STORE TOTCOST+TAX TO FF
STORE LL+FF TO LL
SKIP
IF DEPNUM <> TT
 SKIP -1 
 REPLACE DEPAMT WITH LL
 STORE 0 TO LL
 SKIP
 STORE DEPNUM TO TT
ENDIF
ENDDO