cpu_test

DIM i AS LONG, a AS LONG, b AS LONG
DIM t AS DOUBLE
a = 1: b = 1
t = TIMER(.001)
FOR C = 1 TO 100
  FOR i = 1 TO 1000000
    a = a * 7919: b = b * 139: a = a * b: b = b * a
    a = a * 3: b = b * 41: a = a * b: b = b * a
    a = a * 7919: b = b * 139: a = a * b: b = b * a
    a = a * 3: b = b * 41: a = a * b: b = b * a
  NEXT
  PRINT a;
NEXT

PRINT
PRINT (TIMER - t) / 1600; "seconds per million multiplies"
PRINT 1600 / (TIMER - t); "million multiplies per second"
PRINT

a = 1: b = 1
t = TIMER(.001)
FOR C = 1 TO 100
  FOR i = 1 TO 1000000
    a = a + 7919: b = b + 139: a = a + b: b = b + a
    a = a + 3: b = b + 41: a = a + b: b = b + a
    a = a + 7919: b = b + 139: a = a + b: b = b + a
    a = a + 3: b = b + 41: a = a + b: b = b + a
  NEXT
  PRINT a;
NEXT

PRINT
PRINT (TIMER - t) / 1600; "seconds per million adds"
PRINT 1600 / (TIMER - t); "million adds per second"