IF (ISUB.EQ.1) THEN
$$INSERT/'X+200 Y+0 Z+0 F5000 M91$'
INSERT/'G0 A+0 C+0$'
INSERT/'M30$'
ENDIF
PPOF=POSTF(2,1,484,72)
FPOS=POSTF(7,1)
DMY=POSTF(15,(MPOS+1))
ELSE
DMY=POSTF(20)
LASTCD=TEXT/'N99999999 %',CLNAME,' G71$'
YMK=POSTF(1,3,351)
ZMK=POSTF(1,3,352)
RSLT=POSTF(2,1,6,FREG)
IF (ISUB.EQ.0) THEN $$INSERT/'X+200 Y+0 Z+0 F5000 M91$'
$$INSERT/'G0 Y-100 Z-150 M91$'
POSTN/OUT,G,80,A,0,C,0
PREFUN/80
INSERT/'G0 A+0$'
INSERT/'C+0 M94 C$'
$$AUXFUN/67,NEXT
$$AUXFUN/66
INSERT/'M