(This is the G code to graduate the pillar tool table)
(File Name: graduate.tap)
(The program requires the tool to be set to the depth of cut at the edge of the work)

(Main Program)
M98 P1004 L36 (call the main subroutine 36 times)
M30 (end the program and go to top)

O1001
    G90 G1X -.250 (engrave the long line - absolute values)
    G0X .200 (move the tool off the work)
    G91 G0A 1.0 (rotate the table by 1 degree - relative values)
    G90 G0X 0.00 (move the tool back to the edge of the work)
    M99 (end of subroutine)

O1002 
    G90 G1X -.15625 (engrave the medium line)
    G0X .200 (move the tool off the work)
    G91 G0A 1.0 (rotate the table by 1 degree)
    G90 G0X 0.00 (move the tool back to the edge of the work)
    M99 (end of subroutine)

O1003
    G90 G1X -.09375 (engrave the short line)
    G0X .200 (move the tool off the work)
    G91 G0A 1.0 (rotate the table by 1 degree)
    G90 G0X 0.00 (move the tool back to the edge of the work)
    M99 (end of subroutine)

O1004 
    F5 (set feed rate to 5)
    M98 P1001 (long line 0)
    M98 P1003 L4 (short lines 1,2,3,4)
    M98 P1002 (medium line 5) 
    M98 P1003 L4 (short lines 6,7,8,9 - line 10 is line 0 of the next loop)
    M99 (end of subroutine)

(eof)