proc background
    for a : 0 .. 640
        %sky
        drawbox (a, 0, 640, 400, blue)
        %ground
        drawbox (a, 0, 640, 50, green)
    end for
end background

proc tree
    %trunk
    for a : 51 .. 150
        drawbox (295, a, 355, 150, 4)
    end for
    %body
    for a : 0 .. 100
        drawoval (325, 225, a, a + 30, green)
        drawoval (325, 225, a - 1, a + 30, green)
    end for
    %apples
    for a : 0 .. 10
        drawoval (320, 200, a, a, red)
        drawoval (300, 150, a, a, red)
        drawoval (400, 275, a, a, red)
        drawoval (250, 270, a, a, red)
        drawoval (330, 300, a, a, red)
        drawoval (380, 140, a, a, red)
        drawoval (360, 250, a, a, red)
        drawoval (280, 220, a, a, red)
        drawoval (355, 180, a, a, red)
        delay (100)
    end for
end tree

proc fallingApple
    for decreasing a : 270 .. 61
        %erase apple
        drawoval (250, a + 1, 10, 10, green)
        %draw apple
        drawfilloval (250, a, 10, 10, red)
        delay (5)
    end for
end fallingApple

background
tree
fallingApple