;label_batch
;@C:\idl_programs\PDS\pds.pro

Print,'pds.pro, 29Aug2006'

flag=1 ; if flag=0 then process a subset of the data, else process all.
Print,'Flag = ',sstr(flag),' (0=subset, 1=all)'

;cd,'/descent/14Jan05/Log/stream_524a_alt_az_8-30-2005'

Directory='C:\idl_programs\PDS\DATA'
Output=t_mkdir(Directory)

.run C:\idl_programs\PDS\dark_labels.pro
dark_labels,flag
.run C:\idl_programs\PDS\descent_labels.pro
descent_labels,flag
.run C:\idl_programs\PDS\hkeeping_labels.pro
hkeeping_labels,flag
.run C:\idl_programs\PDS\image_labels.pro
image_labels,flag
.run C:\idl_programs\PDS\image_display_labels.pro
image_display_labels,flag
.run C:\idl_programs\PDS\ir_labels.pro
ir_labels,flag
.run C:\idl_programs\PDS\lamp_labels.pro
lamp_labels,flag
.run C:\idl_programs\PDS\solar_labels.pro
solar_labels,flag
.run C:\idl_programs\PDS\strip_labels.pro
strip_labels,flag
.run C:\idl_programs\PDS\sun_labels.pro
sun_labels,flag
.run C:\idl_programs\PDS\time_labels.pro
time_labels,flag
.run C:\idl_programs\PDS\violet_labels.pro
violet_labels,flag
.run C:\idl_programs\PDS\visible_labels.pro
visible_labels,flag
.run C:\idl_programs\PDS\visible_ext_labels.pro
visible_ext_labels,flag
.run C:\idl_programs\PDS\pds_subdirectories.pro

print,string(7b)
ans=''
read,'Do you want to place the data in subdirectories? (y or n): ',ans
if ans eq 'y' then pds_subdirectories

cd,'C:\idl_programs\PDS'
Print,'Done creating PDS files'