	PROGRAM DCOPY
	COMMON ITS
	LOGICAL*1 ITS(2)
	JP=MODP(ITS)
1000	TYPE 1
1	FORMAT('0PLACE DISK TO BE COPIED IN DRIVE 0,'
	1' AND COPY DISK IN DRIVE 1',/,' WHEN READY TYPE GO-',$)
	ACCEPT 2,I
2	FORMAT(A2)
	DO 100 II=1,7
	IT=(II-1)*11
	IP=JP
	DO 10 IL=1,11
	I=IT+IL-1
	DO 10 JS=2,1,-1
	DO 10 J=JS,26,2
	IE=0
3	L=IREAD(I,J,ITS(IP))
	IF(L.EQ.0)GO TO 10
	IE=IE+1
	IF(IE.LE.20)GO TO 3
	IE=0
	TYPE 4,I,J
4	FORMAT(' ERROR WHILE READING TRACK',I3,', SECTOR',I3,
	1' REREAD (Y=1,N=0)?',$)
	ACCEPT 5,K
5	FORMAT(I1)
	IF(K.NE.0)GO TO 3
10	IP=IP+128
	IP=JP
	DO 20 IL=1,11
	I=IT+IL-1
	DO 20 JS=2,1,-1
	DO 20 J=JS,26,2
6	L=IWRITE(I,J,ITS(IP))
	IF(L.EQ.0)GO TO 20
	TYPE 7,I,J
7	FORMAT(' ERROR WHILE WRITING TRACK',I3,', SECTOR',
	1I3,' REWRITE (Y=1,N=0)?',$)
	ACCEPT 5,K
	IF(K.NE.0)GO TO 6
20	IP=IP+128
100	CONTINUE
	TYPE 25
25	FORMAT(' DONE -- MORE? (Y=1,N=0)',$)
	ACCEPT 5,K
	IF(K.NE.0)GO TO 1000
	TYPE 50
50	FORMAT('0DONE -- REMOVE DISKS AND REPLACE WITH FORTRAN',
	1' SYSTEM DISK',/,' WHEN READY TYPE GO-',$)
	ACCEPT 2,I
	END
