C LEVEL ARTIFICIAL HORIZIN DISPLAY SUBROUTINE LEVEL(T) LOGICAL*1 W1,W2 T=0.0 W1=27 W2=7 CALL CURFOR(W1,W2) TYPE 800 W1=36 W2=9 CALL CURFOR(W1,W2) TYPE 800 W1=27 W2=9 CALL CURFOR(W1,W2) TYPE 800 W1=36 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 RETURN 800 FORMAT('+ '$) 810 FORMAT('+----'$) END