10 st%=milliseconds(0)
20 for i%=1 to 100 step 2
30 s%=s%+i%
35 s%=s%-(i%*i%)
40 next i%
50 et%=milliseconds(0)
60 gosub 250
80 st%=milliseconds(0)
90 for i%=1 to 100 step 2
100 gosub 210
110 next i%
120 et%=milliseconds(0)
130 gosub 250
150 st%=milliseconds(0)
160 u%=u%+1
170 if u% < 100 then goto 160
175 et%=milliseconds(0)
180 gosub 250
190 sleep 4000
195 end
200 rem sub
210 sv%=23+inc%
220 inc%=12*(inc%/8)
230 return
240 rem outresult
250 print str$(et%-st%)
260 repaint:sleep 1000
270 return