标题随机更换壁纸的小程序

　　每次启动WINDOWS总有一段时间要面对桌面上的壁纸，哪怕是自己喜欢的一幅，如果长时间摆在面前，也会给人单调乏味的感觉。但如果每次都随机出现一幅，感觉就会完全不同。利用下面的BASIC小程序可实现这一功能。假设WINDOWS实际采用的壁纸文件名为COVER.BMP，你精心制作或收集到五个备用壁纸文件COVER1~5.BMP，下面的程序将从五个备用文件中随机的抽取一个，并与COVER.BMP交换文件名，这就实现了随机更换壁纸文件的功能。
　　程序如下：
　　SHELL “REN COVER.BMP PASS.BMP”
　　RANDOMIZE TIMER
　　A=RND(1)*5
　　IF A<1 THEN GOTO 100
　　IF A<2 THEN GOTO 200
　　IF A<3 THEN GOTO 300
　　IF A<4 THEN GOTO 400
　　GOTO 500
　　100 SHELL “REN COVER1.BMP COVER.BMP”
　　SHELL “REN PASS.BMP COVER1.BMP”
　　END
　　200 SHELL “REN COVER2.BMP COVER.BMP”
　　SHELL “REN PASS.BMP COVER2.BMP”
　　END
　　300 SHELL “REN COVER3.BMP COVER.BMP”
　　SHELL “REN PASS.BMP COVER3.BMP”
　　END
　　400 SHELL “REN COVER4.BMP COVER.BMP”
　　SHELL “REN PASS.BMP COVER4.BMP”
　　END
　　500 SHELL "REN COVER5.BMP COVER.BMP"
　　 SHELL "REN PASS.BMP COVER5.BMP"
　　END
　　以上程序经编译后生成的可执行文件存放于Windows目录下，并置于启动组内即可。