[NTG-context] Algorithms in ConTeXt

Hi, I'd like to ask yet another "LaTeX in ConTeXt" question. Is there something like the algorithm package? It can typeset pseudocode like in the attached graphic. I sort of like the rules on the left side that indicate the scope of the for/while/case statements. Patrick