TI 83 Calculator String Programming

http://tibasicdev.wikidot.com/number-to-string

Seems pretentious and convoluted.

Code:

:"I HAVE "→Str1
:" DOLLARS"→Str2
:Prompt N
:{0,1→L₁
:{0,N→L₂
:LinReg(ax+b) Y₁
:Equ►String(Y₁,Str3
:sub(Str3,1,length(Str3)-3→Str3
:Disp Str1+Str3+Str2

Fatal flaw is that the line doesn't automatically break if it's too long, thus giving you
I HAVE 5 DOLLAR...
as your output.

Code:

:Disp Str1
:Disp N
:Disp Str2

A lot simpler, though you may run short on vertical space this way.