$$ PRINT/OFF,IN $$ USE FOR PRODUCTION
PRINT/ON $$ USE FOR DEVELOPMENT
DMY = POSTF(24,1) $$ USE FOR DEVELOPMENT
$$ ****************************************************
$$ * G l o b a l V a r i a b l e S e c t i o n *
$$ ****************************************************
REDEF/ON $$ ALLOW VARAIBLES TO BE REDEFINED
$$ THE FOLLOWING VARIABLES ARE DEFINED FOR USE WITH THE
$$ POSTN/ AND REPEAT/ COMMANDS. THE USE SINGLE LETTER
$$ VARIABLES ANY WHERE ELSE IN FIL WILL REDEFINE THEM
A=1 ; B=2 ; C=3 ; D=4 ; E=5 ; F=6 ; G=7 ; H=8
I=9 ; J=10 ; K=11 ; L=12 ; M=13 ; N=14 ; O=15 ; P=16
Q=17 ; R=18 ; S=19 ; T=20 ; U=21 ; V=22 ; W=23 ;X=24
Y=25 ; Z=26
$$ ****************************************************
$$ * M a c r o S e c t i o n *
$$ ****************************************************
CIMFIL/ON,LOADTL
rslt=POSTF(20) $$ Save current Record
INSERT/'G28G91Z0.$'
INSERT/'G40G49.$'
INSERT/'M01.$'
rslt=POSTF(21) $$ Load the save Record
rslt=POSTF(13) $$ Process current CL
CIMFIL/OFF
CIMFIL/ON,CUTCOM
$$
$$ This FIL is used to set a default diameter offset number
$$
SETV=POSTF(7,4) $$ get the 4th CL word
SETT=POSTF(6,4) $$ get the type of the 4th CL word
NBEL=POSTF(5) $$ Number of word
IF(SETT.EQ.0.AND.SETV.NE.(ICODEF(OFF)).AND.NBEL.EQ.4)THEN
$$ Default offset number to current tool number
DMY=POSTF(10,5,(POSTF(1,3,497)))
$$ Change number of argument
DMY=POSTF(12,5)
ENDIF
$$ Execute the current record (modified or not``)
DMY=POSTF(13)
CIMFIL/OFF
$$ ****************************************************
$$ * C i m f i l S e c t i o n s *
$$ ****************************************************
$$ ****************************************************
$$ * E n d O f F I L F i l e *
$$ ****************************************************
FINI