Function DrawLine(x1,y1,x2,y2) e=2*y2-x2 es=2*y2 ed=2*y2-2*x2 nx=x1 ny=y1 While nx<x2 Plot nx,ny If (e>0) Then nx=nx+1 ny=ny+1 e=e+ed Else nx=nx+1 e=e+es EndIf Wend End Function