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