data raw(keep=x);
    retain english;
    length x english temp $20;
    infile 'c:\bisai.txt' dlm='0D'x lrecl=32767 obs=50;
    input;
    _infile_=ktranslate(_infile_,' ',"，。；：“”’（）—－％．＝、／？[]");
    if not missing(_infile_) then do i=1 to klength(_infile_);
        x=ksubstr(_infile_,i,1);
        if not anyalnum(x) then do;
            if not missing(english) then do;
                temp=x;
                x=english;
                output;
                x=temp;
                call missing(english);
            end;
            if not missing(x) then output;
        end;
        else english=cats(english,x);
    end;
run;
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
版权归：徐欣宇， E-mail: hopewell@vip.sina.com
评论： 达到了目标，然而对于分行没有处理是一个缺憾。
            程序可读性很好，缺少了相关注释（也许是太急），如果加上注释达到了完美。
           参赛热心和学术分数很高，帮我们证明了中文是可以读取的。二等奖+热心分数5+学术分数5
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
上面是暂定的。最终结果将结合论坛会员的评论做最后的结论。