C ALTITUDE/ATTITUDE MANOMETER DISPLAY SUBROUTINE VERT(X,Y,N,M,Z) INTEGER X,Y,N,M,Z,L,Y1,X1,I IF (Z.LE.M) GO TO 10 Z=M 10 Z=M-Z L=MOD(Z,3)+1 Y1=Y+Z/3 X1=X CALL CURFOR(X1,Y1) DO 300 I=1,N GO TO(120,110,100)L 100 TYPE 200 GO TO 300 110 TYPE 210 GO TO 300 120 TYPE 220 300 CONTINUE RETURN 200 FORMAT ('+_'$) 210 FORMAT ('+-'$) 220 FORMAT ('+^'$) END