该程序中关于画直线与画圆的代码我有些不理解，望高手注释一下，谢谢
! 在(x0,y0)到(x1,y1)之间画一条直线
subroutine DrawLine(x0,y0, x1,y1)
  。。。。。
。。。
。。。
sum = 0
  x = x0
  y = y0

  if ( xadd > yadd ) then
    do while(x/=x1)
      call PutChar( x, y )
      x = x + xinc
      sum = sum + yadd
      if ( sum >= xadd ) then 
        sum = sum - xadd
        y = y + yinc
      end if
    end do
    call PutChar( x, y )
。。。。。
。。。。
。。。。
。。。。
。。。
  return
end subroutine
就中间那一部分，谢谢