BEGIN PGM PROGRAM MM
BLK FORM 0.1 Z X+0 Y+0 Z-31
BLK FORM 0.2 X+75 Y+75 Z+0
TOOL CALL 1 Z S10000 F2000
TOOL DEF 5 ; Pre-load tool in magazine for next TOOL CALL
Q41 = -5
LBL 1
L X-20 Y-20 FMAX M13
L Z+20 FMAX
L Z+Q41 F400
L X+0 RL
L Y+75
CHF 3
L X+75
CHF 3
L Y-0
CHF 3
L X+0
CHF 3
L Y+95
L Y+95
L Z+20 R0
LBL 0
Q41 = -10
CALL LBL 1
Q41 = -15
CALL LBL 1
Q41 = -20
CALL LBL 1
Q41 = -25
CALL LBL 1
Q41 = -31
CALL LBL 1
END PGM PROGRAM MM