;
;Copyright 1996-2013 United States Government as represented by the
;Administrator of the National Aeronautics and Space Administration.
;All Rights Reserved.
; This software may be used, copied, or redistributed as long as it is not
; sold and this copyright notice is reproduced on each copy made.  This
; routine is provided as is without any express or implied warranties
; whatsoever.
;
pro cmb_string_list,a,n,more=more,lun=lun,format=format
if cmb_var_type(a) ne 'STRING' then return
if n_elements(n) eq 0 then n = n_elements(a)
for i=0,n-1 do print,i,' ',a[i]
if keyword_set(lun) then for i=0,n-1 do printf,lun,i,' ',a[i]
if keyword_set(more) then for i=0,n-1 do help,a[i]
end