0  BEGIN PGM 50151-EN MM 
1  ;Program for pre milling the cylinder
2  ;
3  L  Y-Q108 R0 F9999 M3 ;Pre positioning the Y axis
4  CC  X+0  Z+0 ;Cylinder center point
5  FN 1: Q26 =+Q6 + -Q108 ;Calculate the radius the tool center moves on
6  LP  PR+Q26  PA+90 ;Move to the X and Z starting position
7  LBL 1
8  CP IPA+1 DR+ F200 ;Angle step
9  L IY+Q8 F500 ;Moving the Y axis
10 CP IPA+3 DR+ F200 ;Angle step
11 L  Y-Q108 F500 ;Moving the Y axis
12 CALL LBL 1 REP44 ;Repeat the movements
13 L  Z+50 R0 FMAX ;Move the Z axis in a save position
14 END PGM 50151-EN MM