mtg=qgetfile('pgm/93120802.mtg')
npix2=N_ELEMENTS(mtg)
lastimg=fix(getwrd(mtg(npix2-1),0))
info0=npix2-lastimg-1
lose=23
keep=[indgen(info0),info0+lose+indgen(npix2-info0-lose)]
print,keep
STOP
mtg=mtg(keep)
putfile,'pgm/93120802.mtgf',mtg
end