无模块API内存读写例程

.如果 (申请大小 － 已用内存 ＞ 0)
写到内存 (到字节集 (文本), 内存指针, 内存指针) ' 把数据写到内存，超出长度自动截掉
写入长度 ＝ 取文本长度 (文本)
内存指针 ＝ 内存指针 ＋ 写入长度
已用内存 ＝ 已用内存 ＋ 写入长度
标签3.标题 ＝ “申请内存剩余：” ＋ 到文本 (申请大小 － 已用内存)
.否则
信息框 (“内存已满！不能继续写入”, 0, )