%----------------------------------Man-----------------------------------------
procedure Bball
    drawline (30,0,80,150, black) %Left Leg
    drawline (80,150,125,0, black) %Right Leg
    drawline (80,150,80,300, black) %Body
    drawline (80,300,30,175, black) %Left Arm
    drawline (80,300,250,250, black) %Right Arm
    drawfilloval (80,350,50,50, black) %Head
    drawfilloval (250,225,25,25, 42) %BasketBall
end Bball

%-------------------------------Moving Arm-------------------------------------
procedure man
    loop
        var y : int := 300
        var b : int := 250
        loop
            drawline (80,300,250,b, black) %Right Arm Goes Up
            b := b + 1
            delay (10)
            drawline (80,300,250,b - 1, 0) %Right Arm Disappears
            exit when b = 300
        end loop
        loop
            drawline (80,300,250,y, black) %Right Arm Goes Down
            y := y - 1
            delay (10)
            drawline (80,300,250,y + 1, 0) %Right Arm Disappears
            exit when y = 250   
        end loop
    end loop
end man

%----------------------------------Ball----------------------------------------
procedure bouncy
    loop
        var x : int := 225
        var a : int := 25       
        loop
            drawfilloval (250,x,25,25, 42) %Ball Goes Down
            x := x - 2
            delay (5)
            drawfilloval (250,x + 2,25,25, 0) %Ball Disappears
            exit when x = 25
        end loop
        loop
            drawfilloval (250,a,25,25, 42) %Ball Goes Up
            a := a + 2
            delay (5)
            drawfilloval (250,a - 2,25,25, 0) %Ball Disappears
            exit when a = 225
        end loop
    end loop
end bouncy
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Bball
man
bouncy