12 lines
215 B
Text
12 lines
215 B
Text
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
|