(AXIS, stop)
o<pocket_circle> sub
	#<radius> = #1
	#<depth> = #2
	#<step> = #3
	#<step_down> = #4
	#<vertical_feed> = #5
	#<start_x> = #5420
	#<start_y> = #5421
	#<start_z> = #5422

	#<r> = [#<radius> / #<step>]
	#<d> = [#<depth> / #<step_down>]

	o101 while [#5422 le #<depth>]
		o102 while [#<r> le #<radius>]
			g1 z[#5422 - #<d>]
			g1 y[#5421 + #<step>]

			g2 i0 j[-#<r>]
			#<r> = [#<r> + #<step>]
			#<d> = [#<d> + #<step_down>]
		o102 endwhile
	o101 endwhile
o<pocket_circle> endsub

f10000
o<pocket_circle> call [100] [5] [10] [1] [100]
m2