14 lines
228 B
Text
14 lines
228 B
Text
void local fn DoIt
|
|
CFStringRef s1 = @"asdf", s2 = @""
|
|
long index
|
|
for index = len(s1) - 1 to 0 step -1
|
|
s2 = fn StringByAppendingString( s2, mid(s1,index,1) )
|
|
next
|
|
print s1,s2
|
|
end fn
|
|
|
|
window 1
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|