code39 is an autolisp routine developed by christopher herd, oct.1994 this routine will create a code 39 (code 3 of 9) bar code symbol 0.0625' to the right of a selected point. this symbol will be 0.3' wide, read from bottom to top, and be of unlimited length. a text string will be placed 1.388' to the right and 0.23' above the selected point. this text will be drawn on the active layer using active color, linetype, and textstyle. the text will be 0.125' tall, middle right justified, and all capital letters (regardless of user input alpha characters are forced upper case).