一个FOXPRO for DOS下的程序执行进度指示器
ＤＯ ｗｏｒｋｉｎｇ ＷＩＴＨ 总次数，当前次数，提示１，提示２
#3 参数说明：
总次数 数值型
当前次数 数值型
值０ 指示器初始化
值－１ 清除指示器
指示１、指示２ 字符串，串长度不大于６０
#3 运行环境：
ＦＯＸＰＲＯ ２．５Ｂ ｆｏｒ ＤＯＳ
ＰＲＯＣ ｗｏｒｋｉｎｇ
ＰＡＲＡ ｍ．ｚｏｎｇ，ｍ．ｘｉａｎ，ｍ．ｔｉｓｈ１，ｍ．ｔｉｓｈ２
ＰＲＩＶ ｍ．ｂｆｂ，ｍ．ｂｆｂ－ｃｈ，ｍ．ｌｉｅ
#3 ＊格式化提示字符串＊
ｍ．ｔｉｓｈ１＝ＡＬＬＴ（ｍ．ｔｉｓｈ１）
ｍ．ｔｉｓｈ１＝ＩＩＦ（ＬＥＮ（ｍ．ｔｉｓｈ１）；＞６０，ＬＥＦＴ（ｍ．ｔｉｓｈ１，５８）＋＇…＇；ｍ．ｔｉｓｈ１＋ＳＰＡＣ（６０－ＬＥＮ；（ｍ．ｔｉｓｈ１）））
ｍ．ｔｉｓｈ２＝ＡＬＬＴ（ｍ．ｔｉｓｈ２）
ｍ．ｔｉｓｈ２＝ＩＩＦ（ＬＥＮ（ｍ．ｔｉｓｈ２）；＞６０，ＬＥＦＴ（ｍ．ｔｉｓｈ２，５８）＋＇…＇；ｍ．ｔｉｓｈ２＋ＳＰＡＣ（６０－ＬＥＮ（ｍ．ｔｉｓｈ２）））
#3 ＊计算执行程度百分比（ｍ．ｂｆｂ）＊
#3 ＊百分数（ｍ．ｂｆｂ－ｃｈ）的显示位置（ｍ．ｌｉｅ）＊
ｍ．ｂｆｂ＝ｍ．ｘｉａｎ／ｍ．ｚｏｎｇ＊１００＋０．２ ＆＆０．２是百分数舍入系数
ｍ．ｂｆｂ－ｃｈ＝ＬＴＲＩ（ＳＴＲ（ｍ．ｂｆｂ，３））
ｍ．ｌｉｅ＝ＩＩＦ（ｍ．ｂｆｂ＊０．６／２＜１，１，ＩＮＴ（ｍ．ｂｆｂ＊０．６／２））
＆＆显示在动态条的中间
#3 ＊指示器初始化＊
ＩＦ ｍ．ｘｉａｎ＝０ ＯＲ ！ＷＶＩＳ（＇ＪＤＷ＇）
ＤＥＦＩ ＷＩＮＤ ｊｄｗ ＡＴ １０，８ ＳＩＺＥ ３，６２ ＣＯＬＯ ＳＣＨＥ １０；
ＴＩＴＬ 执行进度指示器
ＮＯＦＬ ＮＯＧＲ ＮＯＺＯ
ＡＣＴＩ ＷＩＮＤ ｊｄｗ
＠２，１ ＳＡＹ ＳＰＡＣＥ（６０） ＣＯＬＯ Ｂ／Ｗ
＆＆白色条
ＥＮＤＩ
#3 ＊指示器的清除及运行＊
ＩＦ ｍ．ｚｏｎｇ＜ｍ．ｘｉａｎ ＯＲ ｍ．ｘｉａｎ＜０
？？ＣＨＲ（７）
＝ＩＮＫＥＹ（２）
ＲＥＬＥ ＷＩＮＤ ｊｄｗ
ＥＬＳＥ
ＡＣＴＩ ＷＩＮＤ ｊｄｗ
＠０，１ ＳＡＹ ｍ．ｔｉｓｈ１
＠１，１ ＳＡＹ ｍ．ｔｉｓｈ２
ＩＦ ｍ．ｂｆｂ＊０．６＜２
ＩＦ ＩＮＴ（ｍ．ｂｆｂ＊０．６）＝０
＠２，１ ＳＡＹ ｍ．ｂｆｂ－ｃｈ＋％＇ ＣＯＬＯ Ｂ／Ｗ
＠２，６１ ＳＡＹ ＇ ＇ ＆＆定位光标
ＥＬＳＥ
＠２，１ ＳＡＹ ｍ．ｂｆｂ－ｃｈ ＣＯＬＯ Ｗ／Ｂ
＠２，２ ＳＡＹ ＇％＇ ＣＯＬＯ Ｂ／Ｗ ＆＆反象显示字符
＠２，６１ ＳＡＹ ＇ ＇
ＥＮＤＩ
ＥＬＳＥ
＠２，１ ＳＡＹ ＳＰＡＣＥ（ＩＮＴ（ｍ．ｂｆｂ＊０．６）） ＣＯＬＯ
Ｗ／Ｂ
＠２，ｍ．ｌｉｅ ＳＡＹ ｍ．ｂｆｂ－ｃｈ＋＇％＇ ＣＯＬＯ Ｗ／Ｂ
＠２，６１ ＳＡＹ ＇ ＇
ＥＮＤＩ
ＥＮＤＩ
ＲＥＴＵ
#3 ＊调用举例＊
ＳＥＴ ＴＡＬＫ ＯＦＦ
ｍ．ｓｓ＝０
ｍ．ｅｅ＝１２０
ＦＯＲ ｍ．ｉ＝ｍ．ｓｓ ＴＯ ｍ．ｅｅ＋１
＝ＩＮＫＥＹ（１）
ＤＯ ｗｏｒｋｉｎｇ ＷＩＴＨ ｍ．ｅｅ，ｍ．ｉ；＇指示器运行举例…＇，ＳＴＲ（ｍ．ｅｅ，４）＋ＳＴＲ（ｍ．ｉ，４）
ＥＮＤＦ
ＳＥＴ ＴＡＬＫ ＯＮ
屏幕上显示一个有三行空间的窗口，第一和第二行为提示，第三行为长６０个字符的指示条。每一秒改变一次显示，每两秒蓝色指示条进一格，百分数随之改变。最后响铃提示，窗口清除。