.版本 2 .支持库 iext .支持库 iext2 .程序集 窗口程序集2 .子程序 _窗口1_创建完毕 窗口1.可视 ＝ 真 ' 更换界面 (10) 打开 (取运行目录 () ＋ “\SjhGame.EDB”, , 真, , , , ) 置当前库 (“SjhGame”) 到首记录 () 在线游戏 () 窗口1.销毁 () .如果真 (取屏幕宽度 () ≤ 800) _启动窗口.位置 ＝ #最大化激活 .如果真结束 .子程序 在线游戏 .局部变量 图片组, 字节集 .局部变量 文件名, 文本型 .局部变量 图片索引, 整数型 _启动窗口.超级列表框1.全部删除 () 图片组 ＝ 建空图片组 (32, 32) 到首记录 () .计次循环首 (取记录数 (), ) .如果真 (读 (“分类”) ＝ “在线游戏” ＝ 真) .如果真 (读 (“显示”) ＝ “是” ＝ 真) 文件名 ＝ 读 (“游戏名称”) 图片索引 ＝ 提取加入图片 (图片组, 读 (“游戏图标”), ) _启动窗口.超级列表框1.插入表项 (, 文件名, 图片索引, , , 取记录号 ()) .如果真结束 .如果真结束 跳过 () .计次循环尾 () _启动窗口.超级列表框1.图片组 ＝ 图片组