EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "DNT" TO F.CRC ELSE W_Pastrouve = "VRAI"

IF W_Pastrouve = "VRAI" THEN
	PRINT "FICHIER MANQUANT"
END

W_PASLU = "FAUX"

READ ENR_CRC FROM F.CRC, "CRC" ELSE W_PASLU = "VRAI"

IF PASLU = "VRAI" THEN 
	PRINT "PAS LU"
	STOP
END

LOOP
WHILE ENR_CRC<I> # ""
	W_LIGNE = ENR_CRC<I>
	PRINT W_LIGNE[20,3]
	
	IF W_LIGNE[20,3] = "200" THEN
		ENR_CRC<I> = W_LIGNE[1,368]:"0000000A":W_LIGNE[369,7]:W_LIGNE[384,181]
	END
	
	I=I+1
	PRINT I
	
REPEAT
WRITE ENR_CRC ON F.CRC, "CRC"
STOP
