10 REM GAMMA FUNCTION CALCULATOR USING THE INCOMPLETE ALGORITHM
20 REM WRITTEN FOR THE HP-71B BY VIKTOR T. TOTH - MARCH 17, 2004
30 REM CONVERTED TO A dib PROGRAM BY ANTONIO MASCHIO - NOV. 24, 2008
100 PRINT "ENTER ARGUMENT=";
105 INPUT A
110 PRINT "ENTER INTEGRATION LIMIT=";X
120 LET G=X^A/EXP(X)/A
130 LET T=G
140 LET A=A+1
150 LET T=T*X/A
160 IF G=G+T THEN 190
170 LET G=G+T
180 GOTO 140
190 PRINT "GAMMA=";G
200 END

