Below is a simple example of what I believe you want to accomplish
C3 =COMMENT/INPUT,YES,FULL SCREEN=NO,
HOW MANY PARTS TO RUN
ASSIGN/COUNT=0
(###### insert coordinate here turn on DCC ######)
DO/ IF/COUNT <>0 COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO, LOAD NEXT PART NOW END_IF/ ASSIGN/V1=COUNT+1 COMMENT/REPT, "***** REPORT FOR PART " +V1+ " OF "+C3.INPUT+ " *****"
I must be missing something here.
That functionality seems to already exist.
Below is a simple example of what I believe you want to accomplish
C3 =COMMENT/INPUT,YES,FULL SCREEN=NO,
HOW MANY PARTS TO RUN
ASSIGN/COUNT=0
(###### insert coordinate here turn on DCC ######)
DO/
IF/COUNT <>0
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
LOAD NEXT PART NOW
END_IF/ ASSIGN/V1=COUNT+1
COMMENT/REPT,
"***** REPORT FOR PART " +V1+ " OF "+C3.INPUT+ " *****"
(###### part inspection here ######)
MOVE/INCREMENT,<0,3,3>
FORMFEED/
ASSIGN/COUNT=COUNT+1
UNTIL/COUNT==C3.INPUT