标题五彩缤纷的清屏方式

　　1.拉幕式：从右到左
　　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