I did change two lines of code to make this work better for my needs. the first change was just a preference but I diffently would keep the second change.
1st change, the line... fp.writeline ("NEW NOTE /" + fname)[/i]
was changed to... fp.writeline ("NEW NOTE")[/i]
just would rather name the note myself then have some long filename for the name.
then I changed...
buf = buf & "Origin Offset X " & x & " Y " & y & clrf[/i]
to buf = buf & "Origin Offset X " & x & ".5" & " Y " & y & clrf[/i]
this was so the text was slightly offseted the STRA and not right on the line. Makes it look neater.