the script of <object> with line numbers?

[Paul Dupuis]

Is there a way (an existing function or command in the language or IDE) 
to get the script of an object WITH the line numbers as you see them in 
the IDE script editor?

OR

Do I just have to do something like:

put the script of tObject into tScript
repeat with i=1 to the number of lines in tScript
   put i &space before line i of tScript
end repeat

Any secret IDE or LCS knowledge welcome. Thank you in advance.