五彩缤纷的清屏方式

四川   刘冬喜
1996-07-19

        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
 
 