珨跺潠等腔亅躉悵誘最唗

幛笣   腌ぎ鴟炊
1996-08-02

        SET COLO TO W/N
        CLEA
        PD=0
        A1=0
        DO WHIL PD=0
        B1=0
        DO WHIL B1<=38
        SET COLO TO N/W
        @A1,B1 SAY "倎"
        @A1,78-B1 SAY "洘"
        SET COLO TO W/N
        PD=INKE(0.8)
        IF PD=0
        @A1,B1 SAY " "
        @A1,78-B1 SAY " "
        ELSE
        EXIT
        ENDI
        B1=B1+2
        ENDO
        IF A1<24
        A1=A1+1
        ELSE
        A1=0
        ENDI
        ENDO
 
 