清屏方法举例
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$=" "