实现屏幕淡入淡出效果的小程序

Author: 胡平 Date: 1997-01-01
　　淡入淡出是游戏软件设计和演示程序制作中常用的一种方法，Ｂａｓｉｃ语言中有一个Ｐａｌｅｔｔｅ调色语句，它可以调整各种颜色的ＲＧＢ值，其语法为：Ｐａｌｅｔｔｅ　颜色属性，颜色值。下面程序中的ＦａｄｅＩｎＯｕｔ子程序，只要传递一个位置ｆｘ，ｆｙ和要显示的字符串Ｆａｄｅ￥，就可以实现您要的淡入淡出效果了！在下例的主程序中，给出了三个字符串和要显示的位置参数后，三次调用ＦａｄｅＩｎＯｕｔ子程序，屏幕就会以淡入淡出的方式显示上面三个字符串，读者可通过改变Ｐａｌｅｔｔｅ语句的颜色属性，改变所显示的颜色。
#3　　主程序清单：
　　ＤＥＣＬＡＲＥ　ＳＵＢ　ＦａｄｅＩｎＯｕｔ　（）
　　ＤＩＭ　ＳＨＡＲＥＤ　ｆｘ：ＤＩＭ　ＳＨＡＲＥＤ　ｆｙ：ＤＩＭ　ＳＨＡＲＥＤ　Ｆａｄｅ￥
　　ｆｘ＝６：ｆｙ＝１０：Ｆａｄｅ￥＝＂Ｆａｄｅｉｎ　ａｎｄ　Ｆａｄｅｏｕｔ＂：ＦａｄｅＩｎＯｕｔ
　　Ｆａｄｅ￥＝＂Ｄｅｓｉｇｎｅｄ　ｂｙ　Ｂａｓｉｃ＂：ＦａｄｅＩｎＯｕｔ
　　Ｆａｄｅ￥＝＂Ａｌｌ　ｒｉｇｈｔｓ　Ｒｅｓｅｒｖｅｄ！＂：ＦａｄｅＩｎＯｕｔ
　　子程序清单：
　　ＳＵＢ　ＦａｄｅＩｎＯｕｔ
　　ＳＣＲＥＥＮ　１３：ＣＯＬＯＲ　１：ＣＬＳ
　　ＦＯＲ　ｉ＝０　ＴＯ　６３
　　ＰＡＬＥＴＴＥ　１，ｉ
　　ＬＯＣＡＴＥ　ｆｘ，ｆｙ：ＰＲＩＮＴ　Ｆａｄｅ￥；
　　ＦＯＲ　ｔ＝１　ＴＯ　２０００：ＮＥＸＴ
　　ＮＥＸＴ
　　ＦＯＲ　ｉ＝６３　ＴＯ　０　ＳＴＥＰ　－１
　　ＰＡＬＡＴＴＥ　１，ｉ
　　ＬＯＣＡＴＥ　ｆｘ，ｆｙ：ＰＲＩＮＴ　Ｆａｄｅ￥；
　　ＦＯＲ　ｔ＝１　ＴＯ　２０００：ＮＥＸＴ
　　ＮＥＸＴ
　　ＥＮＤ　ＳＵＢ