1 POKE53280,9: POKE53281,11: POKE646,05: PRINT"[147]
2 [153]""[166]240)[166]243)"**********************************"[166]6)"(C)"[166]27)
3 [153]"PRGM"[166]6)"***    FAKULTAET BERECHNEN    ****"[166]6)"1983"[166]25)"LEMKE
4 PRINT"   **********************************
5 [153][163]15)"N=";: [159]1,0: [132]1,X$: [160]1
6 X[178][197](X$): [139] X[177]32767 [176] X[179]0 [137] 1
7 X%[178][181](X): [153]"  CMDCMDCMDCMDCMDCMD          ON": [153] [163]20)X%: XX[178]1: [139] X[179]1 [137] 11
8 [139] X[177]3248 [137] 15
9 [139] X[177]12 [137] 16
10 [129] P[178]X% [164] 1 [169][171]1: XX[178]P[172]XX: [130]
11 [153]"LOAD"[163]212)X%"CMDSYS!"[163]18)"= "XX: X[178][188](XX)[173][188](10): [137] 14
12 M[178][181](X): L[178]10[174](X[171]M): L$[178][200]([196](L),(12[171][195]([196](M)))): [153]"    "
13 [153]"LOAD"[163]250)X%"CMDSYS!"[163]18)"="L$" E"M
14 [153] [163]3)"LOG ("X%"CMDSYS! )"[163]18)"="X"": [156]: [137] 2
15 X[178](X%[172][188](X%[173][189](1))[170][188](2[172][255][172]X%)[173]2)[173][188](10): [137] 12
16 L[178]1[173]12[173]X%:X[178][188](2[172][255])[173]2[170]L[171]L[173]30[173]X%[173]X%[170]L[173]105[173]X%[174]4[171]L[173]140[173]X%[174]6
17 X[178](X[170](X%[170].5)[172][188](X%)[171]X%[170]1.8E[171]8)[173][188](10): [137] 12                            :
18                                                                             :
19       IN ZEILE 16[173]17 WIRD DIE       :
20       " EULER - MACLAURIN           :
21       'SCHE   SUMMENFORMEL "        :
22       MIT BERNOULLI[171]KOEFFIZIENTEN   :
23               VERW[128]ET                                                     :
25     FUER GROSSE  N  (BZW  N !) IST  :
26     DIE  "STIRLING'SCHE NAEHERUNG"  :
27      N! [178] ((N[173][189](N))[174]N)[172](2[255]N)[174].5   :
28             V[176]ZUZIEHEN !                                                   :