自动设置DOS系统屏幕颜色的小程序

孙刚
1997-01-01

　　ＤＯＳ系统开机后屏幕颜色单调，如何改变这种情况呢？笔者用Ｔｕｒｂｏ　Ｃ　２．０编制了ＣＬＳＺ程序，该程序有如下功能：
#2　　１．开机时可自动设置屏幕颜色。
　　ＣＬＳＺ可带２个参数，第１个为字符颜色，共有１６种，取值范围０－１５，第２个参数为屏幕颜色，共有８种，取值范围０－７。
　　设ＣＬＳＺ．Ｃ经过编译生成的ＣＬＳＺ．ＥＸＥ在Ｃ：＼下。
　　方法：在Ｃ：＼ＡＵＴＯＥＸＥＣＢＡＴ文件中加入以下２行：
　　ＰＡＴＨ　Ｃ：＼
　　ＣＬＳＺ　１１　４
　　重新启动后ＤＯＳ屏幕颜色即变为红色，字符为淡青色。
#2　　２．在任意时刻改变字符和屏幕颜色。
　　ＣＬＳＺ有下面三种用法：
　　ＣＬＳＺ　　字符颜色值　　屏幕颜色值
　　ＣＬＳＺ（缺省设置字符颜色为黄色，屏幕颜色为兰色）
　　ＣＬＳＺ　？（显示帮助信息，命令格式及数字代表的颜色）
#3　　下面是ＣＬＳＺＣ源程序，供大家参考。
　　＃ｉｎｃｌｕｄｅ　＜ｓｔｄｉｏｈ＞
　　ｍａｉｎ（ｉｎｔ　ａｒｇｃ，ｃｈａｒ　＊ａｒｇｖ［］）
　　｛　ｉｆ（ａｒｇｃ＝＝２＆＆ａｒｇｖ［１］［０］＝＝？）ｈｅｌｐ（）；
　　ｅｌｓｅ　ｉｆ（ａｒｇｃ＝＝３＆＆ａｔｏｉ（ａｒｇｖ［２］）＜８　＆＆ａｔｏｉ（ａｒｇｖ［１］）＜１６）
　　｛ｔｅｘｔａｔｔｒ（（ｃｈａｒ）（（ａｔｏｉ（ａｒｇｖ［２］）＜＜４）｜ａｔｏｉ（ａｒｇｖ［１］）））；
　　ｃｌｒｓｃｒ（）；
　　｝
　　ｅｌｓｅ　｛ｔｅｘｔａｔｔｒ（０ｘｌｅ）；
　　ｃｌｒｓｃｒ（）；
　　｝
　　｝ｈｅｌｐ（）
　　｛　ｉｎｔ　ｉ；
　　ｃｈａｒ　ｙｓ［］［１５］＝｛＂ＢＬＡＣＫ＂，＂ＢＬＵＥ＂，＂ＧＲＥＥＮ＂，＂ＣＹＡＮ＂，＂ＲＥＤ＂，＂ＭＡＧＥＮＴＡ＂，＂ＢＲＯＷＮ＂，＂ＬＩＧＨＴＧＲＡＹ＂，＂ＤＡＲＫＧＲＡＹ＂，＂ＬＩＧＨＴＢＬＵＥ＂，＂ＬＩＧＨＴＧＲＥＥＮ＂，＂ＬＩＧＨＴＣＹＡＮ＂，＂ＬＩＧＨＴＲＥＤ＂，＂ＬＩＧＨＴＭＡＧＥＮＴＡ＂，＂ＹＥＬＬＯＷ＂，＂ＷＨＩＴＥ＂｝；
　　ｔｅｘｔａｔｔｒ（３）；ｃｌｒｓｃｒ（）；
　　ｔｅｘｔａｔｔｒ（１２）；
　　ｃｐｒｉｎｔｆ（＂Ｕｓａｇｅ：ＣＬＳＺ　［ＱＪ］［ＢＪ］＼ｒ＼ｎ＂）；
　　ｃｐｒｉｎｔｆ（＂［ＱＪ］＝０－１５［ＢＪ］＝０－７＼ｒ＼ｎ＂）；
　　ｃｐｒｉｎｔｆ（＂Ｅｘａｍｐｌｅ１：ＣＬＳＺ　＼ｒ＼ｎ＂）；
　　ｃｐｒｉｎｔｆ（＂Ｅｘａｍｐｌｅ２：ＣＬＳＺ　？＼ｒ＼ｎ＂）；
　　ｃｐｒｉｎｔｆ（＂Ｅｘａｍｐｌｅ３：ＣＬＳＺ　３　０＼ｒ＼ｎ＂）；
　　ｆｏｒ（ｉ＝０；ｉ＜１６；ｉ＋＋）
　　｛ｇｏｔｏｘｙ（２，７＋ｉ）；
　　ｔｅｘｔａｔｔｒ（１５）；
　　ｃｐｒｉｎｔｆ（＂％２ｄ＂，ｉ）；
　　ｔｅｘｔａｔｔｒ（ｉ）；
　　ｃｐｒｉｎｔｆ（＂＝％ｓ＂，ｙｓ［ｉ］）；
　　ｇｏｔｏｘｙ（２０，７＋ｉ）；
　　ｔｅｘｔａｔｔｒ（７）；
　　ｉｆ（ｉ＜８）ｃｐｒｉｎｔｆ（＂（［ＱＪ］　ｏｒ　［ＢＪ］）＂）；
　　ｅｌｓｅ　ｃｐｒｉｎｔｆ（＂（［ＱＪ］）＂）；
　　｝
　　ｔｅｘｔａｔｔｒ（３）；ｇｏｔｏｘｙ（１，７＋１６）；｝

 