Process guy_blue(file,graph,x,y)
Private
    xspeed=8;
    yspeed=0;

    y_start_acceleration=3;
    y_acceleration=0;

    jump=0;

    ground_height=495; //of course this really should be a global variable

Begin
    Loop
        // Walking the dog
        If (key(_left) or key(_right))
            If (graph==1)
                graph=2;
            Else
                graph=1;
            End
           
            If (key(_left)-key(_right)>0)
                flags=0;
                x-=xspeed;
            Else
                flags=1;
                x+=xspeed;
            End
        Else
        // Standing still
            graph=1;
        End

        // Jumping
        If (jump==0)
            If(key(_space))
                jump=1;
                y_acceleration=y_start_acceleration;   
            End
        Else       
            y_acceleration-=1;
            If (y=>ground_height)
                jump=0;
                y=ground_height;
                y_acceleration=0;
                yspeed=0;
            End
        End

        yspeed+=y_acceleration;       
        y-=yspeed;
           
        Frame;
    End
End