用QBASIC实现“百叶窗”

袁庆
1997-01-01

　　ＵＣＤＯＳ的ＤＥＭＯ制作很新颖，每显示完一屏，便会出现象百叶窗式的翻页，这一过程是怎样实现的呢？下面的这个ＱＢＡＳＩＣ小程序也能产生这种效果。该程序在多种机型上调试通过。
　　’叶片横放
　　ＳＣＲＥＥＮ　１２
　　ＦＯＲ　ａ＝０　ＴＯ　２０
　　ＩＦ　ＩＮＫＥＹ＄＝ＣＨＲ＄（２７）　ＴＨＥＮ　ＥＮＤ
　　ｂ＝６４０：ｃ＝２０
　　ＦＯＲ　ｅ＝０　ＴＯ　２４
　　ＬＩＮＥ　（０，ｅ＊ｃ）－（ｂ，ａ＋ｅ＊ｃ），１５，ＢＦ
　　ＮＥＸＴ
　　ＮＥＸＴ
　　’叶片纵放
　　ＳＣＲＥＥＮ　１２
　　ＬＩＮＥ　（０，０）－（６４０，４８０），１５，ＢＦ
　　ＦＯＲ　ａ＝０　ＴＯ　２０
　　ＦＯＲ　ｅ＝０　ＴＯ　３２
　　ＩＦ　ＩＮＫＥＹ＄＝ＣＨＲ＄（２７）　ＴＨＥＮ　ＥＮＤ
　　ｃ＝２０：ｄ＝０：
　　ＬＩＮＥ　（ｅ＊ｃ，０）－（ａ＋ｅ＊ｃ，４８０），ｄ，ＢＦ
　　ＮＥＸＴ
　　ＮＥＸＴ　　　　　　　　　　　　

 