C DISPLAY ARTIFICIAL HORIZIN - RIGHT BANK SUBROUTINE RIGHT(T) LOGICAL*1 W1,W2 T=1.0 W1=27 W2=9 CALL CURFOR(W1,W2) TYPE 800 W1=36 W2=9 CALL CURFOR(W1,W2) TYPE 820 W1=27 W2=7 CALL CURFOR(W1,W2) TYPE 820 W1=37 W2=8 CALL CURFOR(W1,W2) TYPE 810 W1=26 W2=8 CALL CURFOR(W1,W2) TYPE 810 W1=36 W2=7 CALL CURFOR(W1,W2) TYPE 800 RETURN 800 FORMAT ('+_-^'$) 810 FORMAT ('+ '$) 820 FORMAT ('+ '$) END