CIMFIL/ON,SPINDL
ARG1=POSTF(7,4) $$ first argument of SPINDL
IF (ARG1.NE.(ICODEF(OFF))) THEN
XX=POSTF(13) $$ Process Spindl
INSERT/'G','54 ','G','90 ','X','0. ','Y','0. ','$'
ELSE
XX=POSTF(13) $$ Process Spindl
INSERT/'G','91 ', 'G' '28 ', 'Z' '0. ','$'
ENDIF
CIMFIL/OFF |