grid=Flatten[Table[{x,y},{x,0,10,1},{y,0,10,1}],1];

Arrow1[{x_,y_},s_,k_]:=If[y>=x k-s && x>0,Arrow[{{x,y},{x-0.9,y}}],Arrow[{{x,y},{x,y+0.9}}]]
Arrow2[{x_,y_},s_,k_]:=If[x>=y k-s && y>0,Arrow[{{x,y},{x,y-0.9}}],Arrow[{{x,y},{x+0.9,y}}]]

g[s_,k_]={PointSize[0.015],Arrowheads[0.02]}~Join~
Map[Point,grid]~Join~
Map[Arrow1[#,s,k]&,grid]~Join~
Map[Arrow2[#,s,k]&,grid]~Join~
{Line[{{s,0},{10,10 k-s}}],Line[{{0,s},{k 10-s,10 }}]};

Manipulate[Graphics[g[s,k],Axes->True],{{k,1},0,1},{{s,1},0,5}]