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

READ ENR_DADSTDS FROM F.DADSTDS,"0012001" ELSE ENR_DADSTDS=""

I=1
LOOP
	UNTIL ENR_DADSTDS<I>="" DO

	IF ENR_DADSTDS<I>[20,3]="200" THEN
		READ ENR_DADS FROM F.DADSTDS,ENR_DADSTDS<I>[28,5] ELSE ENR_DADS=""

		ENR_DADS<1>=CONVERT(".","",ENR_DADS<1>)

		IF INT(ENR_DADS<1>)#INT(ENR_DADSTDS<I>[361,7]*1) THEN
			PRINT "AIDANT = ":ENR_DADSTDS<I>[28,5]:" PAPIER = ":ENR_DADS<1>:" MAGNET = ":INT(ENR_DADSTDS<I>[361,7]):" DIFF = ":ENR_DADS<1>-INT(ENR_DADSTDS<I>[361,7])
		END
*		IF INT(ENR_DADS<2>)#INT(ENR_DADSTDS<I>[372,7]) THEN
*			PRINT "AIDANT = ":ENR_DADSTDS<I>[28,5]:" PAPIER = ":ENR_DADS<2>:" MAGNET = ":INT(ENR_DADSTDS<I>[372,7]):" DIFF = ":ENR_DADS<2>-INT(ENR_DADSTDS<I>[372,7])
*		END
	END

	I=I+1
REPEAT
