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

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

  Iterate
 ;
;
