- .版本 2
- .子程序 文件是否为易文件, 逻辑型
- .参数 欲测试文件名, 文本型
- .局部变量 数据_字节集, 字节集
- 数据_字节集 = 读入文件 (欲测试文件名)
- ' 调试输出 (数据_字节集)
- .如果真 (删全部空 (到文本 (数据_字节集)) = “”)
- 返回 (假)
- .如果真结束
- .如果真 (到文本 (取字节集中间 (数据_字节集, 1, 8)) ≠ “CNWTEPRG”)
- ' 调试输出 (到文本 (取字节集中间 (数据_字节集, 1, 8)))
- 返回 (假)
- .如果真结束
- ' 调试输出 (到文本 (取字节集中间 (数据_字节集, 1, 8)))
- 返回 (真)