.版本 2
.支持库 spec
.子程序 _窗口1_创建完毕
.如果真 (文件是否存在 (取运行目录 () + “\temp.txt”) = 假)
写到文件 (取运行目录 () + “\temp.txt”, 到字节集 (“”))
调试输出 (“--------”)
.如果真结束
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.局部变量 文件内容, 文本型
文件号 = 打开文件 (取运行目录 () + “\temp.txt”, , )
.如果真 (编辑框1.内容 ≠ “”)
读入数据 (文件号, 文件内容)
' 移到文件尾 (文件号)
文件内容 = 文件内容 + 编辑框1.内容
写出数据 (文件号, 文件内容)
编辑框1.内容 = “”
.如果真结束
关闭文件 (文件号)
写到文件()