10
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:
140 END
150 :
160 DEFFNTM(N%):LOCALI%,T%
170 T%=TIME:FORI%=1TON%:*FX19
180 NEXT:=TIME-T%