proc snapshot
	local	0,000020,bar
	local	1,000020,bar2
	local	2,000020,is
	local	3,000020,is0
	local	4,000000,prefix
	local	5,000000,image
	local	6,000000,write
	local	7,000000,repl
	con	0,010000,11,046,163,165,142,152,145,143,164,040,075,040
	con	1,002000,1
	con	2,010000,1,055
	con	3,002000,4
	con	4,010000,1,174
	con	5,010000,1,040
	con	6,002000,2
	con	7,010000,2,174,040
	con	8,010000,2,040,174
	con	9,010000,0
	filen	[-.source]snapshot.icn
	declend
	line	10
	mark	L1
	pnull
	var	4
	str	0
	line	12
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	5
	line	13
	keywd	18
	invoke	1
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	mark	L4
	pnull
	var	5
	pnull
	line	14
	keywd	18
	int	1
	keywd	15
	sect
	invoke	1
	size
	esusp
	goto	L5
lab L4
	line	14
	pfail
lab L5
	asgn
	unmark
lab L3
	mark	L6
	var	6
	pnull
	var	0
	var	7
	str	2
	pnull
	pnull
	pnull
	var	2
	line	15
	size
	pnull
	var	4
	size
	plus
	int	3
	plus
	invoke	2
	asgn
	invoke	1
	unmark
lab L6
	mark	L7
	var	6
	pnull
	var	1
	pnull
	pnull
	str	4
	var	7
	str	5
	pnull
	pnull
	pnull
	var	2
	line	16
	size
	pnull
	var	4
	size
	plus
	int	6
	plus
	invoke	2
	cat
	str	4
	cat
	asgn
	invoke	1
	unmark
lab L7
	mark	L8
	var	6
	str	7
	var	4
	var	2
	str	8
	line	17
	invoke	4
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	1
	pnull
	pnull
	pnull
	var	4
	line	18
	size
	var	3
	plus
	int	6
	plus
	subsc
	str	4
	asgn
	unmark
lab L9
	mark	L10
	var	6
	var	1
	line	19
	invoke	1
	unmark
lab L10
	mark	L11
	var	6
	var	0
	line	20
	invoke	1
	unmark
lab L11
	mark	L12
	mark	L13
	str	9
	line	21
	pret
lab L13
	line	21
	pfail
	unmark
lab L12
	pnull
	line	22
	pfail
	end