+- 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