EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP

EXECUTE 'SSELECT FACTURAIDE AVEC 0 = "[20010]" AND AVEC 1 = "2000]"'

W_TOTAL=0
W_FINI=0
LOOP
     READNEXT CLE ELSE W_FINI=1
     UNTIL W_FINI=1 DO

     READ ENR_FACTURAIDE FROM F.FACTURAIDE,CLE ELSE ENR_FACTURAIDE=""

     I=1
     LOOP
	  UNTIL ENR_FACTURAIDE<1,I>="" DO
	  IF ENR_FACTURAIDE<1,I>[1,4]="2000" THEN
		W_TOTAL=W_TOTAL+ENR_FACTURAIDE<3,I>
	  END
          I=I+1
     REPEAT

REPEAT

PRINT "TOTAL SUR 2000 = ":W_TOTAL/100
STOP
