.版本 2
.子程序 遍历队员
.局部变量 队员位置, 整数型
.局部变量 队员ID, 短整数型
.局部变量 队员名称, 文本型
.局部变量 队员格子, 整数型
.局部变量 成员数, 整数型
.计次循环首 (8, 队员格子)
队员位置 ＝ 内存_读整数型 (全局_进程句柄, (队员格子 － 1) × 4 ＋ 全局_队员基址)
.如果真 (队员位置 ≤ 0)
到循环尾 ()
.如果真结束
队员ID ＝ 内存_读短整数型 (全局_进程句柄, 队员位置 ＋ #组队_队员ID)
队员名称 ＝ 编码_BIG5到简体 (内存_读文本型 (全局_进程句柄, 队员位置 ＋ #组队_队员名称))
.如果真 (队员名称 ≠ "")
挂机信息.加入文本 (自定义时间 () ＋ "*****************" ＋ #换行符)
挂机信息.加入文本 (自定义时间 () ＋ "队员格号：" ＋ 到文本 (队员格子) ＋ #换行符)
挂机信息.加入文本 (自定义时间 () ＋ "队员ID：" ＋ 到文本 (队员ID) ＋ #换行符)
挂机信息.加入文本 (自定义时间 () ＋ "队员名称：" ＋ 队员名称 ＋ #换行符)
成员数 ＝ 成员数 ＋ 1
.如果真结束
.计次循环尾 ()
挂机信息.加入文本 (自定义时间 () ＋ "遍历完成，共 " ＋ 到文本 (成员数) ＋ " 人" ＋ #换行符 ＋ #换行符)