' speed test
' will test and report the speed of MMBasic
'

dim integer i,cnt
SETPIN 3,2 : SETPIN 5, 8
lines = 5
loops = 1000000
TIMER = 0
'
' start of the timed section (5 lines)
FOR i = 1 TO loops
 inp = PIN(3)
 PIN(5) = inp
 cnt = cnt + 1
NEXT
'
PRINT "Speed is"; INT((loops * lines)/(TIMER /1000)); " lines per second."

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

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

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

(the below list compiled June 2017)
Micromite MX150 40 MHz mips M4K 6.86s
Micromite MX170 (Mk II) 40 MHz mips M4K 5.31s
Micromite MX470 (plus) 100 MHz mips M4K 2.96s
Micromite MZ2048 (extreme) 200 MHz mips M 1.12s
MMbasic on RPi Zero (JG) ARMv6 0.89s
MMbasic on RPi B+ (DH) ARMv6 0.67s
MMbasic on RPi Zero W (PM) ARMv6 0.63s
MMbasic on RPi 3 (DH) ARMv8 0.22s
MMbasic on RPi 3 (PM) ARMv8 0.19s
MMbasic for WIN32 2400 MHz i7 0.06s

T3 = Timer

p = 1     ' position in array to store next prime
a = 3     ' number to be evaluated for primeness
F(p) = a  ' 1st one is chosen as prime
p = p + 1 ' advance to next position

do
 a = a + 2   ' next candidate prime
 x = 1       ' start with 1st prime
 do
   s = a / F(x)  ' test for division with no remainder
   if s = int(s) then exit do  ' divides evenly so this one isn't prime
   x = x + 1     ' advance to next prime with which to test candidate
   if x > p or F(x) * F(x) > a then ' stop testing after sqr(a)
     F(p) = a    ' found a new prime so save it
     p = p + 1   ' bump index
     exit do     ' time to start testing next prime candidate
   end if
 loop
loop until p > 500

T4 = Timer