i=-1;
ideb=2003;
iFin=2024;
setstring[@chemin,"E:\ManipsPAPOL\poldyn\cata\"];
Lb:setstring[@fichierU,chemin$,"C2_",ideb,".3Du"];
setstring[@fichierD,chemin$,"C2_",ideb+1,".3Dd"];
openspectre[3,fichierU$,"AcqTOFup"];
integralespectre3D["AcqTOFup","int"];
readmoni3D["AcqTOFup","moni"];
addcomment[ideb," UP ",moni," ",int];
openspectre[3,fichierD$,"AcqTOFdown"];
integralespectre3D["AcqTOFdown","int"];
readmoni3D["AcqTOFdown","moni"];
addcomment[ideb+1," DOWN ",moni," ",int];
ideb=ideb+2;
if ideb<(ifin+1) then Lb;
