C CALCULATE & DISPLAY ATTITUDE (CLIMB/DESCEND) SUBROUTINE ATT(A,A0) INTEGER Z IF (A.EQ.A0)GO TO 100 Z=A0+3 IF (Z.GE.1) GO TO 30 Z=1 30 CALL VERTCL(31,5,5,21,Z) Z=A+3 IF (Z.GE.1) GO TO 50 Z=1 50 CALL VERT(31,5,5,21,Z) 100 RETURN END