C CALCULATE & DISPLAY AIRSPEED SUBROUTINE SPEED (V,V0) INTEGER Y,P0,P P=V/4 P0=V0/4 IF(P0.GE.0)GO TO 10 P0=0 10 Y=15 CALL BAR(P,P0,Y) RETURN END