10 b = tim
20 x = 1
30 if x < 100000 then x = x + 1 : goto 30
40 ?tim - b