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