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