C CALCULATE & DISPLAY POWER (THRUST) SUBROUTINE POWER (B,B0) INTEGER Y,P0,P P=B*2 P0=B0*2 Y=18 CALL BAR (P,P0,Y) RETURN END