五彩缤纷的清屏方式
set talk off
set colo to 2/1
a=72
do while a>-1
@0,a clea
a=a-1
enddo
set colo to 2/8
2.拉幕式：从左到右
set talk off
set colo to 2/1
a=0
do while a<80
@0,a clea to 21,a
a=a+1
enddo
set colo to 2/8
3.拉幕式：从中间往两边
set talk off
set colo to 2/1
a=0
do while a<41
@0,40-a clea to 20,40+a
a=a+1
enddo
set colo to 2/8
4.拉幕式：从两边往中间
set talk off
set colo to 2/1
a=0
do while a<41
@0,0 clea to 20,a
@0,79-a clea to 20,79
a=a+1
enddo
set colo to 2/8
5.卷帘式：从下到上
set talk off
set colo to 2/1
a=21
do while a>-1
@a,0 clea
a=a-1
enddo
set colo to 2/8
6.卷帘式：从上到下
set talk off
set colo to 2/1
a=0
do while a<21
@a,0 clea to a,79
a=a+1
enddo
set colo to 2/8
7.卷帘式：从中间到上下
set talk off
set colo to 2/1
a=0
do while a<11
@10-a,0 clea to 10+a,79
a=a+1
enddo
set colo to 2/8
8.卷帘式：从上下到中间
set talk off
set colo to 2/1
a=0
do while a<11
@0,0 clea to a,79
@21-a,0 clea to 21,79
a=a+1
enddo
set colo to 2/8
9.斜拉式：从右下角至左上角
set talk off
set colo to 2/1
a=22
do while a>-1
@a,a*3 clea
a=a-1
enddo
set colo to 2/8
10.斜拉式：从左上角至右下角
set talk off
set colo to 2/1
a=1
do while a<21
@0,0 clea to a,a*4
a=a+1
enddo
set colo to 2/8
11.斜拉式：从右上角至左下角
set talk off
set colo to 2/1
a=1
do while a<21
@0,80-a*4 clea to a,79
a=a+1
enddo
set colo to 2/8
12.斜拉式：从左下角至右上角
set talk off
set colo to 2/1
a=20
do while a>-1
@a,0 clea to 20,80-a*4
a=a-1
enddo
set colo 2/8
13.辐射式：从中间至四周
set talk off
set colo to 2/1
a=10
b=40
c=10
d=40
do while a>-1
@a,b clea to c,d
a=a-1
b=b-4
c=c+1
d=d+4
enddo
set colo to 2/8
14.辐射式：从四周至中间
set talk off
set colo to 2/1
a=0
b=20
c=1
do while a<11
@a,0 clea to a,79
@0,80-c clea to 20,79
@b,0 clea to b,79
@0,0 clea to 20,c
a=a+1
b=b-1
c=c+1
enddo
set colo to 2/8