Fanuc G72.1 Rotational Copy program for milling

Main Program 
O1423
N10 G90 G00 X100 Y100 ;                           [P1]
N20 G17 G42 G01 X100 Y0 D01 F100 ;      [P2]
N30 G72.1 P1422 L4 X0 Y0 R90 ;                
N40 G90 G40 G00 X100 Y100 ;                   [P1]
N50 M30 ;

Sub Program
O1422 G91 G03 X5 Y5 R5 ;                         [P3]
N100 G01 X-68 Y2 ;                                     [P4]
N200 G03 X-20 Y20  R30 ;                           [P5]
N300 G01 X-2 Y68 ;                                      [P6]
N400 G03 X0 Y100 R5 ;                                [P7]
N500 M99 ;
                                                                                    More examples..........!!!!
                                                                                                                                               DESCRIPTION OF MAIN PROGRAM 

Main progrm
O1423- Name of main program
N10- Absolute co-ordinate system command , rapid command where tool is X 100 and Y100 .

N20- XY plane selection command , tool radius compensation right command , linear interpolation
command , where X100 , Y0 [ tool take position] , Feed rate per minute is 100 .

N30- Rotational copy command , 1422 call of sub program , Number of times the operation is repeated(4) ,operation work co-ordinate is X0 and Y0 and angle of operation is 90 .

N40-  Absolute co-ordinate system command, tool radius compensation off , rapid command where tool is return at X 100 and Y100 

N50- Main program end .

Sub program 

[note:- In these program sub program name and other first command written in same row  liken; O1422 G91 G03 X5 Y5 R5 ;   ]
Name of sub program , Increamental command ( it means evry action distance count from current          position) , circular interpolation counter clockwise( radius is external) ,where X5 , Y5 and radius              is 5[ P2 to P3 ]
N100-  linear interpolation command , where X-68 , Y2 [ P3 to P4 ]
N200-  Circular interpolation counter clockwise( radius is external) ,where X-20 , Y20 and radius is                 30[ P4 to P5 ]
N300-  linear interpolation command , where X-2 , Y68 [ P5 to P6 ]
N400-  Circular interpolation counter clockwise( radius is external) ,where X0 , Y100 and radius is                5[ P6 to P7 ]
N500-  Sub program end .