macro openpitch y1=1993 y2=1993 i1=1 i2=36
do yy=[y1],[y2]
path=/data/missions/ulysses/ket/pitch/[yy]
do id=[i1],[i2]
loop=0
fi=[path]/pac[yy]$format([id],i3.3).dat
message [fi]
again:
if $fexist([fi])=1 then
fi2=[fi].paw
if $fexist([fi2])=1 then
chain ket [fi].paw 
else 
if [loop]=0 then
exec conpitch yy=[yy] id=[id]
loop=1
goto again
else
message 'File does not exist ' [fi]
endif
endif
endif
enddo
enddo
cd //ket