IMPLICIT INTEGER (A-Y)
	CHARACTER*12 USER_NAME
	OPEN (UNIT=1,NAME='[7,7]MAILUSERS.DAT',TYPE='OLD',DISPOSE='SAVE')
5	CONTINUE
	READ(1,102,END=7) J
	GO TO 5
7	CONTINUE
	I=J+1
10	CONTINUE
	WRITE(5,100) I
100	FORMAT(' ENTER NAME OF USER',I4,': '$)
	READ(5,101,END=99) USER_NAME
101	FORMAT(A)
	WRITE(1,102) I,USER_NAME
102	FORMAT(I6,A)
	I=I+1
	GO TO 10
99	REWIND 1
200	READ(1,103,END=999) I,USER_NAME
103	FORMAT(I6,A)
	WRITE(5,104) I,USER_NAME
104	FORMAT(' READING, I: ',I7,' NAME: ',A)
	GOTO 200
999	STOP 'ALL DONE'
	END