The Museum of HP Calculators

# Gamma Function for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Math Pac 1. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)

## Program Listing

```LINE  KEYS
01 LBL "GAMA67"
02 LBL 10
03 LBL A
04 7P<>S
05 .577191652-
06 STO 01
07 .988205891
08 STO 02
09 .897056937-
10 STO 03
11 .918206857
12 STO 04
13 .756704078-
14 STO 05
15 .482199394
16 STO 06
17 .193527818-
18 STO 07
19 .035868343
20 STO 08
21 CLX
22 7P<>S
23 RTN
24 LBL 11
25 LBL B
26 7P<>S
27 1
28 -
29 X<0?
30 GTO 14
31 INT
32 LASTX
33 X=Y?
34 GTO 16
35 1
36 STO 09
37 X<>Y
38 LBL 09
39 X<=Y?
40 GTO 00
41 ST* 09
42 1
43 -
44 GTO 09
45 LBL 00
46 ENTER
47 ENTER
48 ENTER
49 RCL 08
50 *
51 RCL 07
52 +
53 *
54 RCL 06
55 +
56 *
57 RCL 05
58 +
59 *
60 RCL 04
61 +
62 *
63 RCL 03
64 +
65 *
66 RCL 02
67 +
68 *
69 RCL 01
70 +
71 *
72 1
73 +
74 RCL 09
75 *
76 7PRTX
77 7P<>S
78 RTN
79 LBL 16
80 LBL b
81 FACT
82 7PRTX
83 7P<>S
84 RTN
85 STOP
86 END
```