.版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 申请大小, 整数型 .程序集变量 写入长度, 整数型 .程序集变量 已用内存, 整数型 .程序集变量 内存首地址, 整数型 .程序集变量 内存指针, 整数型 .程序集变量 新文本, 字节集 .程序集变量 文本, 文本型 .子程序 __启动窗口_创建完毕 申请大小 ＝ 100 内存首地址 ＝ 申请内存 (申请大小, 真) ' 申请内存 内存指针 ＝ GlobalLock (内存首地址) ' 锁定内存 文本 ＝ 编辑框1.内容 .子程序 _编辑框1_内容被改变 文本 ＝ 编辑框1.内容 .子程序 _按钮1_被单击 .如果 (申请大小 － 已用内存 ＞ 0) 写到内存 (到字节集 (文本), 内存指针, 内存指针) ' 把数据写到内存，超出长度自动截掉 写入长度 ＝ 取文本长度 (文本) 内存指针 ＝ 内存指针 ＋ 写入长度 已用内存 ＝ 已用内存 ＋ 写入长度 标签3.标题 ＝ “申请内存剩余：” ＋ 到文本 (申请大小 － 已用内存) .否则 信息框 (“内存已满！不能继续写入”, 0, ) .如果结束 .子程序 _按钮2_被单击 新文本 ＝ 取空白字节集 (申请大小) CopyMemory (新文本, 内存首地址, 申请大小) ' 复制内存里面的数据 编辑框2.内容 ＝ 到文本 (新文本) .子程序 __启动窗口_将被销毁 ' 以下两行代码为了防止内存泄露 GlobalUnlock (内存首地址) ' 解锁内存 GlobalFree (内存首地址) ' 释放内存 .子程序 _按钮3_被单击 已用内存 ＝ 0 内存指针 ＝ GlobalLock (内存首地址) ' 锁定内存 写到内存 (取空白字节集 (申请大小), 内存指针, 内存指针) 文本 ＝ 编辑框1.内容