Class myfoo is a cClass

  Procedure Bar
    If (foo) ; // foo comment 
    Begin // begin comment 
      Showln ; // showln comment 
      ; // blank line comment 
      "bla" // bla comment 
    End 
  End_Procedure

// Commented out code, should not indent  procedure and stuff
//procedure test
//  move a to b
//end_Procedure

// this is supposed to indent
  Procedure anothertest
    String a b
    Move a to b
  End_Procedure  


End_Class