HP Forums
(30b) Reverso Programme - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (30b) Reverso Programme (/thread-2436.html)



(30b) Reverso Programme - Gerald H - 11-16-2014 12:16 PM

The programme Reverso takes integer input & returns the base 10 digitally reversed integer. As an extra bonus, the sign of negative integers is preserved!

0 P9
1 =
2 0
3 STO 1
4 R↓
5 Lbl 51
6 Input
7 1
8 0
9 /
10 Ans
11 STO* 1
12 Swap
13 Math
14 Up
15 Up
16 Input
17 STO 2
18 *
19 -
20 STO+ 1
21 RCL 2
22 Input
23 GT 51
24 RCL 1
25 RTN