That is kind of funny and ridiculously outdated. Fingers crossed... I might have a new Haas to test it on by the second week in April. Which is perfect timing since I will be at AZ Bikeweek for the entire first week but that will put a bunch of spare change on hand to start buying Cat40 tooling, carts, er-32 collets, 6" double station vises (ouch). Funny the things that end up seeming to cost the most are the cheapest per piece :-/
I always thought the "O0001" all of my MC posts put out was to make sub-routines easier. I just cut the tool change section out, add it before the O0001, replace the m30 at the end with m99, and add sub calls to the top, plus m30, % obviously. 80% of what I program is sub routines. Gets pretty damn complicated with variables, but it makes adjusting for part variations easier.