O1000 (MACRO)
G0 X[#4] Y[#5]
Z[#6+2]
WHILE [#6 GT #9] DO1
G1 Z[#6] F500
X[#7]
Y[#8]
X[#4]
Y[#5]
#6=#6-#11
END1
M99