BASIC/log10k.bas at main · mit41301/BASIC · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
10 '**************************************
20 ' T.A. Elkins Log(10k!) Benchmark
30 ' -------------------------------
40 '
50 ' Computes number of decimal digits in
60 ' 10,000 factorial.  (Exact answer is
70 ' 35660.)
80 '
90 ' See COMPUTERWORD, April 20, 1987, for
100 ' more information.
110 '
120 ' Translated to CP/M MBASIC 5.0
130 ' Jim Lill 19 July 87
140 '
150 '**************************************
160 '
170 ' IBM PC Results:
180 '
190 ' Compiler/     Code  Time
200 ' Intrepreter   Size  (sec)  Error
210 ' ------------  ----  -----  -----
220 ' TrueBASIC      82K    3.5
230 ' Better BASIC   48K   10
240 ' Quick BASIC    27K   56
250 ' GW-BASIC       n/a  149
260 '
270 ' (Error results were not given.)
280 '
290 ' Amiga Results:
300 '
310 ' AmigaBASIC     n/a  103    0.5457
320 '
330 ' CP/M Results:
340 '
350 ' MBASIC 5.0 \
360 ' @ 10MHz     \  n/a  110    0.5462
370 ' @  6MHz     /  n/a  184    0.5462
380 '**************************************
390 DEFINT I
400 DEFDBL E,X,Y,Z
410 Z=10
420 X=0
430 EXACT = 35660#
440 PRINT "Elkins Log(10k!) Benchmark"
450 PRINT
460 PRINT "Note the Start Time!";CHR$(7)
470 FOR I=2 TO 10000
480  Y=I
490  X=X+LOG(Y)
500 NEXT I
510 PRINT "Note the End Time!";CHR$(7)
520 PRINT
530 PRINT "Error: ";EXACT - X/LOG(Z)
540 END