- quadx = (ix+9)/10;
- quady = (iy+9)/10;
- sectx = ix - 10*(quadx-1);
- secty = iy - 10*(quady-1);
- proutn("\n\rEntering %s.",
+ quadx = (ix+9)/QUADSIZE;
+ quady = (iy+9)/QUADSIZE;
+ sectx = ix - QUADSIZE*(quadx-1);
+ secty = iy - QUADSIZE*(quady-1);
+ prout("\n\rEntering %s.",