FUNCTION eis_remove_commented_lines ,array , comment


r = WHERE(STRMID(array , 0 , 2) EQ comment                  ,    $
                                   count                    ,    $
                                   complement  = complement ,    $
                                   ncomplement = n)

IF (count EQ 0) THEN RETURN , array


RETURN , array[complement]

END