help needed to solve the bug in this small code?

Hi, All! Can someone find out the bug in the following code.
I trying to print the points which are not on the specified grid 0.01 in my case.
When I run this code I am getting all the points including the one which are on grid also.
/*******************starts here************************/
outport = outfile("grid.txt")
fprintf(outport "OldCoordinate            NewCoordinate\n")
procedure(  CCSroundCoord(  point xgrid ygrid compFactor )
        prog(  ( x y )
             x=round( ( xCoord( point ) + compFactor ) / xgrid ) * xgrid
             y=round( ( yCoord( point ) + compFactor ) / ygrid ) * ygrid
         if(x!=xCoord(point) then  fprintf(outport "%L               %L\n" xCoord(point) x ))
         if(y!=yCoord(point) then  fprintf(outport "%L               %L\n" yCoord(point) y ))
             return( list(  x y  ) )
         )
     )
procedure(grid(val @optional (cv deGetEditCellView()))
  foreach(shape cv~>shapes
      case(shape~>objType
          (("rect" "dot")
              foreach(ord shape~>bBox CCSroundCoord(ord val val 0.001))
          )
          (("polygon" "path" "line")
              foreach(ord shape~>path CCSroundCoord(ord val val 0.001))
          )
          (t
              printf("Unknown Object Type %s\n" shape~>objType)
          )
      );case
  );foreach
);grid

grid(0.01)
close(outport)
/*******************ends here************************/

Thanks in Advance...
Prabhakar. K -- The ICL Engineer
SoCtronics