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