%externalROUTINE PPROFILE %alias "S#PPROFILE"(%INTEGER tabad)
%INTEGER LINES,V,I,J,MAX,MAXMAX
      LINES=integer(tabad)
      MAX=0
      %CYCLE I=1,1,LINES
         %IF INTEGER(tabad+4*I)>MAX %THEN MAX=INTEGER(tabad+4*I)
      %REPEAT
      MAXMAX=MAX
      MAX=1+MAX//40;                 ! TWO&AHALF PER CENT
      %CYCLE I=1,1,LINES
         V=INTEGER(tabad+4*I)
         %IF V>=MAX %THEN %START
            WRITE(I,4)
            J=I
            J=J+1 %WHILE INTEGER(tabad+4*J+4)=V
            %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(tabad+4*I)=0
      %REPEAT
%END
%ENDOFFILE