C
 	CHARACTER INF*20,OUTF*20,LABEL*12,NUM*12,X*12,Y*12,Z*12
C
C	Program TOPFMT
C		Written: 6/93  Lee Liberty
C
	print *,' This program converts the raw TOPCON files to'
	print *,'      a column based format (5A12)'
	print *,'	   File #,X,Y,Z,Label'
C
C	Enter file names
C
6	WRITE(6,*) 'Input raw TOPCON file'
	READ(5,'(A20)',ERR=6)INF
8	WRITE(6,*) 'Enter NEW output file'
	READ(5,'(A20)',ERR=8)OUTF
	OPEN(UNIT=1,FILE=INF,FORM='FORMATTED',STATUS='OLD',ERR=6)
        OPEN(UNIT=2,FILE=OUTF,FORM='FORMATTED',STATUS='NEW',ERR=6)
C
C	Read in the data one line at a time 
C
100	READ (1,120,ERR=1000) NUM
120     FORMAT (A12)
	READ (1,120,ERR=1000,END=1000) X
	READ (1,120,ERR=1000,END=1000) Y
	READ (1,120,ERR=1000,END=1000) Z
	READ (1,120,ERR=1000,END=1000) LABEL
	WRITE(2,150) NUM,X,Y,Z,LABEL
150	FORMAT (5A12)
	GOTO 100
1000    CLOSE(UNIT=2,STATUS='KEEP')
	CLOSE(UNIT=1)
	PRINT *,'File Transformation Complete'
1001    STOP
        END