{ Component 1 Compilation Unit - Source on SIX1.PA1 }

component six1c1;
  segment procedure aa;
    var name: procname;
    begin
      name := 'aa';
      write(header,name);
      level := increment(level);
      bb;
    end; { aa }

  begin
  end. { six1c1 }