标题清屏方法举例

　　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$=" "