%
(--- Set zero point G54 front left starting point and program number ---)

# 1 = 1; Set the starting point for the pattern
# 2 = 3; Program number 2 = 8mm cutter 3 = 6mm cutter

(----  subject 1 ----)
o1 if [# 1 EQ 1]; When variable # 1 = 1
G54 G0 X0 Y0 Z50
M98 P # 2
G54 G0 Z50
G0 X0 Y0
# 1 = [# 1 + 1]; Reset pattern number
o1 endif


(----  subject 2 ----)
o2 if [# 1 EQ 2]; If variable # 1 = 2
G54 G0 Z50
G0 X150 Y0
G10 L20 P2 X0 Y0 Z50; Calculate and approach pattern 2 L20 + P2 = G55 recalculate from current position
G55 G0 Z50
G0 X0 Y0
M98 P # 2
# 1 = [# 1 + 1]; Reset pattern number
o2 endif


(----  subject 3 ----)
o3 if [# 1 EQ 3]
G54 G0 Z50
G0 X0 Y333
G10 L20 P2 X0 Y0 Z50; Calculate and move to pattern 3 L20 + P2 = G55 recalculate from current position
G55 G0 Z50
G0 X0 Y0
M98 P # 2
# 1 = [# 1 + 1]; Reset pattern number
o3 endif


(----  subject 4 ----)
o4 if [# 1 EQ 4]
G54 G0 Z50
G0 X150 Y333
G10 L20 P2 X0 Y0 Z50; Calculate and approach pattern 4 L20 + P2 = G55 recalculate from current position
G55 G0 Z50
G0 X0 Y0
M98 P # 2
# 1 = [# 1 + 1]; Reset pattern number
o4 endif



(---- subject 5 ----)
o5 if [# 1 EQ 5]
G54 G0 Z50
G0 X0 Y666
G10 L20 P2 X0 Y0 Z50; Calculate and approach pattern 5 L20 + P2 = G55 recalculate from current position
G55 G0 Z50
G0 X0 Y0
M98 P # 2
# 1 = [# 1 + 1]; Reset pattern number
o5 endif


(----  subject 6 ----)
o6 if [# 1 EQ 6]
G54 G0 Z50
G0 X150 Y666
G10 L20 P2 X0 Y0 Z50; Calculate and approach pattern 6 L20 + P2 = G55 recalculate from current position
G55 G0 Z50
G0 X0 Y0
M98 P # 2
# 1 = [# 1 + 1]; Reset pattern number
o6 endif
G53 G0 X200 Y1200 Z-10
M30
%