C
C
	PROGRAM UX2DOS
	INTEGER (KIND=1) IC2(256)
	INTEGER (KIND=2) IC,K
	CHARACTER (LEN=32) F1,F2
	CHARACTER (LEN=256) IC1
	CHARACTER (LEN=80) CH
	WRITE(*,'(///A)') ' 本程序將UNIX文本文件轉為WINDOWS文本文件'
	WRITE(*,'(/A)')' 用法：直接雙擊UX2DOS,然后輸入UNIX文件名'
	WRITE(*,'(/A)')'       然后回車。結果文件名為原文件名+.TXT'
	WRITE(*,'(//A)') ' 若此程序有不足之處，請與作者鄧永富聯系'
	WRITE(*,'(//(A)\)')' 鍵入 UNIX 文件名:'
	READ(*,'(A)') F1
	OPEN(16,FILE=F1,FORM='BINARY',STATUS='OLD')
	K=INDEX(F1,'.')-1
	IF (K .LE. 0) K=INDEX(F1,' ')-1
	F2=F1(1:K)//'.TXT'
	OPEN(18,FILE=F2,STATUS='UNKNOWN')
	IC=1
 8	READ(16,END=88) IC2(IC)
	IC1(IC:IC)=CHAR(IC2(IC))
	IF (IC2(IC) .EQ. 10) THEN
	WRITE(18,'(A)')IC1(1:IC-1)
	IC=1
	ELSE
	IC=IC+1
	END IF
	GO TO 8
 88	CLOSE(16)
	CLOSE(18)
	END