Paradox数据库操作例程，字节集算法

.如果真 (当前位 ＝ 滚动位置)
返回 ()
.如果真结束
.计次循环首 (50, i)
c ＝ 滚动位置 × 10 ＋ i
' 动画框1.置图片 (句柄 [i], 指针到字节集 (转换地址3, 读图类.读图 (c)), -2)
' 动画框1.缩放 (句柄 [i], 1000, 1000)
动画框1.置文本 (句柄2 [i], 到文本 (c － 1), , )
.计次循环尾 ()

.计次循环首 (块数, i)
下一块 ＝ 下一块 ＋ 1
上一块 ＝ 上一块 ＋ 1
写到内存 (下一块, 存盘地址 ＋ i × 数据块尺寸, )
写到内存 (上一块, 存盘地址 ＋ i × 数据块尺寸 ＋ 2, )
写到内存 (块长度, 存盘地址 ＋ i × 数据块尺寸 ＋ 4, )
复制内存 (存盘地址 ＋ i × 数据块尺寸 ＋ 6, 数据地址2 ＋ (i － 1) × 每块数, 每块数)
.计次循环尾 ()
.如果真 (余数 ＞ 0)
块数 ＝ 块数 ＋ 1
写到内存 ({ 0, 0 }, 存盘地址 ＋ 块数 × 数据块尺寸, )
写到内存 (到短整数 (块数 － 1), 存盘地址 ＋ 块数 × 数据块尺寸 ＋ 2, )
写到内存 (到短整数 ((余数 － 1) × 记录长度), 存盘地址 ＋ 块数 × 数据块尺寸 ＋ 4, )
复制内存 (存盘地址 ＋ 块数 × 数据块尺寸 ＋ 6, 数据地址2 ＋ (块数 － 1) × 每块数, 余数 × 记录长度)
总长度 ＝ 块数 × 数据块尺寸 ＋ 2048
写到文件 (库名, 指针到字节集 (存盘地址, 总长度))
返回 (真)
.如果真结束
写到内存 ({ 0, 0 }, 存盘地址 ＋ 块数 × 数据块尺寸, )
写到内存 (到短整数 (块数 － 1), 存盘地址 ＋ 块数 × 数据块尺寸 ＋ 2, )
总长度 ＝ 块数 × 数据块尺寸 ＋ 2048
写到文件 (库名, 指针到字节集 (存盘地址, 总长度))
释放内存 (存盘地址)