(30b) Reverso Programme

[Gerald H]

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