I forgot to put frame limiting into it...although given the source is included it is not too hard to put in. An easy way is like this:
at the beginning of the core loop (repeat...etc)
if millisecs()>time then
time=millisecs()+15
and place the end if immediately before renderworld/flip