ux2dos.for

本源码将UNIX文档转为WINDOWS文本

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