thing-yx
COMMENT	"nosearch"
COMMENT	"VLSTART"
TEXT	@-vft-yx-varlist
COMMENT	"VLSTOP"
COMMENT	"START"
FOR-EACH-OBJECT	WHOLE-CONTENTS
	TEXT	"@@@@@"
	TEXT	id
	TEXT	"~~||~~"
	FOR-EACH	|var	vline
		|sequence	LINES	@-vft-yx-varlist
		IF	|test	OR
					PAT-MATCH	|s	vline
						|pat	"^#"
					PAT-MATCH	|s	vline
						|pat	"^id,"
					EQUALS	|value1	vline
						|value2	""
			|else	MULTI
					WITH=	|variable	varray
						|value	PAT-MATCH	|s	vline
								|pat	","
						WITH=	|variable	vgroup
							|value	ELEMENT	|position	0
									|sequence	varray
							WITH=	|variable	vname
								|value	ELEMENT	|position	0
										|sequence	vgroup
								WITH=	|variable	vtype
									|value	ELEMENT	|position	2
											|sequence	vgroup
									IF	|test	EQUALS	|value1	vtype
												|value2	"image"
										|then	WHEN	NAMED-PROP	|name	vname
												TEXT	IMAGE-REF	NAMED-PROP	|name	vname
										|else	TEXT	NAMED-PROP	|name	vname
					TEXT	"~~||~~"
	LINEBREAK
COMMENT	"END"

--v	-vft-yx-varlist	big-text