%SYSTEMROUTINE PPROFILE(%INTEGER A,B)
%INTEGER LINES,V,I,J,MAX,MAXMAX
      LINES=A&X'FFFF'-1
      MAX=0
      %CYCLE I=1,1,LINES
         %IF INTEGER(B+4*I)>MAX %THEN MAX=INTEGER(B+4*I)
      %REPEAT
      MAXMAX=MAX
      MAX=1+MAX//40;                 ! TWO&AHALF PER CENT
      %CYCLE I=1,1,LINES
         V=INTEGER(B+4*I)
         %IF V>=MAX %THEN %START
            WRITE(I,4)
            J=I
            %WHILE INTEGER(B+4*J+4)=V %THEN J=J+1
            %IF J#I %THEN PRINTSTRING("->") %AND WRITE(J,4) %C
                  %ELSE SPACES(7)
            I=J
            WRITE(V,6)
            %IF V=MAXMAX %THEN PRINTSTRING("   ***")
            NEWLINE
         %FINISH
      %REPEAT
      %CYCLE I=1,1,LINES
         INTEGER(B+4*I)=0
      %REPEAT
%END
%ENDOFFILE