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

EXECUTE 'SELECT FACTINT'

W_Fin = "F"

LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"

	READ ENR_FACTINT FROM F.FACTINT, W_Cle ELSE ENR_HONORAIRES = ""
	I=1
	LOOP WHILE ENR_FACTINT<1,I> # ""
	    IF INT(ENR_FACTINT<7,I>) = 0 AND INT(ENR_FACTINT<9,I>) = 0 THEN
		 ENR_FACTINT<10,I> = INT(ENR_FACTINT<10,I> / 6.55957 + 1/2)
	    END ELSE
	       ENR_FACTINT<7,I> = INT(ENR_FACTINT<7,I> / 6.55957 + 1/2)
	       ENR_FACTINT<9,I> = INT(ENR_FACTINT<9,I> / 6.55957 + 1/2)
	       ENR_FACTINT<10,I> = ENR_FACTINT<7,I> + ENR_FACTINT<9,I>
	    END
	    I = I + 1
	REPEAT
	WRITE ENR_FACTINT ON F.FACTINT, W_Cle
REPEAT

EXECUTE 'SELECT HONORAIRES'

W_Fin = "F"
	
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_HONORAIRES FROM F.HONORAIRES, W_Cle ELSE ENR_HONORAIRES = ""
	I=1
	LOOP WHILE ENR_HONORAIRES<1,I> # ""
	    IF INT(ENR_HONORAIRES<7,I>) = 0 AND INT(ENR_HONORAIRES<9,I>) = 0 THEN
		 ENR_HONORAIRES<10,I> = INT(ENR_HONORAIRES<10,I> / 6.55957 + 1/2)
	    END ELSE
	       ENR_HONORAIRES<7,I> = INT(ENR_HONORAIRES<7,I> / 6.55957 + 1/2)
	       ENR_HONORAIRES<9,I> = INT(ENR_HONORAIRES<9,I> / 6.55957 + 1/2)
	       ENR_HONORAIRES<10,I> = ENR_HONORAIRES<7,I> + ENR_HONORAIRES<9,I>
	    END
	    I = I + 1
	REPEAT
	WRITE ENR_HONORAIRES ON F.HONORAIRES, W_Cle
REPEAT
STOP
