.TITLE	F4010 - FINISH GRAPHICS ROUTINE
	.IDENT	/21NOV7/	;17:05, MK
;	.ENTRY	F4010 - FINISH GRAPHICS ROUTINE
;+
; F 4 0 1 0
;
; PURPOSE:	PART OF TEKTRONIX 4010 PLOTTING PACKAGE.
;		FINISH GRAPHICS ROUTINE.
;
;		THIS ROUTINE HOMES THE CURSOR AND WAITS FOR OUTPUT TO
;		FINISH.  IT THEN DETACHES THE TERMINAL AND TURNS OFF
;		COMMAND INPUT IF THE TERMINAL WAS ATTACHED BY CALLING
;		B4010.  IT SHOULD BE CALLED BEFORE EXITING FROM A TASK
;		THAT CALLED B4010 IN ORDER TO PREVENT AN 'EXIT WITH
;		PENDING I/O' MESSAGE FROM THE SYSTEM.
;
; INTERFACE:	CALLING SEQUENCE:  (FORTRAN-CALLABLE SUBROUTINE)
;			CALL F4010
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:	
;		MM/MK	WRITTEN
; 30-SEP-75	MK	MODIFIED TO INTERFACE WITH NEW CHO
; 26-JAN-77	NS	ADD HEADER INFORMATION
; 19-MAY-77	LV	UPDATED TO CONFORM TO STANDARDS
; 15-NOV-77	MK	ADD TERMINAL DETACH AND CHANGE DOCUMENTATION
; 18-NOV-77	MK	ADD MACRO CALL FOR DIR$
; 20-NOV-77	MK	RESET ATTACH FLAG WHEN DETACHING TERMINAL
; 
	.MCALL	DIR$
F4010::
	CALL	ENDPLT		;HOME THE CURSOR
	CALL	WTFOUT		;WAIT FOR OUTPUT TO FINISH
	DIR$	#CM.DET		;DETACH THE TERMINAL
	CLR	CM.ATF		;RESET ATTACH FLAG
	RETURN
	.END