EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FICARETAILLER" TO F ELSE PRINT "Pas pu lire"
READ ENR FROM F, "MENSUEL" THEN
i=0
LOOP
i=i+1
WHILE ENR<i> # ""
OPEN "",ENR<i> TO F2 ELSE 
PRINT ENR<i>
END
REPEAT
END ELSE
PRINT "Pas pu lire 2"
END
STOP
