Ah so one tag can do it all 
my first export:
Oh it has the tags built into the clipboard copy!
Except no line numbers, so now it's a rule with an exception
my first export:Code: (Select All)
_Title "test my 3 for 1 function" ' b+ 2023-06-22
For i = 1 To 12
Print FillNumberStr$(i, "0", 1234), FillNumberStr$(i, " ", 1234), FillNumberStr$(i, "_", 1234)
Next
Print "Result make sure places is greater or equal to longest number to display"
Print "In the 1234 example that would be 4 digits for places"
Function TS$ (nn) ' this comment started on column 60
TS$ = Right$("0000" + LTrim$(Str$(nn)), 4)
End Function
Function TS1$ (nn1) ' this comment started on column 60
TS1$ = Right$("00" + LTrim$(Str$(nn1)), 2)
End Function
Function TS2$ (nn2) ' this comment started on column 60
TS2$ = Right$("000" + LTrim$(Str$(nn2)), 3)
End Function
' replace above Functions with a generic string filler 2023-06-22
Function FillNumberStr$ (places As Integer, char$, number As Long)
' make sure places is >= to longest (in digits)
' number to display, char$ might work oddly
' with more than 1 alphanumeric.
FillNumberStr$ = Right$(String$(places, char$) + _Trim$(Str$(number)), places)
End Function
Oh it has the tags built into the clipboard copy!
Except no line numbers, so now it's a rule with an exception
b = b + ...