CHARACTER*75 ASTRING

1200	FORMAT(A)
1201	FORMAT(I4,x,A75)
	write(6,*)'Read a file as ascii strings. '
	write(6,*) 'Print out line number and the first 75'
	write(6,*) 'characters of the line.'


	N = 0
50	read(5,1200,end=85) ASTRING
	n=n+1
	write (6,1201)N,ASTRING
	goto 50
85	END