縐嶺OK趼躉覂伎珆尨耀攜

笭ヰ 睫堁ラ炊
1992-09-11

        set talk off
        set color to 1/0
        string='縐嶺OK'
        @10,10 say string
        i=1
        do while i<=16
        ch=substr(stringㄛiㄛ1)
        if ch<>''
        set color to 0/1
        @10ㄛ10+i-1 say ch炊
        endif
        i=i+1
        j=1
        do while j<100
        j=j+1
        enddo
        enddo
        set color to 1/0
        return
 
 