.程序集 窗口程序集_启动窗口
.程序集变量 fh, 整数型
.程序集变量 fj, 文本型
.程序集变量 gb1, 逻辑型
fh = 打开文件 (fj, 2, )
写出文本 (fh, 编辑框1.内容)
关闭文件 (fh)
.程序集变量 fh, 整数型
.程序集变量 fj, 文本型
.程序集变量 gb1, 逻辑型
fh = 打开文件 (fj, 2, )
写出文本 (fh, 编辑框1.内容)
关闭文件 (fh)
.子程序 _另存为_被选择
.如果真 (通用对话框2.打开 ())
fj = 通用对话框2.文件名
fh = 打开文件 (fj, #改读, )
写出文本 (fh, 编辑框1.内容)
关闭文件 (fh)
.如果真结束