Tu masz wywołanie innego programu z przeniesieniem parametrów
#<poczatek> = #7 (=0 pocz&#9472;ůtek)
#<koniec> = #8 (=-10 koniec)
#<posuw> = #9 (=80 posuw)
#<fazka> = #10 (=0 fazka)
#<w_z> = #11 (=1 Z do zmiany)
#<w_x> = #12 (=60 X do zmiany)
#<woda> = #13 (=1 <> ch&#9532;éodzenie)
#<korekta> = #14 (=0 <> korekta)

o20 if [#<w_z> lt #<poczatek> or #<w_x> lt #<sr_pocz>]
(msg, KOLIZJA ! z&#9532;éy wyjazd)
M30
o20 endif


o<zmiana> call [#<tool>] [#<nr>]



g61 g80

m3 s#<obr>
o1 if [#<woda> eq 1]
M8
o1 endif




g0 x[#<sr_pocz> + 1]
g0 z[#<poczatek> + 1]

o1000 if [#<korekta> eq 0]
o10 while [#<sr_pocz> gt #<sr_koncowa>]
#<sr_pocz>=[#<sr_pocz> - #<dobieranie>]
o402 if [#<sr_pocz> lt #<sr_koncowa>]
#<sr_pocz> = #<sr_koncowa>
o402 endif
g0 x#<sr_pocz>
g1 z#<koniec> f#<posuw>
g1 x[#<sr_pocz> + #<dobieranie>]
g0 z[#<poczatek> + 1]
o10 endwhile
o1000 else
g0 x#<sr_koncowa> z[#<poczatek>+1]
g1 z#<koniec> f#<posuw>
g1 x[#<sr_koncowa> + #<dobieranie>]
g0 z[#<poczatek> + 1]
o1000 endif




o100 if [#<fazka> gt 0]
g0 z[#<poczatek> + 1]


g0 x[#<sr_koncowa> - [#<fazka> * 2]]
g1 z#<poczatek> F#<posuw>
g1 z[#<poczatek> - #<fazka>] x#<sr_koncowa> f#<posuw>
g1 z[#<poczatek> - #<fazka> -0.5]
g0 x[#<sr_koncowa>+1 ]
/g0 z[#<poczatek> + 1]

o100 endif

m5 m9

g0 x#<w_x>
g0 z#<w_z>

o<zew> endsub