For example:
D111111
D222222
D333333
D444444
D555555
DO/
ASSIGN/V1="C:\USERS\**************************************READ. TXT"
FPTR =FILE/OPEN,V1,READ
V3 =FILE/READ_UPTO,FPTR,"7"
FILE/CLOSE,FPTR,KEEP
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
"Serial Number is "+V3
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
PLEASE LOAD PART
CIR1 =FEAT/CONTACT/CIRCLE/DEFAULT,CARTESIAN,OUT,LEAST_SQR
THEO/<0,0,0>,<0,0,1>,1,0
ACTL/<0,0,0>,<0,0,1>,1,0
TARG/<0,0,0>,<0,0,1>
START ANG=0,END ANG=360
ANGLE VEC=<1,0,0>
DIRECTION=CCW
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=YES
NUMHITS=3,DEPTH=0,PITCH=0
SAMPLE METHOD=SAMPLE_HITS
SAMPLE HITS=1,SPACER=0
AVOIDANCE MOVE=BOTH,DISTANCE=0.5
FIND HOLE=DISABLED,ONERROR=NO,READ POS=NO
SHOW HITS=NO
ASSIGN/COUNTER=COUNTER+1
UNTIL/COUNTER==5
