function gtab_entry, itab0, fid=fid, itab=itab
;
;+
;NAME:
;       gtab_entry
;PURPOSE:
;       Extract the sequence table information for the entry table.
;CALLING SEQUENCE:
;       print, gtab_entry(150)
;       print, gtab_entry(roadmap(0))
;INPUT:
;       itab0   - Table number to display
;                       (or)
;                 A structure which has the sequence table and entry table
;                 that is used for a particular image.  The index and roadmap
;                 can be used.
;OPTONAL INPUT:
;       fid  - The user can specify a specific table by passing the fileid
;OUTPUT:
;       returns - A string array with the information on what parameters were
;                 used in the SXT sequence table.
;OPTONAL OUTPUT:
;       itab    - The table serial number selected
;HISTORY:
;       Written Nov-91 by M.Morrison
;	21-Nov-91 (MDM) - Added "fid" and "itab" options
;	 7-Jul-92 (MDM) - Added printing out comment lines of table load
;-
;
infil = gtab_file(itab0, ientry0, table=table, itab=itab, fid=fid, headline=headline)
table = fix(table)	;convert to integer so that "string" work properly
;
if (infil eq '') then begin
    print, 'EXITING GTAB_ENTRY:
    return, ' '
end
;
out = strarr(10)
;
off = 0
out(0) = '****** Table # ' + strtrim(itab,2) + ' (File: ' + infil + ')'
out(1) = '-------------------------------- Entry Tables --------------------------------'
out(2) = '                                                                              '
out(3) = '       QT/Hi  FFI Seq #'+ string(table(off+0))
out(4) = '       QT/Hi  PFI Seq #'+ string(table(off+1))
out(5) = '       QT/Med FFI Seq #'+ string(table(off+2))
out(6) = '       QT/Med PFI Seq #'+ string(table(off+3))
out(7) = '                       '
out(8) = '       FL/Hi  PFI Seq #'+ string(table(off+5))
out(9) = '       FL/Med PFI Seq #'+ string(table(off+7))
out = [headline, out(1:*)]
;
for i=0,n_elements(out)-1 do begin
    out(i) = strmid(out(i) + '                                                      ', 0, 78)
end
return, out
end