PRO cam_filt,filters

; tell user what imaging modes and filters are available    
PRINT,"Num   Cam0 Filters            Cam1 Filters" 
wavelengths=STRARR(5) 
FOR i=0,4 DO BEGIN    
    wv=STRTRIM(filters(i),2) 
    tmp=STRMID(wv,0,STRPOS(wv,'nm')+2)
    wavelengths(i)=tmp+spc(24-STRLEN(tmp)) 
ENDFOR    
col2=wavelengths & maxlen2=MAX(STRLEN(col2)) 
FOR i=0,4 DO BEGIN 
    wv=STRTRIM(filters(i+5),2) 
    tmp=STRMID(wv,0,STRPOS(wv,'nm')+2)
    wavelengths(i)=tmp+spc(24-STRLEN(tmp)) 
ENDFOR    
col3=wavelengths & maxlen3=MAX(STRLEN(col3)) 
FOR i=0,4 DO BEGIN 
    line=STRING(i,col2(i),col3(i),FORMAT='(I1,5X,2A24)') 
    PRINT,line 
    ENDFOR 

RETURN
END