(***************** 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 : inoutZone; INSPECT name : string);

(*  procedure outnl (var z: zone); external;*)

begin
  WriteChar(z,' ');
---$IF target = rc3502
---  outnl(z.oz);
---$ELSE
  WriteChar(z,CR);
  WriteChar(z,LF);
---$ENDIF
  WriteString(z,"   ");
  WriteString(z,name);
  WriteString(z,"    ");
End.