Test, Please Ignore

[Björnke von Gierke]

On 21 Jan 2011, at 19:26, Mark Wieder wrote:

> Roger-
> 
> Friday, January 21, 2011, 10:10:17 AM, you wrote:
> 
>> Testing, 1, 2, 3 . . . .
> 
> 5, 8, 13, 21 . . .

on mouseUp
   put 2 into x
   put 2 into theResult
   repeat while the mouse is up
      add one to x
      put false into isDivisable
      repeat for each item theItem in theResult
         if x mod theItem = 0 then
            put true into isDivisable
            exit repeat
         end if
      end repeat
      if isDivisable then
         next repeat
      else
         put comma & x after theResult
      end if
   end repeat
   put theResult
end mouseUp