PROGRAM		CKSUM1

	REAL*4		TIME
	INTEGER*2	SUMADD,SUMEOR
	INTEGER*2	BUF1(256)

	OPEN	(UNIT=1,FILE='TEST.DAT',STATUS='OLD',RECORDTYPE='FIXED',
	1	ACCESS='SEQUENTIAL',FORM='UNFORMATTED')

	SUMADD = 0
	SUMEOR = 0
	TIME   = SECNDS(0.0)

  100	READ (1,ERR=999) BUF1
	DO 110 I = 1,256
 		SUMADD = SUMADD + BUF1(I)
		SUMEOR = IEOR(SUMEOR,BUF1(I))
  110		CONTINUE
	GOTO 100

  999	TIME = SECNDS(TIME)
	WRITE  (5,1000) TIME,SUMADD,SUMEOR
 1000	FORMAT (' Elapse seconds = ',F6.2,' Checksums = ',O6,1X,O6)
	STOP
	END