MOON.W

SETX 0
SETY 0
DRAW_STARS:
    DRAW STARS
    INCR XY
    TRGT X
    IFNE 15
    GOTO DRAW_STARS
    # ELSE
    TRGT Y
    IFNE 15
    GOTO DRAW_STARS
    # ELSE
    DRAW STARS

SETX 7
SETY 0

DECEND:
    DRAW MOON
    WAIT 250
    SCLR BLACK
    DRAW FILLED
    SCLR WHITE
    DRAW STARS

    INCR Y
    GOTO DECEND

MOON:
    DATA %0000000000000000
    DATA %0000000000000010
    DATA %0000000000000110
    DATA %0000000000000110
    DATA %0000000000001110
    DATA %0000000000001110
    DATA %0000000000011110
    DATA %0000000000111100
    DATA %0000000000111100
    DATA %0000000001111100
    DATA %0000000111111000
    DATA %0000011111110000
    DATA %0001111111100000
    DATA %0001111100000000
    DATA %0111000000000000
    DATA %0000000000000000

STARS:
    DATA %0000000000000000
    DATA %0000001000000000
    DATA %0000000000000000
    DATA %0000000000000000
    DATA %0000000000010000
    DATA %0010000000000000
    DATA %0000000000000000
    DATA %0000000000000000
    DATA %0000000000000000
    DATA %0000010000000000
    DATA %0000000000000000
    DATA %0000000000000000
    DATA %1000000000000000
    DATA %0000000001000000
    DATA %0000000000000000
    DATA %0000000000000000

FILLED:
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111
    DATA %1111111111111111

BLACK:
    DATA $000000

WHITE:
    DATA $FFFFFF