o<test_carousel>sub


M68 E0 Q#<selected_tool>
M64 P10 ; start carousel

M66 P4 L3 Q30

O100 if [#5399 EQ -1]
(DEBUG, failed to carousel pocket)
M65 P10
O100 endif

M65 P10 ; stop carousel

M64 P12  ; Carousel einfahren zum Tool wechsel
M66 P5 L3 Q10
o101 if [#5399 EQ -1]
(DEBUG,STOP: Carousel nicht eingefahren)
M0
o101 endif

M65 P12  ; Carousel ausfahren nach wechsel Tool
M66 P6 L3 Q10
o102 if [#5399 EQ -1]
(DEBUG,STOP: Carousel nicht eingefahren)
M0
o102 endif



o<test_carousel> endsub
M2