cap program drop char_finder
program define char_finder, rclass
syntax anything
	local temp `anything'
	local strl=length(`"`temp'"')
	local inp `"`temp'"'
	se linesize 200
	local strct=0
	local lets
	local chars
	forvalues p=1/`strl' {
		local ++strct
		local curlet=substr(`"`inp'"',`p',1)
		local char
		forvalues i=1/255 {
			if `i'!=96 {
				if `"`=char(`i')'"'==`"`curlet'"' {
					local char `i'
					continue, break
				}
			}
		}
		if `strct'<40 {
			local lets `"`lets' {col `=`strct'*4'} `curlet'"'
			local chars`"`chars' {col `=`strct'*4'}`char'"'
		}
		if `strct'>=40 {
			local lets `"`lets' {col `=`strct'*4'} `curlet'"'
			local chars`"`chars' {col `=`strct'*4'} `char'"'
			di as smcl `"`lets'"'
			di as smcl `"`chars'"'
			di as smcl `"{hline 160}"'
			local strct=0
			local lets
			local chars
		}
	}
	di as smcl `"`lets'"'
	di as smcl `"`chars'"'
	di as smcl `"{hline 160}"'

end