Improvement of Josh's code S=MIN(S,511)