10 REM > Timer
   20 D%=10000
  100 REPEAT
  110   CLS
  130   FOR L%=1 TO 25
  135     T%=TIME
  140     FOR A%=1 TO D%:NEXT
  150     A%=TIME-T%
  160     PRINT TIME;" ";A%;TAB(15);SPC(A%);"*"
  170   NEXT
  180   FOR A%=1 TO D%:NEXT
  190 UNTIL FALSE

Download Timer

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.