%----------------------------Body------------------------------------------
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,300, black) %Right Arm
drawfilloval (80,350,50,50, black) %Head
%----------------------Moving Arm----------------------------------------
var x : int := 250
var y : int := 300
var a : int := 200
var b : int := 250
loop
loop
    drawline (80,300,x,y, black) %Right Arm Goes Down
    x := x - 1
    y := y - 1
    delay (10)
    drawline (80,300,x + 1,y + 1, 0) %Right Arm Disappears
    exit when x = 200   
end loop
loop
    drawline (80,300,a,b, black) %Right Arm Goes Up
    a := a + 1
    b := b + 1
    delay (10)
    drawline (80,300,a - 1,b - 1, 0) %Right Arm Disappears
    exit when a = 251
end loop
end loop