name
without path, should be in V[fname].
Set V[i]
"&V[fullpathi]" -stringlength
Set V[k] &V[i]
label
check_character
if V[i>0]
Set V[char]
"&V[fullpath] (&V[i]-&V[i])"
if V[char=\]
Set V[i] &V[i] + 1
Set V[fname] "&V[fullpath] (&V[i]-&V[k])"
else
Set V[i] &V[i] - 1
goto check_character
endif