Do i = 1 to Lines._
 - Trim >Command< Lines.i "\r\n" STR_RIGHT

 If Command <> ';.' then
  - Parser >Control_flow< Command,
    Processor Control_flow

  Iterate
 Else
  Leave
 ;
;
