测试UCDOS 5.0特显功能一法
Author: 宗卫泉 Date: 1997-01-01
ＵＣＤＯＳ强大的特显（ＴＸ．ＣＯＭ）功能，为我们编程提供了很大的方便，尤其是在ＦＯＸＰＲＯ中。但对我们这些初学者来说，在程序中测试ＴＸ．ＣＯＭ是否运行总是一件烦人的事。虽然ＵＣＤＯＳ提供了ＴＥＳＴＴＸ程序，但总觉得较费事且不容易理解，不够方便。于是本人在学习中根据特显功能采用ＬＰＴ３并行口的特点，设想采用ＦＯＸＰＲＯ的ＰＲＩＮＴＳＴＡＴＵＳ（）函数测试ＴＸ．ＣＯＭ是否运行，并在程序中进行试验获得成功。
#3 具体地可在程序首部加上如下语句。
ＳＥＴ ＰＲＩＮＴ ＴＯ ＬＰＴ３
ＩＦ ！ＰＲＩＮＴＳＴＡＴＵＳ（）
ＳＥＴ ＰＲＩＮＴ ＴＯ ＰＲＮ
＠１０，２０ ＳＡＹ ＂Ｐｌｅａｓｅ ｒｕｎ ｔｘｃｏｍ ｆｉｒｓｔ……＂
ＷＡＩＴ＂ ＂
ＲＥＴＵ
ＥＮＤＩ
ＳＥＴ ＤＥＶＩＣＥ ＴＯ ＰＲＩＮＴ
……