习语言例子（二）

 【例13.2从键盘输入一行字符，写入一个文件，再把该文件内容读出显示在屏幕上】
#包含 “习语言系统.接口”

整数类型 主函数（）
{  
  文件类型 *fp;
  整数类型 ch;      【注意这里要定义为整数，以便接受文件结束符号】
  如果((fp=文件打开("练习13-2.文本","写+"))==空指针)
  {
    格式输出("无法打开文件：练习13-2.文本！ ");
    暂停();
    退出(1);
  }
  格式输出("输入一串字符:/n");
  ch=输入字符();
  若符合条件 (ch != 宏_换行键 ) 重复
  {
    文件写字符(ch,fp);
    ch=输入字符();
  }
  文件复位(fp);
  ch=文件读字符(fp);
  若符合条件(ch!= 宏_文件结束 ) 重复
  {
    输出字符(ch);
    ch=文件读字符(fp);
  }
  格式输出("/n");
  文件关闭(fp);
  暂停（）；
  返回 0;
}