(***************** TEST RTP COMPILER ***************)
  
  (* ******************* Procedure on level 0 from TEST3F *****************)
  procedure p11(var b: boolean);




  var
  k: integer;
  begin
  k := 7;
  if k < 10 then b := true
  else b := false;
  end;
  
  function mult(i: integer): integer;


  begin
  mult := i * i;
  end;

  (********************* Function on level 0 for test3fa *************)
  
  function multbyadd(i: integer; j : integer): integer;
  begin
    if i = 0 THEN multbyadd := 0 
             ELSE
                 multbyadd := j + multbyadd(i - 1, j);
  end;
  
(*******************************************************************)



Procedure Writename(VAR z : Zone; INSPECT name : string);

begin
  WriteChar(z,CR);
  WriteChar(z,LF);
  WriteString(z,"   ");
  WriteString(z,name);
  WriteString(z,"    ");
End.