C *** CONVER - CONVERTS ALFRED BINARY FILES TO TRANSPORTABLE FORMAT
C *
	BYTE KFILE(20),KDAT(17)
	DIMENSION DATA(10), IDATAL(10), IDATAH(10), KTITL(40)
C *
1000	WRITE(7,1010)
1010	FORMAT(/'$ENTER INPUT FILE NAME:')
	READ(5,1020) KFILE
1020	FORMAT(20A1)
	OPEN(UNIT=10,NAME=KFILE,TYPE='OLD',FORM='UNFORMATTED')
	WRITE(7,1030)
1030	FORMAT(/'$ENTER OUTPUT FILE NAME:')
	READ(5,1020) KFILE
	OPEN(UNIT=20,NAME=KFILE,TYPE='UNKNOWN',FORM='FORMATTED',
	1CARRIAGECONTROL='LIST')
C *
C *  READ THE TITLE
	READ(10) KTITL
	WRITE(7,2010) KTITL
2010	FORMAT(X,40A2)
	WRITE(20,2105) KTITL
2105	FORMAT(40A2)
C *
C *  READ THE DATE/TIME
	READ(10) KDAT
	WRITE(20,2107) KDAT
2107	FORMAT(17A1)
	WRITE(7,2109) KDAT
2109	FORMAT(X,17A1)
C *
C *  READ THE FILE PARAMETERS
	READ(10) (DATA(I),I=1,4)
	WRITE(20,2106) (DATA(I),I=1,4)
2106	FORMAT(4F10.4)
	CTIME = DATA(4)
	WRITE(7,2108) (DATA(I),I=1,4)
2108	FORMAT(X,4F10.4)
C *
C *  READ THE DATA
2050	READ(10,END=3000) DATA
	DO 2055 I=1,10
	COUNTS = AINT( CTIME * DATA(I) + 0.5 )
	CD1000 = AINT( COUNTS / 1000. )
	IDATAH(I) = INT( CD1000 )
	IDATAL(I) = INT( COUNTS - CD1000*1000. )
2055	CONTINUE
	WRITE(20,2060) ( IDATAH(JT),IDATAL(JT), JT=1,10 )
2060	FORMAT(10(I2,I3))
D	WRITE(7,9876)  DATA,(IDATAH(JT),IDATAL(JT),JT=1,10)
D9876	FORMAT(' ',10(F8.1),/,' ',10(I2,I3))
	GO TO 2050
C *
3000	CLOSE(UNIT=10)
	CLOSE(UNIT=20)
	END
