C DISPLAY POWER/SPEED BAR GRAPH SUBROUTINE BAR(P,P0,Y) INTEGER I,P1,P0,P,EOL EOL="113 IF(P.LE.71) GO TO 750 P=71 750 IF(P.GE.0) GO TO 770 P=0 770 IF(P.EQ.P0) GO TO 820 IF(P.GT.P0) GO TO 800 CALL CURFOR(P,Y) CALL ERASE(EOL) GO TO 820 800 P1=P-P0 IF(P0.LE.71) GO TO 803 P=71 803 IF(P0.GE.0) GO TO 806 P0=0 806 CALL CURFOR(P0,Y) 809 DO 810 I=1,P1 TYPE 830 810 CONTINUE 820 RETURN 830 FORMAT('+>'$) END