清屏方法举例

河南  张建东
1994-02-25

        SCREEN 8
        REM ***用一个竖直亮光条自左向右清屏***
        COLOR 10
        FOR i=0 TO 79
        LINE (i*8+8,0)-(i*8+16,199),10,BF
        LINE (i*8,0)-(i*8+8,199),0,BF
        NEXT i
        DO:LOOP WHILE INKEY$=" "
        REM ***用一个水平亮光条自上向下清屏***
        FOR i=1 TO 24
        LINE (0,i*8)-(639,i*8+8),10,BF
        LINE (0,i*8-8)-(639,i*8),0,BF
        NEXT i
        LINE (0,192)-(639,199),0,BF
        DO:LOOP WHILE INKEY$=" "
        REM **用一个逐渐放大的同心园向屏幕四边扩散清屏**
        COLOR 0
        FOR i=1 to 200
        CIRCLE (320,100),i
        IF i=200 THEN COLOR 0:PAINT (1,1)
        REM COLOR INT(i/20)
        NEXT i
        DO:LOOP WHILE INKEY$=" "
        REM ***使用水平百页窗形式自下向拉动清屏***
        FOR i=1 TO 9
        FOR j=0 TO 10
        LINE (0,199-i*2-j*20)-(639,199-2-i*2-j*20),0,BF
        NEXT j
        NEXT i
        DO:LOOP WHILE INKEY$=" "
        REM **使用座钟的一个指针顺时针移动清屏**
        FOR i=0 TO (640+200)*2+6
        IF i<639 THEN row=0:col=i
        IF i>=639 AND i<639+199 THEN col=639:row=i-639
        IF i>=639+199 AND i<639*2+199 THEN row=199:col=1477-i
        IF i>=639*2+199 AND i<=(640+200)*2+6 THEN col=0:row=1686-i
        LINE (320,100)-(col,row),10
        NEXT i
        DO:LOOP WHILE INKEY$=" "
        REM **使用座钟的两个指针分别作顺、逆时针移动清屏**
        FOR i=0 TO 639+199
        IF i<639 THEN row1=0:col1=i
        IF i<199 THEN row2=i:col2=0
        IF i>=639 AND i<=639+199 THEN col1=639:row1=i-639
        IF i>=199 AND i<=639+199 THEN row2=199:col2=i-199
        LINE (320,100)-(col1,row1),0
        LINE (320,100)-(col2,row2),0
        NEXT i
        DO:LOOP WHILE INKEY$=" "
 
 