1 REM Ins{nt av 4888
10 REM *******************************
20 REM *  FACULIST -  ett fakultets- *
30 REM *  ber{kningsprogram.         *
40 REM *  (C) Leif Hoffmann Laursen  *
50 REM *  <4888>.   84 08 15         *
60 REM *******************************
70 REM 
80 REM -Endast f|r dom som {r interes-
90 REM serade av STORA tal !!
100 REM 
110 ; CHR$(12) : X$='1' : Y1$='13' : K$='0' : Z$='1'+STRING$(13,48)
120 K$=ADD$(K$,'1',0) : X$=MUL$(X$,K$,0)
130 IF LEN(X$)>14 X$=DIV$(X$,'10',0) : Y1$=ADD$(Y1$,'1',0) : GOTO 130
140 IF LEN(X$)=14 Y$=DIV$(X$,Z$,13) : Y$=Y$+'  E '+Y1$ : GOTO 160
150 Y$=X$
160 ; K$"! = "Y$ : GOTO 120