10 REM GAMMA TEST
20 PRINT "GIVE ME AN ARGUMENT (-999 TO END)>";
30 INPUT A
40 IF A=-999 THEN 999
50 PRINT "GAMMA=";GAMMA(A)
60 GOTO 20
999 END
