break on

$directory="%userprofile%"
for each $dir in dirplus($directory,"/ad")
  if left($dir.name,3)="Men"
	$special=asc(right($dir.name,1))
	? "" + $special + " is the ascii character code number"
	? "The character you are looking for is:" + chr($special)
  endif
next