C_TEXT($newPath;$path)
C_LONGINT($i;$lengthPath)
C_TEXT($0;$1)
$path:=$1
$newPath:=""
$i:=Length($path)
$lengthPath:=Length($path)
Repeat 

If (Substring($path;$i;1)=OSpathBreak)
If (($i>1) & (Ascii($path[[$i-1]]+$path[[$i]]) & 0xFF00=0)) | ($i=1)  `for Japanese
$newPath:=Substring($path;($i+1))
End if 
End if 

$i:=$i-1

Until ($newPath#"") | ($i<1)
$0:=$newPath