macro conpitch yy=1993 id=1
path=/data/missions/ulysses/ket/pitch/[yy]
fi=[path]/pac[yy]$format([id],i3.3).dat
message [fi]
if $fexist([fi])=1 then
shell cp [fi] in.asc
shell ./checkpitch
hi/file 21 [fi].paw ! n
nt/cr 100 Pitch-[yy]$format([id],i3.3) 54 //lun21  ! scet yy doy hhd acc accs _
e40 e41 e42 e43 e44 e45 e46 e47 p40 p41 p42 p43 p44 p45 p46 p47 _
us0 os0 usm0 osm0 us1 os1 usm1 osm1 us2 os2 usm2 osm2 us3 os3 usm3 osm3 _
 us4 os4 usm4 osm4 us5 os5 usm5 osm5 us6 os6 usm6 osm6 _
 us7 os7 usm7 osm7
nt/read 100 in.asc ! ! ! 
*-/NA/*
close 21
else
message [fi] does not exist
stopm
endif