{ Main Program Compilation Unit - Source on SIX1.PAM }

partitioned program six1;
  const header = 'This is procedure ';
  type procname = string[10];
  var level: integer;
  segment procedure aa;
    separate;
  segment procedure bb;
    separate;
  segment procedure cc;
    separate;
  function increment(i: integer): integer;
    begin
      writeln('   level: ',i:3);
      increment := i + 1;
    end; { increment }

  begin { six1 }
    level := 1;
    write('This is the main program');
    level := increment(level);
    aa;
  end. { six1 }