void local fn SpinTheRod
  CFStringRef s = @"|/—\\"
  block int i = 0
  timerbegin , 0.25, YES
    cls : print mid( s, i, 1 )
    i++ : if ( i >= len(s) ) then i = 0
  timerend
end fn

fn SpinTheRod

HandleEvents