Problem with HEAD & TAIL Programmes on HP 33s

[Gerald H]

Thank you, Thomas, I take my hat off to you!

Your longer version is preferable on the 33s due to paucity of labels.

My adaptation below preserves the stack in order to fit in with other programmes.

Timings show your programme (in my adaptation) on 33s faster than my 2nd programme in 1st posting by a factor of 0.56, ie 17.41s against 31.18s.

Code:

1.    LBL X
2.    x=0?
3.    RTN
4.    STO N
5.    LOG
6.    2
7.    /
8.    IP
9.    ALOG
10.    x<> N
11.    RCL/ N
12.    IP
13.    STO N
14.    LOG
15.    IP
16.    ALOG
17.    x<> N
18.    RCL/ N
19.    IP
20.    RTN

X: LN = 72