.TITLE	LININN - CONTINUE TEXT LINE INPUT ROUTINE
	.IDENT	/18NOV7/	;16:45, MK
;	.ENTRY	LININN - SAME AS COMMENT ON TITLE
;+
; L I N I N N
;
; PURPOSE:	CONTINUE TEXT LINE INPUT ROUTINE - PART OF
;		TEKTRONIX 4010 PLOTTING PACKAGE.
;
; INTERFACE:	CALLING SEQUENCE: (FORTRAN-CALLABLE SUBROUTINE)
;		INPUT:	LINE = ARRAY TO RECEIVE INPUT STRING.
;			N(INTEGER) = NUMBER OF CHARACTERS TO RECEIVE.
;
; METHOD:	SAME AS LININ, EXCEPT THAT NO PROMPT SEQUENCE
;		IS OUTPUT
;
; LANGUAGE:	MACRO-11
;-
; REVISIONS:
; 26-JAN-77	MM/MK	WRITTEN
; 26-JAN-77	NS	ADD HEADER INFORMATION. 
; 27-MAY-77	EM	UPDATED TO CONFORM TO STANDARDS
; 18-NOV-77	MK	ADD IHAR$S MACRO CALL
;
	.MCALL	PUSH,POP,IHAR$S
LININN::PUSH	<R0,R1,R2,R3>
	IHAR$S
	MOV	CH.IN,R0
	MOVB	#US,(R0)+
	JMP	LININ2
	.END