RD:		MOV AH, 3FH
		MOV CX, 7FH
		MOV DX, OFFSET INPUT+1
		MOV BX, [INFILE]
		INT 21H
		JC RDX
		OR AX, AX
		JZ RD0
		MOV DX, AX
		MOV CX, AX
		MOV DI, OFFSET INPUT+1
		MOV AL, 0DH
		CLD
	REPNZ	SCASB
		JNZ NINC
		CMP BYTE PTR [DI], 0AH
		JNZ NINC
		INC DI
NINC:		MOV AX, DI
		SUB AX, OFFSET INPUT+1
		MOV [INPUT], AL
		PUSH AX
		NEG AX
		ADD AX, DX
		NEG AX
		CWD
		MOV CX, DX
		MOV DX, AX
		MOV AX, 4201H
		MOV BX, [INFILE]
		INT 21H
		POP AX
		JC RDX
		CLC
		RET
RD0:		XOR AX, AX
		CLC
RDX:		RET
