打印针检测工具
#3 功能：
检测所有打印针或任意指定８根以下的打印针。
#3 用法：
ＴＥＳＴＰＲＮ ［Ｎ１］ ［Ｎ２］ ［Ｎ３］ ［Ｎ４］ ［Ｎ５］ ［Ｎ６］
［Ｎ７］ ［Ｎ８］
#3 其中：
Ｎｉ为任意指定的打印针号，范围为１～２４（从上至下）。
如果只有一个参数且为“／？”，则提示帮助信息；若无参数则默认检测所有打印针。
#3 程序说明：
该程序通过调用打印机图象控制命令实现单针打印，其命令格式为：“ＥＳＣ ＊ Ｍ Ｎ１ Ｎ２ ＤＡＴＡ”，其中Ｍ表示图象选择，Ｎ１和Ｎ２表示打印列数，总列数为：Ｎ１＋Ｎ２×２５５，ＤＡＴＡ为打印数据，具体请参照有关打印机使用手册。程序所用的图象控制信息和打印数据分别存于数组ＳＴＲ１［］和ＳＴＲ２［］中。ＳＴＲ１［］中内容用户可根据需要自行修改。本程序在ＤＯＳ ６．２２下，对ＬＱ－１６００Ｋ、ＬＱ－１９００Ｋ、ＮＥＣ－Ｐ８０００等打印机进行测试，效果良好。注意：如果在ＵＣＤＯＳ、ＣＣＤＯＳ等汉字系统下运行，请先卸下打印驱动程序，否则将不能正常检测。
#3 程序清单如下：＜文件名：ＴＥＳＴＰＲＮ．Ｃ＞
／＊快速检测打印针程序＊／
＃ｉｎｃｌｕｄｅ ＂ｓｔｄｉｏ．ｈ＂
＃ｉｎｃｌｕｄｅ ＂ｓｔｄｌｉｂ．ｈ＂
ｉｎｔ ｎ＝１；
ＦＩＬＥ ＊ｆｐｒｎ；
ｍａｉｎ（ａｒｇｃ，ａｒｇｖ）
ｉｎｔ ａｒｇｃ；
ｃｈａｒ ＊ａｒｇｖ［］；
｛ｉｎｔ ｉ，ｊ，ｋ，ｌ，ｎ１，ｎ２，ｆｌａｇ＝０；
ｆｐｒｎ＝ｆｏｐｅｎ（＂ＰＲＮ＂，＂ｗ＂）；
ｉｆ （ａｒｇｃ＜２）
ｆｏｒ （ｉ＝０；ｉ＜３；ｉ＋＋）
｛ ｆｏｒ （ｊ＝０；ｊ＜８；ｊ＋＋） ／＊调用检测子程序＊／
｛ ｔｅｓｔ（ｉ，ｊ，ｆｌａｇ）；｝｝
ｅｌｓｅ
｛ｆｏｒ（ｋ＝１；ｋ＜ａｒｇｃ；ｋ＋＋）
｛ ／＊转换命令行参数为整形数＊／
ｌ＝ａｔｏｉ（ａｒｇｖ［ｋ］）；
ｉｆ（（ａｒｇｃ＝＝２）＆＆（！（ａｔｒｃｍｐ（ａｒｇｖ［１］，＂／？＂）））｜｜（ａｒｇｃ＞９）｜｜ｌ＜１｜｜ｌ＞２４）
｛ ／＊参数错误显示帮助信息＊／
ｈｅｌｐ（）；
ｅｘｉｔ（０）；｝｝
ｆｌａｇ＝１；
ｆｏｒ（ｋ＝１；ｋ＜ａｒｇｃ；ｋ＋＋）
｛ｌ＝ａｔｏｉ（ａｒｇｖ［ｋ］）；
ｎ１＝１／８；
ｎ２＝１％８；
ｔｅｓｔ（ｎ１，ｎ２，ｆｌａｇ）；
｝｝
ｆｐｒｉｎｔ（ｆｐｒｎ，＂＼ｎ＂）；
ｆｃｌｏｓｅ（ｆｐｒｎ）；｝
ｔｅｓｔ（ｘ，ｙ，ｚ） ／＊检测子程序＊／
ｉｎｔ ｘ，ｙ，ｚ；
｛ｉｎｔ ｋ，ｌ，ｍ； ／＊图象命令控制信息＊／
ｃｈａｒ ｓｔｒ１［］＝｛２７，４２，３２，４０，１，ＮＵＬＬ｝；
／＊用于存放打印数据＊／
ｃｈａｒ ｓｔｒ２［３］； ／＊产生各打印针编码＊／
ｓｔｒ２［ｘ］＝１２８＞＞ｙ；
ｓｗｉｔｃｈ（ｘ）
｛ｃａｓｅ ０：ｓｔｒ２［１］＝ｓｔｒ２［２］＝０；
ｂｒｅａｋ；
ｃａｓｅ １：ｓｔｒ２［０］＝ｓｔｒ２［２］＝０；
ｂｒｅａｋ；
ｃａｓｅ ２：ｓｔｒ２［０］＝ｓｔｒ２［１］＝０；
ｂｒｅａｋ；｝
ｆｐｒｉｎｔｆ（ｆｐｒｎ，＂＼ｎ＼ｎ＼ｔＰｒｉｎｔ ｗｉｔｈ ％０２－ｐｉｎ：＂，（！ｚ）？（ｎ＋＋）：（ｘ＊８＋ｙ＋１））；
ｆｏｒ （ｍ＝０；ｍ＜５；ｍ＋＋） ／＊发送图象打印指令＊／
ｆｐｒｉｎｔ（ｆｐｒｎ，＂％ｃ＂，ｓｔｒ１［ｍ］）；
ｆｏｒ（ｋ＝０；ｋ＜２９６；ｋ＋＋）
ｆｏｒ（ｌ＝０；ｌ＜３；ｌ＋＋） ／＊传送打印数据＊／
ｆｐｒｉｎｔｆ（ｆｐｒｎ，＂％ｃ＂，ｓｔｒ２［１］）；
ｆｐｒｉｎｔｆ（ｆｐｒｎ，＂＼ｎ＂）；｝
ｈｅｌｐ（） ／＊帮助信息＊／
｛ｐｒｉｎｔｆ（＂Ｕｓｅａｇｅ：ｔｅｓｔｐｒｎ ［Ｎ１］ ［Ｎ２］ ［Ｎ３］
［Ｎ４］ ［Ｎ５］ ［Ｎ６］ ［Ｎ７］ ［Ｎ８］＂）；｝