Here's one:
Code:
Reverse("one") ?
Reverse("two") ?
Reverse("three") ?
Reverse("supercalifragilisticexpialidocious") ?

Function Reverse($s)
While $s<>""
$Reverse=Left($s,1)+$Reverse
$s=SubStr($s,2)
Loop
EndFunction