INTEGER BUFI(1)
	BYTE BUFS(7680),RNAME(80),WNAME(80)
	EQUIVALENCE (BUFS(1),BUFI(1))
10	CALL PRINTW('$INPUT FILENAME?  ')
	READ (5,3009,END=100)NR,(RNAME(I),I=1,NR)
20	CALL PRINTW('$OUTPUT FILENAME? ')
	READ (5,3009,END=100)NW,(WNAME(I),I=1,NW)
3009	FORMAT(Q,80A1)
	CALL ASSIGN(2,RNAME,NR)		!OPEN FILE FOR READ
	IF(IOPENW(WNAME,NW,3,'.TMP').LT.0)GOTO 20
30	DO 3650 I=1,3840,256
	   READ(2,ERR=3670,END=3660)(BUFI(N),N=I,I+255)
3650	CONTINUE
	IF(IWRITE(BUFI,7680,3).LT.0)GOTO 3670
	IF(IWAIT(3).LT.0)GOTO 3670
	GOTO 30
3660	CALL CLOSE(2)
	I=ICLOSE(3)
	GOTO 10
3670	CALL PRINT(' READ ERROR')
	GOTO 3660
100	STOP
	END