10 REM > NULADETECT
   20 MODE2
   30 FORI%=0TO15:VDU19,I%,0,0,0,0:NEXT
   40 E%=FNTM(5)
   50 *FX9
   60 *FX10
   70 ?&FE22=4
   80 G%=FNTM(5)
   90 MODE7
  100 PRINT;E%;"/";G%
  110 NULA%=E%/G%>0.75
  120 IFNULA%:PRINT"NULA PRESENT":ELSE:PRINT"NULA NOT PRESENT"
  130 IFNULA%:?&FE22=&40:REM RESET NULA
  140 END
  150 :
  160 DEFFNTM(N%):LOCALI%,T%
  170 T%=TIME:FORI%=1TON%:*FX19
  180 NEXT:=TIME-T%

Download NULADetect

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.