请你编程
参加评选的程序采用的语言主要有Ｃ、Ｐａｓｃａｌ、Ｂａｓｉｃ。这次编程的重点之一是在于模拟物体在跨越两个窗口时的动作。遗憾的是很多程序都没有这个过程，所模拟的物体每次出现的间隙很大，有一种“跳动”的效果，有些甚至从一个窗口一下跳入下一个窗口，因此，效果不是很好。在这方面，宁夏的张永强所编制的程序作的较好，限于版面，本期不能登出。
下面向大家推荐陕西刘克文所编制的９６１２程序，这个程序简单易懂，结构清晰，基本上达到了设计要求。
#3 编写说明：
本程序先在左上角画一窗口，一小球在伴音下从窗口底部沿窗口中心线顺时针走一直角，至窗口右边停止前进，伴音随之消失，背景变换三次；再在右上角画一窗口，从上一窗口停止处继续往下运行，重复上述过程，直至遍历四个窗口。然后小球再顺时针在四个窗口中运行一次，程序结束。该程序在Ｔｕｒｂｏ Ｃ ２．０版本下运行通过。
＃ｉｎｃｌｕｄｅ ＂ｃｏｎｉｏｈ＂
＃ｉｎｃｌｕｄｅ ＂ｄｏｓｈ＂
ｍａｉｎ（）
｛ ｉｎｔ ｘ，ｙ，ｓ；
ｖｏｉｄ ｃｓ（）；
ｉｎｔ ｐｉｃ（）；
ｔｅｘｔｃｏｌｏｒ（１１）；
ｔｅｘｔｂａｃｋｇｒｏｕｎｄ（０）；
ｃｌｒｓｃｒ（）； ／＊清屏＊／
ｆｏｒ（ｉ＝０；ｉ＜２；ｉ＋＋） ／＊画面重复二次＊／
｛ ｗｉｎｄｏｗ（１，１，４０，１２）； ／＊左上角＊／
ｘ＝２０，ｙ＝１３；
ｗｈｉｌｅ（ｘ＜４０）
｛ ｉｆ（ｉ＝＝０） ｓ＝２００；
ｙ＝＝６？ｘ＋＋：ｙ－－；
ｓ＝ｐｉｃ（ｘ，ｙ，ｓ，ｉ）；｝
ｃｓ（ｘ，ｙ，２）； ／＊将背景变换三次＊／
ｗｉｎｄｏｗｓ（４１，１，８０，１２）； ／＊右上角＊／
ｘ＝０，ｙ＝６；
ｗｈｉｌｅ（ｙ＜１２）
｛ ｉｆ（ｉ＝＝０） ｓ＝３５０；
ｘ＝＝２０？ｙ＋＋：ｘ＋＋；
ｓ＝ｐｉｃ（ｘ，ｙ，ｓ，ｉ）；｝
ｃｓ（ｘ，ｙ，４）；
ｗｉｎｄｏｗ（４１，１３，８０，２５）； ／＊右下角＊／
ｘ＝２０，ｙ＝０；
ｗｈｉｌｅ（ｘ＞１）
｛ ｉｆ（ｉ＝＝０） ｓ＝１５０；
ｙ＝＝６？ｘ－－：ｙ＋＋；
ｓ＝ｐｉｃ（ｘ，ｙ，ｓ，ｉ）；｝
ｃｓ（ｘ，ｙ，１）
ｗｉｎｄｏｗ（１，１３，４０，２５）； ／＊左下角＊／
ｘ＝４１，ｙ＝６；
ｗｈｉｌｅ（ｙ＞１）
｛ ｉｆ（ｉ＝＝０） ｓ＝１００；
ｘ＝＝２０？ｙ－－：ｘ－－；
ｓ＝ｐｉｃ（ｘ，ｙ，ｓ，ｉ）；｝
ｃｓ（ｘ，ｙ，０）；｝｝
／＊小球在伴音下运行函数＊／
ｉｎｔ ｐｉｃ（ｉｎｔ ａ，ｉｎｔ ｂ，ｉｎｔ ｃ，ｉｎｔ ｊ）
｛ ｉｎｔ ｈ，ｋ，ｌ；
ｉｆ（ｊ＝＝０）
｛ ｔｅｘｔｂａｃｋｇｒｏｕｎｄ（１）；
ｃｌｓｓｃｒ（）；｝
ｇｏｔｏｘｙ（ａ，ｂ）；
ｐｕｔｃｈ（＂ｏ＂）；
ｆｏｒ（ｈ＝１；ｈ＜３；ｈ＋＋） ／＊伴音＊／
｛ ｓｏｕｎｄ（ｕ）；
ｕ＝ｊ＝０？ｕ＋５０：（ｕ＞９００？５０：ｕ＋２０）；
ｆｏｒ（ｌ＝１；ｌ＜３；ｌ＋＋）
｛ｆｏｒ（ｋ＝１；ｋ＜２５０００；ｋ＋＋）；｝ ／＊延迟＊／
｝
ｇｏｔｏｘｙ（ａ，ｂ）；
ｐｕｔｃｈ（＂ ＂）；
ｒｅｔｕｒｎ（ｕ）；｝
／＊背景变换函数＊／
ｖｏｉｄ ｃｓ（ｉｎｔ ａ，ｉｎｔ ｂ，ｉｎｔ ｊ）
｛ ｉｎｔ ｉ，ｊ，ｌ；
ｎｏｓｏｕｎｄ（）；
ｆｏｒ（ｉ＝０；ｉ＜４；ｊ＋＋，ｉ＋＋）
｛ ｔｅｘｔｂａｃｋｇｒｏｕｎｄ（ｊ）；
ｃｌｒｓｃｒ（）；
ｇｏｔｏｘｙ（ａ，ｂ）；
ｐｕｔｃｈ（＂ｏ＂）；
ｆｏｒ（ｌ＝１；ｌ＜２２２；ｌ＋＋）
｛ｆｏｒ（ｋ＝１；ｋ＜３００００；ｋ＋＋）；｝ ／＊延迟＊／
｝｝