G91 G61

M66 P10 L3 Q99999999999 (czekanie na sygnal zjazdu)
G0 Z-50 (zjazd podajnika)
#4 = 0
o150 while [#4 LT 3] 
#4 = [#4 + 1]
(DEBUG, On Line 11: #5399)
(msg, czekam na S)

;o100 sub
M66 P11 L3 Q5
o110 if [#5399 EQ 1]
(PROCEDURA KLOCKA S)
M66 P00 L3 Q99999999999(czekanie na wozek)
G0 X-50 (podjazd wozka)
G4 P2 (ładowanie klocka)
G0 X50 (odjazd wozka)
M66 P01 L3 Q99999999999 (czekanie na czujnikS)
X100 (tasma S)
G0 X-100 (powrot wozka do poz. pocz.)
o110 endif
(msg, endif S)
;o100 endsub
;(msg, skonczylem suba)
;o100 call

(msg, czekam na M)
M66 P12 L3 Q10
o120 if [#5399 EQ 1]
(PROCEDURA KLOCKA M)
M66 P00 L3 Q99999999999(czekanie na wozek)
G0 X-50 (podjazd wozka)
G4 P3
G0 X50 (odjazd wozka)
M66 P02 L3 Q99999999999(czekanie na czujnikM)
Y50 (tasma M)
G4 P1
G0 Y-50 (powrot wozka do poz. pocz.)
o120 endif
(msg,end if M)
;o100 call


(msg, czekam na L)
M66 P13 L3 Q15
o130 if [#5399 EQ 1]
(PROCEDURA KLOCKA L)
M66 P00 L3 Q99999999999(czekanie na wozek)
G0 X-50 (podjazd wozka)
G4 P3
G0 X50 (odjazd wozka)
M66 P03 L3 Q99999999999(czekanie na czujnikL)
Z50 (tasma L)
G4 P1
G0 Z-50 (powrot wozka do poz. pocz.)
o130 endif
;(msg, skonczylem if L)
;o100 call
;(msg, skonczylem L)
o150 endwhile

;M66 P7 L3 Q99999999999 (czekanie na sygnal rozladunku S)
;X150 (magazyn S)

;M66 P8 L3 Q99999999999 (czekanie na sygnal rozladunku M)
;Y100 (magazyn M)

;M66 P9 L3 Q99999999999 (czekanie na sygnal rozladunku L)
;Z100 (magazyn L)

M30