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:

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