%  *******************************
%  ** IC socket                 **
%  ** Before running this macro **
%  ** be sure that millimeters  **
%  ** represent the current     **
%  ** measurement units         **
%  ** (Measure menu, Parameters **
%  **  option)                  **
%  *******************************
%
%
1 setpen
1 setdash
getcursor
/xpos cursorx def
/ypos cursory def
/pins (How many pins [6,8,14,16,18,20,24,28 or 40]?) input def
/stat pins 24 idiv 1 add 7.62 mul def
/pins pins 2 div def
pins {
xpos ypos moveto
0.8 dup rbox
xpos ypos stat add
moveto
0.8 dup rbox
/xpos xpos 2.54 add def
}