10 POKE53281,0:POKE53280,11:PRINTCHR$(154)CHR$(142):A=-1
20 PRINT:POKE198,0:INPUT" FAKULTAET VON ";A:IFA<0ORA><INT(A)THEN20
30 TI$="000000":T1=TI:F$=STR$(A)+"! ="
40 PRINT:IFA<34THENC=1:FORD=1TOA:C=C*D:NEXT:PRINTF$C:GOTO70
50 C=(LOG(2*(null)*A)/2+A*LOG(A)+1/12/A-A)/LOG(10):E=INT(C)
60 PRINTF$STR$(10^(C-E))"E+"MID$(STR$(E),2)
70 T2=TI:PRINT:PRINT(T2-T1)/60"SEK. RECHENZEIT."
80 REM (C) 1992 BY G. SIEGEL