openr,1,'files' openw,2,'mul.pro' date='' while not EOF(1) do begin readf,1,date,format='(a10)' printf,2,'spawn, ''echo ',+strmid(date,0,4)+strmid(date,5,2)+strmid(date,8,2)+' > dato'' ; printf,2,'.run OM_polar1' ; printf,2,'spawn,''gzip -9 '+date+'_sdw.ps''' printf,2,'.run OM_polar2' printf,2,'spawn,''/home/fch/multi/mpage-2.5/mpage -8 -M-20 '+date+'_sdw2.ps > '+date+'_m.ps''' printf,2,'spawn, ''rm -f '+date+'_sdw2.ps''' ; printf,2,'spawn, ''gzip -9 '+date+'_m.ps''' printf,2 endwhile printf,2,'exit' close,1,2 end