Jak to wykonac ?

Kod: Zaznacz cały

 ------------------------------- )
(  W Y B I E R A N I E  C Z O Ł A )
( ------------------------------- )
( Kamar                           )
( Time-stamp: <2012-10-22 11:57>  )
( ------------------------------- )

(info: wybieranie czola )

o<wybieranie> sub
#<nr> = #1 (=1 numer narzędzia)
#<obr> = #2 (=400 obroty)
#<odboczka> = #3 (=0 <> odboczka)
#<sr1> = #4 (=40 średnica zewnętrzna duża)
#<sr2> = #5 (=10 średnica zewnętrzna mała)
#<sr3> = #6 (=30 średnica wewnętrzna duża)
#<sr4> = #7 (=20 średnica wewnętrzna mała)
#<glebokosc> = #8 (=-10 głębokość)
#<glebokosc_pocz> = #9 (=0 głębokość pocz)
#<dobieranie> = #10 (=1 dobieranie)
#<predkosc> = #11 (=60 prędkosć)
#<w_z> = #12 (  Z  do zmiany)
#<w_x> = #13 (  X  do zmiany) 
#<woda> = #14 (=1 <> chłodzenie )

#<glebokosc> = #<glebokosc>
#<akt_glebokosc> = #<glebokosc_pocz>
o1 if [#<woda> eq 1]
   M8
o1 endif
o2 if [#<odboczka> eq 1]
  #<obr> = [#<obr> * 8]
o2 endif
M6 T#<nr> G43

g0 z1 x#<sr1>
m3 s#<obr>

o100 while [#<akt_glebokosc> gt #<glebokosc>]
	#<akt_glebokosc> = [#<akt_glebokosc> - #<dobieranie>]
	o101 if [#<akt_glebokosc> lt #<glebokosc>]
		#<akt_glebokosc> = #<glebokosc>
	o101 endif

	g0 z0
	g1 z#<akt_glebokosc> x[#<sr3>] F#<predkosc>	
	g1 x#<sr4>
	g1 x#<sr2> z0 
	g0 z1
	g0 x#<sr1>

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

o<wybieranie> endsub