Fanuc G72.2 linear copy milling program example

MAIN PROG .

O5000

N10   G90 G94 F300 ;

N20   G00 X-10 Y0 ;

N30   G41 G17 G01 X15 D01 ;                          [P0]

N40   G01 Y20 ;                                                 [P1]

N50   G72.2 P5100 L3 I60 J0 ;

N60   G40 ;N70   G90 X195 Y0 ;                        [P8]

N80   G00 X-10 ;

N90   M30 ;

SUB PROG. 

O5100 N100 G91 G01 X20 ;                     [P2]

N200 G01 Y20 ;                                         [P3]

N300 G02 X20 I10 ;                                   [P4]

N400 G01 Y-20 ;                                        [P5]  
N500 G01 X20 ;                                         [P6]                                         

N600 M99 ;

                                                                        More examples..........!!!!

DESCRIPTION OF PROGRAM :-

Main prog.
O5000-  Number of main program
N10- Absolute co-ordinate command , feed rate per minute command , feed is 300
N20- Rapid command , where tool at safe position X-10 and Y0 .
N30- Tool radius compensation at left ,slection of XY plane command , linear interpolation command , where X15 and Y0 (it means tool at position P0 )
N40- Linear interpolation command , where tool is X15 and Y20 [P1]
N50- Linear copy command , call sub program no.5100 , no. of times the operation is repeated , tool shift along X and Y axis is 60 and 0.
N60- Tool radius compensation off
N70- Absolute co-ordinate command ( to cancel incremental command ), when tool at X195 and Y0.
N80- Rapid commad , where tool is return at X-10 and Y0
N90- Main program end .

Sub prog.
[note:- In these program sub program name and other first command written in same row  like; O5100 N100 G91 G01 X20 ;]

O5100- No. of sub program , N100 - Incremental co-ordinate command ( each distance count from current position)  , linear interpolation command where X20 and Y 20 .[P2]
N200- Linear interpolation command , where tool travel along y axis is 20 . [P3] { up}
N300- Circular interpolation clockwise where X20 and radius along X axis is 10.[P4]
N400- Linear interpolation command , where tool is along Y-20 [P5]
N500- Linear interpolation command , where tool is along X20  [P6]
N600- Sub program end .