10 REM > DISKSP
   20 REM DISC SPEED TESTER
   30 REM BY DOMINIC PLUNKETT
   40 PRINT"DISC SPEED TESTER"
   50 PRINT
   60 DIM D% 1024*16
   70 DIM ctrl% 15:X%=ctrl%:Y%=X%DIV256
   80 OSCLI "SAVE TEST "+STR$~D%+"+4000"
   90 F%=OPENIN"TEST"
  100 X%?0=F%    :REM Channel
  110 X%!1=D%    :REM Address
  120 X%!5=1     :REM Count
  130 X%!9=0     :REM Seek to start of file
  140 A%=3       :REM Read from file
  150 T%=TIME:CALL&FFD1:T%=TIME-T%
  160 X%!9=&3F00 :REM Seek to end of file-256
  170 X%!5=1     :REM Count
  180 Z%=TIME:CALL&FFD1:Z%=TIME-Z%
  190 PRINT"Seek Time ",T%-Z%," centiseconds"
  200 X%!5=&4000 :REM Count=16K
  210 X%!9=0     :REM Seek to start of file
  220 T%=TIME:CALL&FFD1:T%=TIME-T%
  230 PRINT"16K OSGBPB",T%," centiseconds"
  240 CLOSE#F%
  250 T%=TIME:OSCLI "LOAD TEST "+STR$~D%:T%=TIME-T%
  260 PRINT"*LOAD 16K ",T%," centiseconds"

Download DISKSP

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.