PROGRAM renumpdb

	CHARACTER*66	line

	WRITE (6, 1000) 'Enter input file:'
1000	FORMAT (a)
	READ (5, 1000) line
	OPEN (unit=1, file=line, form='FORMATTED', status='OLD',
	1	readonly)

	WRITE (6, 1000) 'Enter output file:'
	READ (5, 1000) line
	OPEN (unit=2, file=line, form='FORMATTED', status='NEW',
	1	carriagecontrol='LIST')

	n = 0
	DO WHILE (.TRUE.)
	  READ (1, 1000, end=9) line
	  n = n + 1
	  WRITE (line(7:11), 1001) n
1001	  FORMAT (i5)
	  WRITE (2, 1000) line
	endDO

9	CLOSE (unit=1)
	CLOSE (unit=2)
	end