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

　　淡入淡出是游戏软件设计和演示程序制作中常用的一种方法，Basic语言中有一个Palette调色语句，它可以调整各种颜色的RGB值，其语法为：Palette 颜色属性，颜色值。下面程序中的FadeInOut子程序，只要传递一个位置fx，fy和要显示的字符串Fade￥，就可以实现您要的淡入淡出效果了！在下例的主程序中，给出了三个字符串和要显示的位置参数后，三次调用FadeInOut子程序，屏幕就会以淡入淡出的方式显示上面三个字符串，读者可通过改变Palette语句的颜色属性，改变所显示的颜色。
　　主程序清单：
　　DECLARE SUB FadeInOut ()
　　DIM SHARED fx:DIM SHARED fy:DIM SHARED Fade￥
　　fx=6:fy=10:Fade￥="Fadein and Fadeout":FadeInOut
　　Fade￥="Designed by Basic":FadeInOut
　　Fade￥="All rights Reserved！":FadeInOut
　　子程序清单：
　　SUB FadeInOut
　　SCREEN 13:COLOR 1:CLS
　　FOR i=0 TO 63
　　PALETTE 1，i
　　LOCATE fx，fy:PRINT Fade￥；
　　FOR t=1 TO 2000:NEXT
　　NEXT
　　FOR i=63 TO 0 STEP -1
　　PALATTE 1，i
　　LOCATE fx，fy:PRINT Fade￥；
　　FOR t=1 TO 2000:NEXT
　　NEXT
　　END SUB