G20 (Inches)
G90 (Absolute distance mode)
G55 (Machine Plane Coordinates) 

    #<_ccws> = 1(extruding)
    #<_cws> = 5 (back up)
    #<_d_z> = 0 (Initial Height of Needle Tip)
    #<_x> = 4  (h-r)
    #<_y> = 5  (k)
    #<_r> = 1 (radius in inches)  
    #<_h> = 5  (x-center coordinate)
    #<_k> = 5  (y-center coordinate)
    #<_delta> = 0.0325  (width between rows)
    #<_speed> = 1  (x-center coordinate)
    #<_layers_> = 1

o101 while[#<_layers_> LE 8]
    G0 Z#<_d_z>
    M3 S#<_ccws> 
    #<_step_> = 0
    #<_layers_> = 1
o101 while[#<_step_> LE 2] 
       #<_x>= [#<_x> ]
        G1 X[#<_x>] F#<_speed>
        G1 Y[#<_k>+#<_delta>] F#<_speed>
        G1 Y[#<_k>-#<_delta>] F#<_speed>
	#<_step_> = [#<_step_> + 1] (Increase #100 by 1 each iteration of the loop)
o101 endwhile

    #<_step_> = 10

  o101 while [#<_step_> LE 2]
        #<_y>= [#<_y> + #<_delta>]
        G1 Y[#<_y>] F#<_speed>
        G1 X[#<_h>+#<_delta>] F#<_speed>
        G1 X[#<_h>-#<_delta>] F#<_speed>
	#<_step_> = [#<_step_> + 1] (Increase #100 by 1 each iteration of the loop)
 o101 endwhile
	
	G1 X[#<_start_x>] F#<_speed>
    	G1 Y[#<_start_y>] F#<_speed>

	M5
	M4 S#<_cws> 
	G4 P 5  (Pause Length in Seconds)
	M5	
	#<_d_z> = [#<_d_z> + 1]
	#<_d_z_1> = [#<_d_z_1> + 1]
       	G0 Z#<_d_z_1>
	(G0 X#<_start_x> Y#<_start_y>)
 #<_layers_> = [#<_layers_> + 1]
    
o101 endwhile

M30