! DISPLAY\CATALOG ?
!     List the spectral line data bases
if pro%narg.gt.1 then
  HELP CATALOG &2
  return
endif
!
defin intege nd 
if .not.exist(linedb%dbin) then
  SAY 'ansi%bold'"W-CATALOG, No Line Data base "'ansi%none'
  return
endif
!
SAY "Current Catalog Controls" 
SAY " "
if (linedb%astro) then
  SAY "Astro-format Catalog   LINEDB%DBIN["'1'"]   "'ansi%blue''linedb%dbin[1]''ansi%none'
else
  let nd size(linedb%dbin)
  for i 1 to nd
    SAY "Data Base Name         LINEDB%DBIN["'i'"]   "'ansi%red''linedb%dbin[i]''ansi%none'
  next
  SAY  "Max Upper State Energy LINEDB%ENERGY    "'ansi%red''linedb%energy'" K"'ansi%none'
endif
