标题用分页技术实现快速动画

　　在视频内存中，屏幕上可见的区域叫做“可见页”，而放置被输出的图形的区域叫做“活动页”。用SCREEN语句可以选择可见页和活动页：SCREEN，活动页，可见页。活动页和可见页只在文本方式下有效。利用可见页和活动页可以实现快速动画，其一般方法为：把需要显示的信息分别写入活动页的各个页面，然后在可见页上显示出来。以下给出一个程序，首先把由过程subp画出的“火箭”存入8个活动页中，每页中火箭的位置不一样(由共享变量尺来调整)，然后依次用可见页显示出来，给人以“火箭飞升”的感觉。
　　DECLARE　SUB　subp()
　　DIM　SHAREDr，c
　　SCREEN　0，1:WIDTH　40
　　CLS:c=18:COLOR　12
　　FOR　scr=7　TO　0　STEP1
　　r=2(1+scr)
　　CALL　subp
　　SCREEN，，scr
　　NEXT　scr
　　SCREEN，，0，0
　　FOR　tr=1　TO　10
　　FOR　scr=7　TO　0　STEP1
　　SCREEM，，scr
　　FOR　j=1　TO　200:
　　NEXTJ
　　NEXT　scr
　　NEXT　tr
　　SCREEN0，1，0，0
　　END
　　SUB　subp
　　LOCATE　r+1，c
　　PRINT"";CHR$(65);""
　　LOCATE　r+2，c
　　PRINT"";CHR$(177);""
　　LOCATE　r+3，c
　　PRINT"";CHR$(219):""
　　LOCATE　r+4，c
　　PRINT"";CHR$(175);""
　　LOCATEr+5，c
　　PRINT"";CHR$(186);""
　　END　SUB
　　(四川　杨辉)