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