.TITLE	RDSCR
	.IDENT	/V01.7/
;
; RD$SCR - READ A LINE FROM THE SCRATCH FILE
;
; Modifications Record:
; =====================
; V01.7	2-Oct-86 CJD
;	Just CLOSE$ scratch file -- deleted automatically because opened
;	  by OPNT$D

	.MCALL	GET$,CLOSE$							;V01.7
;
RD$SCR::MOV	#ERR12,MESNO
	GET$	#SCRFDB,#MACPS,#84.
	BCS	10$
	MOV	F.NRBD(R0),MACLEN
	ADD	#MACPS,MACLEN
	CLC
	BR	30$
10$:	CMPB	#IE.EOF,F.ERR(R0)
	BEQ	20$
	CALL	MOCALL
20$:	MOV	#ERR13,MESNO
	CLOSE$	#SCRFDB								;V01.7
	BCC	25$
	CALL	MOCALL
25$:	SEC
30$:	RTS	PC
;
	.END