pro sho,begrec,nrec !ymax=14000. lin=bytarr(7680) a=assoc(1,bytarr(7680)) for i=begrec,nrec,50 do begin plot,lin t=a(i) print,'start=',t(0),fix(t,1),t(3),fix(t,16)+t(18),t(19),t(20),t(21) PRINT,'rec=',i for j=0,49 do begin const=(j+1)*260. k=j+i if k ge nrec then goto,finis r=a(k) if (k+1) mod 10 eq 0 then begin r(7677)=100. & r(7678)=100. & r(7679)=100. end oplot,r+13300.-const end finis: print,' |hco w' end return end