O9876 (ENGRAVING)
(KPZ 29-JUN-96 FIXED ACCURACY PROBLEMS WITH I,J)
(KPZ 2-Nov-96 Fixed problem with metric and large sizes)
#700= #4003 (SAVE G90/G91)
#701= #4001 (SAVE G00/G01 etc.)
G00 X#24 Y#25
Z#18 (IF R, MOVE THERE WITH USERS G90/G91)
#702= #5003 - #26
IF [ #9 EQ #0 ] #9= #4109 (USE PRESENT F IF NONE SPECIFIED)
IF [ #8 EQ #0 ] #8= #9 (IF NO E, USE F)
G91 (ALL INCREMENTAL FROM HERE ON)
IF [ #4 EQ #0 ] #4= 0.0
IF [ #5 EQ #0 ] #5= 1.0
G68 R#4
G51 P [ #5 * 1000 ]
N1000
M97 (M97 AUTO M99 AT END OF STRING)
GOTO1000
N125
M99
(SPACE)
N126
G00 X0.864 F#8
M99
N127
G#700 (RESTORE G90/G91)
G#701 (RESTORE G00/G01 etc.)
M99
N1
(!)
G00 X0.2692
G01 Z - #702 F#8
G03 J0.0297 F#9
G00 Z#702
G00 Y0.2079
G01 Z - #702 F#8
G01 X0.0495 Y0.6732 F#9
G03 X-0.099 R0.0495
G01 X0.0495 Y-0.6732
G00 Z#702
G00 X0.2692 Y-0.2079
M99