10 PRINT "AVERAGE OF 100 LOGS"
20 LET S = 0
30  FOR N = 1 TO 100
40 LET S = S + FNL (N)
50 NEXT N
60 LET S = S/100
70 PRINT S
80 DEF FNL (Z) = LOG(Z)/LOG(10)
99 END
