!	FNDUMP.B4S - dump string segment and ascii values of characters.
	!
	DEF fn.dump% (strnge$, char1%, char2%)
	!
	PRINT "<";left$(strnge$, 4%);">"
	FOR XYZ% = char1% TO char2%
	PRINT ASCII (SEG$(strnge$,XYZ%,XYZ%))
	NEXT XYZ%
	!
	FNEND
	!