NaNoCalc

I made a pretty cool program for the TI-83+ today which calculates how much work you still have to do for NaNoWriMo. Just plug in your current word count and the date, and you're good to go. Here's the code for it:

PROGRAM:NANOCALC
:ClrHome
:Disp "Word count?"
:Input W
:Disp "Today's date?"
:Input D
:int((1666+(2/3)D)→X
:X-W→X
:W/50000→P
:100P→P
:ClrHome
:Disp "You need",X,"words."
:Pause
:Disp ""
:Disp "You are",P,"percent done."