	LOGICAL*1 LINE(132)
	CALL FDBSET(1,'READONLY')
C
C NOTE THAT THE PROPER SYSTEM DEVICE, UIC, AND MESSAGE FILE NAME
C	MUST BE INSERTED IN THE FOLLOWING LINE:
	CALL ASSIGN(1,'DK0:[1,2]NEWS.TXT')
1	READ(1,2,END=99)L,(LINE(I),I=1,L)
	WRITE(2,3)(LINE(I),I=1,L)
	GO TO 1
2	FORMAT(Q,132A1)
3	FORMAT(1X,132A1)
C
99	STOP
	END
