CIMFIL / ON, SPINDL $$ Starts
DMY=POSTF(20) $$ save
QA=POSTF(7,4)
IF (QA.EQ.(ICODEF(RPM))) THEN
AUXFUN/05; AUXFUN/12; AUXFUN/03
END IF
DMY=POSTF(21) $$ restore
DMY=POSTF(13) $$ Process
CIMFIL/OFF
CIMFIL / ON, SPINDL $$ Starts
DMY=POSTF(20) $$ save
QA=POSTF(7,4)
IF (QA.EQ.(ICODEF(OFF)).OR.QA.EQ.(ICODEF(ON))) THEN
DMY=POSTF(21) $$ restore
DMY=POSTF(13) $$ Process
ELSE
AUXFUN/05; AUXFUN/12; AUXFUN/03
END IF
DMY=POSTF(21) $$ restore
DMY=POSTF(13) $$ Process
CIMFIL/OFF