Probing in subroutine with quasi infinite loop

( XY Outline Probing                                                   )
(                                                                       )
( This program probes the outline of a part by first probing in the x   )
( direction retracting in the x direction then moving in the y          )
( direction then probing in the x direction again repeatedly until the  )
( outline has been traced. it stores the x y coordinates of the         )
( probed location to the file 'probe-results.ngc' in the same directory )
( as the .ini file                                                      )
( This program is adapted to our Touch Probe with a Normally Closed Contact)

(Configuration section)
G20   (inches)
F5    (Probe Speed)

#1=0      	(X start)
#2=0.10    	(X increment)
#3=10.0     (Maximum X value to move from origin)

#4=0     	(Y start)
#5=0.10    	(Y increment)
#6=10.2    	(Maximum Y value to move from origin)

#7=-.1      (Z height for profile probing)

#8=-.2   	(X retract distance)

#13=3	(Z clearance height)
(End configuration section)

(LOGOPEN,probe-results.ngc)
#9=0    (current X position) 
#10=0   (current Y position)

G0X0Y0
G0Z#7
O1 while [#9 lt #3]
	O2 while [#10 lt #6]
		#11=[#10+#5]
		(#11 is Y target move, Y position + Y offset)
		G38.3 Y#11
		O3 if [#5070 NE 0]
			(probe tripped during y move so record location and set)
			(parameters #9 and #10 equal to the current XY location.)
			#9=#5061
			#10=#5062
			(write the XYZ coordinates to the logfile)
			(LOG,#5061, #5062, #5063)
		O3 else
			(probe did not trip so probe in the X direction up to the limit)
			G38.3 X#3
			O4 if [#5070 NE 0]
				(Probe tripped during X move)
				(parameters #9 and #10 equal to the current XY location.)
				#9=#5061
				#10=#5062
				(write the XYZ coordinates to the logfile)
				(LOG,#5061, #5062, #5063)
				(retract along the x axis by the retract distance)
				#12=#10+#8
				G1 X#12
			O4 else
				(probe did not trip during x move so the probing is complete)
			O4 endif
		O3 endif
	O2 endwhile
O1 endwhile	

(LOGCLOSE)
G0Z#13
G0X#1Y#4
M2