ネ蚚dBASEｋ餅詢儕僅苀數眻源芞

侐捶  栦閩
1993-09-03

        *zft玩prg
        set  talk  off
        clea
        set  colo  to  7/1
        @0ㄛ2  clea
        k=2
        i=11
        do  while iˉ=22
        x=str(iㄛ2)
        do  z
        i=iㄚ2
        k=kㄚ12
        enddo
        set  colo  to  7/0
        @24ㄛo  clea
        @1ㄛ0  sayㄖ96ㄔㄖ
        @6ㄛ0  sayㄖ75ㄖ
        @12ㄛ0  sayㄖ50ㄖ
        @18ㄛ0  sayㄖ25ㄖ
        @24ㄛ0  sayㄖ0ㄖ
        @24ㄛ65  sayㄖ6ㄖ
        @24ㄛ5  sayㄖ1ㄖ
        @24ㄛ17  sayㄖ2ㄖ
        @24ㄛ29  sayㄖ3ㄖ
        @24ㄛ41  sayㄖ4ㄖ
        @24ㄛ53  sayㄖ5ㄖ
        @24ㄛ75  sayㄖMONㄖ
        wait
        retu
        *z玩prg
        set  colo  to  7/4
        @m&xㄛk  clea
        set  colo  to  7/1
        @m&xㄛkㄚ4  clea
        x=str(iㄚ1ㄛ2)
        set  colo  to  7/2
        @m&xㄛkㄚ4ㄛclea
        set  colo  to  7/1
        @m&xㄛkㄚ8  clea
        retu
 
 