BASIC Benchmark

Benchmark from Personal Computer World, who included the 8th trigonometric test.

The benchmarks are written in Basic.

Add or replace lines as specified, or start from scratch when (new) is written:

BENCHMARK 1 (new)

100 REM TEST 1
110 PRINT "START"
120 FOR K=1 TO 1000
130 NEXT K
500 PRINT "STOP"
550 END

120 K=0
130 K=K+1
190 IF K<1000 THEN GOTO 130

140 A=K/K*K+K-K

140 A=K/2*3+4-5

150 GOSUB 600
600 RETURN

125 DIM M(5)
155 FOR L=1 TO 5
160 NEXT L

157 M(L)=A

100 REM TEST 8
110 PRINT "START"
120 K=0
130 K=K+1
140 A=K^2
150 B=LOG(K)
160 C=SIN(K)
170 IF K<1000 THEN GOTO 130
180 PRINT "STOP"
190 END

System	BM1	BM2	BM3	BM4	BM5	BM6	BM7	BM8	Avg
BBC (B ?)	0.6	3.2	8.1	8.8	9.9	14.3	21.9	48	14.3
Amstrad CPC	1.1	3.4	9.2	9.7	10.3	19.2	29.0	34	14.5
IBM PC	1.5	5.2	12.1	12.6	13.6	23.5	37.4	35	17.6
Acorn Atom	0.5	5.1	9.5	10.8	13.9	19.1	31.1	92	22.8
VIC-20	1.4	8.3	15.5	17.1	18.3	27.2	42.7	99	28.7
Apple II	1.3	8.5	16.0	17.8	19.1	28.6	44.8	107	30.4
Dragon 32	1.6	10.2	19.7	21.6	23.3	34.3	50.0	129	36.2
Oric Atmos	1.6	15.2	25.4	27.4	33.0	45.6	68.5	136	44.1
SVI-328	1.6	5.4	17.9	19.6	20.6	30.7	42.2	236	46.7
ZX81 (fast)	4.5	6.9	16.4	15.8	18.6	49.7	68.5	229	51.2
Microtan65	1.9	12.8	24.7	27.8	29.6	43.2	68.9	243	56.5
ZX Spectrum	4.8	8.7	21.1	20.4	24.0	55.3	80.7	253	58.5
Oric-1	1.8	17.1	29.0	31.4	38.0	51.8	77.8	230	59.6
Atari 600XL	2.2	7.2	19.1	22.8	25.8	37.6	58.3	412	73.1
TI-99/4A	2.9	8.8	22.8	24.5	26.1	61.6	84.4	382	76.6

(results in seconds)