HP-15C Speed-up

[boniholmes]

This is what I am running now by putting 2500 to the X register, then starting it with "f" "B":

001 LBL B
002 STO 0
003 RAD
004 FIX 9
005 0
006 LBL 0
007 1
008 +
009 SQRT
010 X^2
011 LN
012 e^X
013 ARCTAN
014 TAN
015 DSE 0
016 GTO 0
017 DEG
018 RTN