; Lube Job for a Sherline 2000 Mill

#1000=0                     ; loop counter (set to 0)
#1001=5                     ; # of loops to run

; move to axes' ends and stop to lubricate the ways
G00 X9 Y7 Z6                ; move to axes' maximum position
M00                         ; STOP - lube me up!
G00 X0 Y0 Z0                ; move to axes' minimum position
M01                         ; OPTIONAL STOP - lube my hiney!

; run back and forth a few times to spread the grease
N0100 #1000=[#1000+1]       ; increment loop counter 
IF #1000 EQ #1001 M97 O1000 ; done yet? if so goto N1000
G00 X9 Y7 Z6                ; move to axes' maximum position
G00 X0 Y0 Z0                ; move to axes' minimum position
M97 O0100                   ; jump - do it again

; we're done - put the mill into the storage position
N1000 G00 X7.5 Y3.5 Z3      ; move axes to shutdown position
M30                         ; that's all folks