10 REM > ReadTime
   20 REM near the beginning of the program:
   30 DIM ctrl% 31:X%=ctrl%:Y%=X%DIV256
   40 :::
   50 
   60 
   70 DEFFNtime
   80 IF HIMEM>&FFFF:=RIGHT$(TIME$,8)                       :REM 32-bit systems
   90 ?X%=0:A%=14:CALL &FFF1:IF ?X%:X%?24=13:=RIGHT$($X%,8) :REM 8-bit systems
  100 LOCAL HR%,MN%,SC%
  110 SC%=TIME DIV 100:MN%=SC% DIV 60:HR%=MN% DIV 60        :REM No RTC, use TIME
  120 =RIGHT$("0"+STR$(HR% MOD 24),2)+":"+RIGHT$("0"+STR$(MN% MOD 60),2)+":"+RIGHT$("0"+STR$(SC% MOD 60),2)

Download ReadTime

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.