用QBASIC编制“霓虹灯广告牌”

Author: 陈炜先 Date: 1997-01-01

　　该程序用ＡＳＣＩＩ码中的光条符号组成英语单词”ＷＥＬＣＯＭＥ”（欢迎），然后从左到右，从右到左，从上到下，轮换方向使ＷＥＬＣＯＭＥ一词显示和熄灭，１５种颜色也轮流变换，就像城市建筑物上的霓虹灯广告牌一样，令人赏心悦目。
　　编程语言和运行环境：ＱＢＡＳＩＣ
　　５　ｃｌｓ：ｌｏｃａｔｅ　１０，２５：ｐｒｉｎｔ　”霓虹灯广告牌”
　　１０　ｓｃｒｅｅｎ　８
　　２０　ｆｏｒ　ｉ＝１　ｔｏ　１５
　　３０　ｆｏｒ　ｍ＝１　ｔｏ　２
　　４０　ｉｆ　ｍ＝２　ｔｈｅｎ　ａ＄＝”　”：ｇｏｔｏ　５５
　　４５　ａ＄＝ｃｈｒ＄（１７７）
　　５０　ｃｏｌｏｒ　ｉ，０
　　５５　ｉｆ　ｉ　ｍｏｄ　３＝０　ｔｈｅｎ　ｘ１＝７１：ｘ２＝１０：ｋ＝－１：ｇｏｔｏ　７０
　　６０　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　８０
　　６５　ｘ１＝１０：ｘ２＝７１：ｋ＝１
　　７０　ｆｏｒ　ｘ＝ｘ１　ｔｏ　ｘ２　ｓｔｅｐ　ｋ
　　７５　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　９０
　　８０　ｆｏｒ　ｙ＝５　ｔｏ　１７
　　８５　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　６５
　　９０　ｉｆ　ｘ＝１２　ｏｒ　ｘ＝１３　ｏｒ　ｘ＝１６　ｏｒ　ｘ＝１７　ｔｈｅｎ　ｉｆ　ｙ＜１２　ｏｒ　ｙ＞１５　ｔｈｅｎ　４００
　　１００　ｉｆ　ｘ＝１４　ｏｒ　ｘ＝１５　ｔｈｅｎ　ｉｆ　ｙ＜１０　ｏｒ　ｙ＞１３　ｔｈｅｎ　４００
　　１１０　ｉｆ　ｘ＝２０　ｏｒ　ｘ＝２１　ｏｒ　ｘ＝２８　ｏｒ　ｘ＝２９　ｏｒ　ｘ＝３６　ｏｒ　ｘ＝３７　ｔｈｅｎ　４００
　　１２０　ｉｆ　ｘ＝４４　ｏｒ　ｘ＝４５　ｏｒ　ｘ＝５２　ｏｒ　ｘ＝５３　ｏｒ　ｘ＝６４　ｏｒ　ｘ＝６５　ｔｈｅｎ　４００
　　１３０　ｉｆ　ｘ＞２３　ａｎｄ　ｘ＜２８　ｔｈｅｎ　ｉｆ　ｙ＞６　ａｎｄ　ｙ＜１０　ｔｈｅｎ　４００
　　１３５　ｉｆ　ｘ＞２３　ａｎｄ　ｘ＜２８　ｔｈｅｎ　ｉｆ　ｙ＞１１　ａｎｄ　ｙ＜１６　ｔｈｅｎ　４００
　　１４０　ｉｆ　ｘ＞３１　ａｎｄ　ｘ＜３６　ｔｈｅｎ　ｉｆ　ｙ＜１６　ｔｈｅｎ　４００
　　１５０　ｉｆ　ｘ＝４０　ｏｒ　ｘ＝４１　ｔｈｅｎ　ｉｆ　ｙ＞６　ａｎｄ　ｙ＜１６　ｔｈｅｎ　４００
　　１６０　ｉｆ　ｘ＝４２　ｏｒ　ｘ＝４３　ｔｈｅｎ　ｉｆ　ｙ＞８　ａｎｄ　ｙ＜１２　ｔｈｅｎ　４００
　　１７０　ｉｆ　ｘ＝４８　ｏｒ　ｘ＝４９　ｔｈｅｎ　ｉｆ　ｙ＞６　ａｎｄ　ｙ＜１６　ｔｈｅｎ　４００
　　１８０　ｉｆ　ｘ＝５６　ｏｒ　ｘ＝５７　ｏｒ　ｘ＝６０　ｏｒ　ｘ＝６１　ｔｈｅｎ　ｉｆ　ｙ＜７　ｏｒ　ｙ＞１０　ｔｈｅｎ　４００
　　１８５　ｉｆ　ｘ＝５８　ｏｒ　ｘ＝５９　ｔｈｅｎ　ｉｆ　ｙ＜９　ｏｒ　ｙ＞１２　ｔｈｅｎ　４００
　　１９０　ｉｆ　ｘ＞６７　ａｎｄ　ｘ＜７２　ｔｈｅｎ　ｉｆ　ｙ＞６　ａｎｄ　ｙ＜１０　ｏｒ　ｙ＞１１　ａｎｄ　ｙ＜１６　ｔｈｅｎ　４００
　　３００　ｃｏｌｏｒ　ｉ，０
　　３１０　ｌｏｃａｔｅ　ｙ，ｘ：ｐｒｉｎｔ　ａ＄
　　４００　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　４１５
　　４０５　ｎｅｘｔ　ｙ
　　４１０　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　４２５
　　４１５　ｎｅｘｔ　ｘ
　　４２０　ｉｆ　ｉ　ｍｏｄ　３＝２　ｔｈｅｎ　４０５
　　４２５　ｆｏｒ　ｔ＝１　ｔｏ　２００００：ｎｅｘｔ　ｔ
　　４３０　ｎｅｘｔ　ｍ，ｉ
　　４４０　ｅｎｄ