C ALTITUDE/ATTITUDE DISPLAY AUXILIARY ROUTINE SUBROUTINE VERTCL(X,Y,N,M,Z) INTEGER X,Y,N,M,Z,X1,Y1,I IF (Z.LE.M) GO TO 10 Z=M 10 Z=M-Z Y1=Y+Z/3 X1=X CALL CURFOR(X1,Y1) DO 100 I=1,N TYPE 200 100 CONTINUE RETURN 200 FORMAT ('+ '$) END