Programm für den HP-20s zum Kürzen eines Bruchs.

LBL D     01- 61 41 d
STO 1     02- 21 1
SWAP      03- 51 31
STO 0     04- 21 0
C         05- 71
XEQ 1     06- 41 1
RCL 0     07- 22 0
RTN       08- 61 26
LBL 1     09- 61 41 1
RCL 0     10- 22 0
-         11- 65
RCL 1     12- 22 1
STO 0     13- 21 0
=         14- 74
ABS       15- 51 44
STO 1     16- 21 1
-         17- 65
RCL 0     18- 22 0
=         19- 74
x=0?      20- 61 43
RTN       21- 61 26
GTO 1     22- 51 41 1
LBL B     23- 61 41 b
STO 4     24- 21 4
SWAP      25- 51 31
STO 3     26- 21 3
XEQ D     27- 41 d
STO/ 3    28- 21 45 3
STO/ 4    29- 21 45 4
RCL 4     30- 22 4
INPUT     31- 31
RCL 3     32- 22 3
RTN       33- 61 26

checksum: A32A

Bedienung:
Zähler eintippen, INPUT, Nenner eintippen, XEQ B
gekürzter Zähler wird angezeigt, SWAP, gekürzter Nenner wird angezeigt

Nur ggT berechnen:
erste Zahl eintippen, INPUT, zweite Zahl eintippen, XEQ D
ggT wird angezeigt