.版本 2
.子程序 Group
.参数 文件名, 文本型
.参数 保存文件, 文本型
.局部变量 文件号1, 整数型
.局部变量 文件号2, 整数型
.局部变量 字节, 字节型
.局部变量 字节集, 字节集
文件号1 ＝ 打开文件 (文件名, , )
文件号2 ＝ 打开文件 (保存文件, 4, )
移到文件首 (文件号1)
移到文件首 (文件号2)
.判断循环首 (是否在文件尾 (文件号1, ) ＝ 假)
读入数据 (文件号1, 字节)
.如果 (位与 (字节, 1) ＝ 1)
字节 ＝ 字节 － 1
.否则
字节 ＝ 字节 ＋ 1
.如果结束
写出数据 (文件号2, 字节)
.判断循环尾 ()
关闭文件 (文件号1)
关闭文件 (文件号2)
信息框 (“完成”, 0, )