!	FNUNQUOTE.B4S
	!
	DEF fn.trim.quotes$ (p$)
	first.quote.pos% = instr (1, p$, '"')
	p$ = right$ (p$, first.quote.pos%+1)
	next.quote.pos% = instr (1, p$, '"')
	p$ = left$ (p$, next.quote.pos%-1) IF next.quote.pos%
	fn.trim.quotes$ = p$
	FNEND