CNC Programming Samples

[MyStrat]

I'm going to school for CNC programming, just getting started. Does anyone know where I can find samples of macros that I can look at and try and figure out what they do?

thanks
dt

[tobyaxis]

Here you go.

%
O9012
#25=#4
#7=#7+13000
#1=#[#7]
IF[#6EQ#0]GOTO1
#6=#6-#1
N1#2=#4-#1
#3=#2/2
#4=#2*2
IF[#6NE#0]GOTO10
IF[#18EQ#0]GOTO5
IF[#25LE#1]GOTO3333
IF[#18GE#2]GOTO4444
#11=#18-#3
#12=#11*#11
#13=#3*#3
#14=#13-#12
#10=SQRT[#14]
#15=#2-#18
#16=#9*3
G91G94
G2X#18Y#10R#3F#16
X#15Y-#10R#3F#9
X-#4R#2
X#4R#2
X-#15Y-#10R#3
X-#18Y#10R#3F#16
GOTO100
N5
IF[#25LE#1]GOTO3333
G91G94
G2X#2R#3
X-#4R#2
X#4R#2
X-#2R#3
GOTO100
N10
IF[#17GE[#1*2]]GOTO5555
IF[#25LT#1]GOTO6666
G91G94
#18=#17/2
#19=#6/2
G2X#2R#3F#9
G2X-#4R#2
X#4R#2
DO1
N1#4=#17+#4
N2#2=#4/2
N3IF[[#4-#30]GE#6]GOTO20
N4G2X-#4R#2
N5#30=#2
N6#4=#17+#4
N7#2=#4/2
N8IF[[#4-#30]GE#6]GOTO30
N9X#4R#2
#30=#2
END1
N20#2=#2-#18
#4=#4-#17
#20=#6-#2
#4=#4+#20
#2=#4/2
G2X-#4R#2
G2I#6
G2X#6R#19
GOTO100
N30#2=#2-#18
#4=#4-#18
#20=#6-#2
#4=#4+#20
#2=#4/2
G2X#4R#2
G2I-#6
G2X-#6R#19
N100G1G90
M99
N3333#3000=5(END MILL TOO LARGE)
N4444#3000=6(RAPID MOVE TOO LARGE)
N5555#3000=7(STEP OVER TOO LARGE)
N6666#3000=8(ENTRY ARC TOO SMALL)
%

[AMCjeepCJ]

I hate to sound stupid but what on earth is a macro? I've successfully avoided them for 15 years but my ignorance needs to end~

[AMCjeepCJ]

Holy crap, I'm a dumbass! I read your code Toby, lol, I didn't realize THAT is what a macro was... I guess I haven't been avoiding them for 15 years, I've only been avoiding calling them by their proper name! Thank God too because I honestly was always a little stressed about trying to learn 'them' but in actuality I've been writing macros since I was 13 years old~