把4字节的整数，随机放进8字节的长整数的4个位置

.子程序 取长整数, 整数型, 公开, 把一个4字节的整数，从长整数指针里取出来
.参数 目标, 长整数型
.参数 位置描述, 文本型, , 00000000 一个字节代表一个0，选中未知更换为1即可。 01010011
.局部变量 位置, 整数型
.局部变量 数据, 字节集
.局部变量 p, 整数型
p ＝ 申请内存 (8, )
内存.写字节集 (进程_取自进程ID (), p, 到字节集 (目标))
.计次循环首 (4, ) ' 取得位置
位置 ＝ 寻找文本 (位置描述, “1”, 位置 ＋ 1, 假)
数据 ＝ 数据 ＋ 指针_到字节集 (p ＋ 位置 － 1, 1) ' 减1是因为寻找文本起始为1，而指针是从0开始计算的
.计次循环尾 ()
释放内存 (p)
返回 (取字节集数据 (数据, #整数型, 1))