EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
EXECUTE 'SELECT CIVILAIDE'
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CIVILAIDE,CLE ELSE GOTO 10
IF EXTRACT(ENR,18)="" THEN
 IF EXTRACT(ENR,19)="00" THEN
  ENR=REPLACE(ENR,19;"")
  WRITE ENR ON F.CIVILAIDE,CLE
 END
END
GOTO 10
