REM Speed Test
      MODE8
      PRINT'"Speed Tester - this will take a few seconds only..."
      n = 10000000
      TIME=0
      FOR x=1 TO n
      NEXT
      COLOUR3
      PRINT'"Time to do 10 million empty FOR NEXT loops = ";TIME/100;"sec"
      PRINT'"Rate = ";INT(n/(TIME/100));" loops/sec"
      COLOUR15
      PRINT''"It would be interesting if you could report"
      PRINT"your measured rate and machine specification"
      PRINT"(make, processor speed, etc) by email"
      PRINT"to richardweston@onetel.net.uk"
      COLOUR2
      PRINT''"My (year 1990) Archimedes 420/1 does 29673 loops/sec"
      PRINT "BBC Basic for Windows on my (year 2000) 600MHz Tiny computer does"
      PRINT"2.19 million loops/sec"
      PRINT" ie BB4W on the PC is 64 times faster than the Acorn Archi."