EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","COMPLFACT" TO F.COMPLFACT ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.COMPLFACT,CLE ELSE GOTO 10
ENR=REPLACE(ENR,5;"")
ENR=REPLACE(ENR,6;"")
IF ENR="" THEN
 DELETE F.COMPLFACT,CLE
END ELSE
 WRITE ENR ON F.COMPLFACT,CLE
END
GOTO 10
