setscreen ("graphics:max;max")
drawfillbox (0,0,maxx,maxy, 53)%Sets the sky
drawfillbox (0,0,maxx,maxy div 5, green)%Sets the grass
loop
    var lleg,larm : int := 460
    var rleg,rarm : int := 490
    var stick2 : int := 475
    drawline (lleg,127,stick2,150, black)%Student left leg
    drawline (rleg,127,stick2,150, black)%Student right leg
    drawline (stick2,150,stick2,170, black)%Student body
    drawline (larm,147,stick2,170, black)%Student left arm
    drawline (rarm,147,stick2,170, black)%Student right arm
    drawfilloval (stick2,180,10,10, black)%Student head
    loop
        drawline (lleg,127,stick2,150, black)%Student left leg
        drawline (rleg,127,stick2,150, black)%Student right leg
        drawline (stick2,150,stick2,170, black)%Student body
        drawline (larm,147,stick2,170, black)%Student left arm
        drawline (rarm,147,stick2,170, black)%Student right arm
        drawfilloval (stick2,180,10,10, black)%Student head
        lleg := lleg + 1
        rleg := rleg + 1
        larm := larm + 1
        rarm := rarm + 1
        stick2 := stick2 + 1
        delay (10)
        drawline (lleg - 1,127,stick2 - 1,150, 53)%Student left leg
        drawline (rleg - 1,127,stick2 - 1,150, 53)%Student right leg
        drawline (stick2 - 1,150,stick2 - 1,170, 53)%Student body
        drawline (larm - 1,147,stick2 - 1,170, 53)%Student left arm
        drawline (rarm - 1,147,stick2 - 1,170, 53)%Student right arm
        drawfilloval (stick2 - 1,180,10,10, 53)%Student head
        exit when stick2 = maxx
        if stick2 = maxx div 2 then
            drawline (460,127,475,150, black)%Student left leg
            drawline (490,127,475,150, black)%Student right leg
            drawline (475,150,475,170, black)%Student body
            drawline (460,147,475,170, black)%Student left arm
            drawline (490,147,475,170, black)%Student right arm
            drawfilloval (475,180,10,10, black)%Student head
        end if
    end loop
end loop