用分页技术实现快速动画

Author: 四川杨辉 Date: 1993-10-08

        在视频内存中，屏幕上可见的区域叫做“可见页”，而放置被输出的图形的区域叫做“活动页”。用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
        (四川  杨辉)