Print "Sieve of Eratosthenes Speed Test"
Start = Timer

10 W=500:Dim F(W):P=1:A=3
20 F(P)=A:P=P+1:If P>W Then GoTo DONE
30 A=A+2:X=1
40 S=A/F(X):If S=Int(S) Then 30
50 X=X+1:If X<P And F(X)*F(X)<=A Then 40
60 GoTo 20

DONE:
Print (Timer-Start)/1000

How Fast Were Those Late 1970s Home Computers?
8-Bit Home Computer Benchmarks

computer model clock CPU time lines/sec
============== ===== === ==== =========
TRS 80 model I with Level II Basic 1.77 MHz Z80 421 s 378
Sinclair ZX Spectrum +3 3.55 MHz Z80A 388 s 411
Tandy 102 2.40 MHz 80C85 367 s 434
Atari 130XE (Atari BASIC Rev. C) 1.79 MHz 6502C 338 s 471
Atari 800XL 1.80 MHz 6502 316 s 504
Tandy 64K CoCo 2 0.90 MHz 6809E 271 s 588
Commodore Plus/4 1.80 MHz 8501 267 s 597
Sony F1XV MSX2+ (MSX Microsoft BASIC 3.0) 3.58 MHz Z80A 260 s 613
Commodore C64 1.00 MHz 6510 254 s 627
Commodore VIC-20 (Microsoft BASIC 2a) 1.00 MHz 6502 234 s 681
TRS-80 Micro Colour Computer (MC-10) 0.90 MHz 6803 220 s 724
Apple IIe Enhanced (Applesoft II) 1.00 MHz 6502 211 s 755
Sharp MZ-731 4.00 MHz Z80A 182 s 875
Commodore 128 2.00 MHz 8502 152 s 1048
Tandy 64K CoCo 3 1.79 MHz 809E 147 s 1084
Amstrad CPC464 4.00 MHz Z80A 140 s 1138
Acorn Electron 2.00 MHz 6502 138 s 1154
BBC Model B (BBC BASIC 2) 2.00 MHz 6502 101 s 1577
BBC Master (BBC BASIC 4) 2.00 MHz 65SC12 76 s 2096

Micromite MX150 40 MHz mips M4K 6.86 s 23232
Micromite MX170 (Mk II) 40 MHz mips M4K 5.31 s 30000
Micromite MX470 (plus) 100 MHz mips M4K 2.96 s 53854
Micromite MZ2048 (extreme) 200 MHz mips M 1.12 s 142105
MMbasic on RPi Zero (JG) ARMv6 0.89 s 178387
MMbasic on RPi B+ (DH) ARMv6 0.67 s 239189
MMbasic on RPi Zero W (PM) ARMv6 0.63 s 252857
MMbasic on RPi 3 (DH) ARMv8 0.22 s 734101
MMbasic on RPi 3 (PM) ARMv8 0.19 s 861081
MMbasic for WIN32 2400 MHz i7 0.06 s 2569355

Start = Timer
For i = 1 To w:Print f(i);:Next
Print (Timer-Start)/1000

Print "Sieve of Eratosthenes Speed Test"
Print
Start = Timer

10 W=500:Dim F(W):P=1:A=3
20 F(P)=A:P=P+1:If P>W Then GoTo DONE
30 A=A+2:X=1
40 S=A/F(X):If S=Int(S) Then 30
50 X=X+1:If X<P And F(X)*F(X)<=A Then 40
60 GoTo 20

DONE:
Elapsed = (Timer-Start)/1000
Print Elapsed " seconds"
Print

I = 0 ' statement counter
J = 0 ' line counter
Erase F

110 I=I+4: J=J+1: W=500:Dim F(W):P=1:A=3
120 I=I+3: J=J+1: F(P)=A:P=P+1:If P>W Then GoTo FINI
130 I=I+2: J=J+1: A=A+2:X=1
Print ,P Chr$(13);
140 I=I+2: J=J+1: S=A/F(X):If S=Int(S) Then I=I+1: GoTo 130
150 I=I+2: J=J+1: X=X+1:If X<P And F(X)*F(X)<=A Then I=I+1: GoTo 140
160 I=I+1: J=J+1: GoTo 120

FINI:
Print I " statements"
Print J " lines"
Print
Print I / Elapsed " statements per second"
Print J / Elapsed " lines per second"
Print

>
>
> run
Sieve of Eratosthenes Speed Test

5.403 seconds

48122 statements
19747 lines

8906.53 statements per second
3654.82 lines per second