> list
dim fooflag, s, a(50)
settick 499, fooISR
fooflag = 0

do
 fooflag = 1
 do while fooflag
   foo
   inc foolfag, -1
 loop
 if s mod 50 <> 0 then print s
 pause 1
loop

sub foo
 local i
 s = 0
 for i = 1 to 50
   a(i) = a(i) + 1
   s = s + a(i)
 next i
end sub

sub fooISR
 if fooflag then
   inc fooflag
 else
   foo
 endif
end sub