proc escape
	local	0,001000,s
	local	1,000000,ns
	local	2,000000,c
	local	3,000000,move
	local	4,000000,c2
	local	5,000000,hexcode
	local	6,000000,ctrlcode
	local	7,000000,any
	local	8,000000,octcode
	con	0,010000,0
	con	1,002000,1
	con	2,010000,1,134
	con	3,010000,1,142
	con	4,010000,1,010
	con	5,010000,1,144
	con	6,010000,1,177
	con	7,010000,1,145
	con	8,010000,1,033
	con	9,010000,1,146
	con	10,010000,1,014
	con	11,010000,1,154
	con	12,010000,1,012
	con	13,010000,1,156
	con	14,010000,1,162
	con	15,010000,1,015
	con	16,010000,1,164
	con	17,010000,1,011
	con	18,010000,1,166
	con	19,010000,1,013
	con	20,010000,1,047
	con	21,010000,1,042
	con	22,010000,1,170
	con	23,010000,1,136
	con	24,020000,8,060,061,062,063,064,065,066,067
	filen	[-.source]escape.icn
	declend
	line	10
	mark	L1
	pnull
	var	1
	str	0
	line	11
	asgn
	unmark
lab L1
	mark	L2
	var	0
	line	12
	bscan
lab L3
	line	12
	mark0
	pnull
	var	2
	var	3
	int	1
	invoke	1
	asgn
	unmark
	mark	L3
	pnull
	var	1
	dup
	mark	L6
	pnull
	var	2
	str	2
	line	13
	lexeq
	unmark
	mark0
	pnull
	var	4
	mark	L9
	var	3
	int	1
	invoke	1
	esusp
	goto	L10
lab L9
	str	0
lab L10
	asgn
	eret
	mark	L11
	ccase
	str	3
	line	14
	eqv
	unmark
	pop
	str	4
	goto	L8
lab L11
	mark	L12
	ccase
	str	5
	line	15
	eqv
	unmark
	pop
	str	6
	goto	L8
lab L12
	mark	L13
	ccase
	str	7
	line	16
	eqv
	unmark
	pop
	str	8
	goto	L8
lab L13
	mark	L14
	ccase
	str	9
	line	17
	eqv
	unmark
	pop
	str	10
	goto	L8
lab L14
	mark	L15
	ccase
	str	11
	line	18
	eqv
	unmark
	pop
	str	12
	goto	L8
lab L15
	mark	L16
	ccase
	str	13
	line	19
	eqv
	unmark
	pop
	str	12
	goto	L8
lab L16
	mark	L17
	ccase
	str	14
	line	20
	eqv
	unmark
	pop
	str	15
	goto	L8
lab L17
	mark	L18
	ccase
	str	16
	line	21
	eqv
	unmark
	pop
	str	17
	goto	L8
lab L18
	mark	L19
	ccase
	str	18
	line	22
	eqv
	unmark
	pop
	str	19
	goto	L8
lab L19
	mark	L20
	ccase
	str	20
	line	23
	eqv
	unmark
	pop
	str	20
	goto	L8
lab L20
	mark	L21
	ccase
	str	21
	line	24
	eqv
	unmark
	pop
	str	21
	goto	L8
lab L21
	mark	L22
	ccase
	str	22
	line	25
	eqv
	unmark
	pop
	var	5
	pnull
	invoke	1
	goto	L8
lab L22
	mark	L23
	ccase
	str	23
	line	26
	eqv
	unmark
	pop
	var	6
	var	3
	int	1
	invoke	1
	invoke	1
	goto	L8
lab L23
	mark	L24
	ccase
	var	7
	cset	24
	var	4
	line	27
	invoke	2
	pop
	var	4
	eqv
	unmark
	pop
	var	8
	var	4
	invoke	1
	goto	L8
lab L24
	pop
	var	4
lab L8
	goto	L7
lab L6
	var	2
lab L7
	line	13
	cat
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	12
	escan
	unmark
lab L2
	mark	L25
	mark	L26
	var	1
	line	31
	pret
lab L26
	line	31
	pfail
	unmark
lab L25
	pnull
	line	32
	pfail
	end
proc hexcode
	local	0,000040,cdigs
	local	1,000000,move
	local	2,000000,i
	local	3,000000,s
	local	4,000000,tab
	local	5,000000,upto
	local	6,000000,integer
	con	0,020000,22,060,061,062,063,064,065,066,067,070,071,101,102,103,104,105,106,141,142,143,144,145,146
	con	1,002000,2
	con	2,002000,1
	con	3,002000,0
	con	4,010000,3,061,066,162
	filen	[-.source]escape.icn
	declend
	line	34
	init	L1
	mark	L1
	pnull
	var	0
	pnull
	cset	0
	line	36
	compl
	asgn
	unmark
lab L1
	mark	L2
	var	1
	pnull
	var	2
	mark	L3
	int	1
	esusp
	goto	L4
lab L3
	int	2
lab L4
	line	38
	asgn
	invoke	1
	bscan
	pnull
	var	3
	var	4
	mark	L5
	var	5
	var	0
	invoke	1
	esusp
	goto	L6
lab L5
	int	3
lab L6
	invoke	1
	asgn
	escan
	unmark
lab L2
	mark	L7
	var	1
	pnull
	pnull
	var	3
	line	39
	size
	var	2
	minus
	invoke	1
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	line	40
	keywd	3
	pnull
	var	6
	pnull
	str	4
	var	3
	cat
	invoke	1
	int	2
	plus
	subsc
	pret
lab L9
	line	40
	pfail
	unmark
lab L8
	pnull
	line	41
	pfail
	end
proc octcode
	local	0,001000,c
	local	1,000040,cdigs
	local	2,000000,move
	local	3,000000,i
	local	4,000000,s
	local	5,000000,tab
	local	6,000000,upto
	local	7,000000,integer
	con	0,020000,8,060,061,062,063,064,065,066,067
	con	1,002000,1
	con	2,002000,3
	con	3,002000,2
	con	4,002000,0
	con	5,010000,2,070,162
	filen	[-.source]escape.icn
	declend
	line	43
	init	L1
	mark	L1
	pnull
	var	1
	pnull
	cset	0
	line	45
	compl
	asgn
	unmark
lab L1
	mark	L2
	var	2
	pnull
	int	1
	line	47
	neg
	invoke	1
	unmark
lab L2
	mark	L3
	var	2
	pnull
	var	3
	mark	L4
	int	2
	esusp
	goto	L5
lab L4
	mark	L6
	int	3
	esusp
	goto	L7
lab L6
	int	1
lab L7
lab L5
	line	48
	asgn
	invoke	1
	bscan
	pnull
	var	4
	var	5
	mark	L8
	var	6
	var	1
	invoke	1
	esusp
	goto	L9
lab L8
	int	4
lab L9
	invoke	1
	asgn
	escan
	unmark
lab L3
	mark	L10
	var	2
	pnull
	pnull
	var	4
	line	49
	size
	var	3
	minus
	invoke	1
	unmark
lab L10
	mark	L11
	mark	L12
	pnull
	line	50
	keywd	3
	pnull
	var	7
	pnull
	str	5
	var	4
	cat
	invoke	1
	int	1
	plus
	subsc
	pret
lab L12
	line	50
	pfail
	unmark
lab L11
	pnull
	line	51
	pfail
	end
proc ctrlcode
	local	0,001000,s
	local	1,000000,find
	local	2,000000,map
	con	0,002000,1
	filen	[-.source]escape.icn
	declend
	line	53
	mark	L1
	mark	L2
	pnull
	line	54
	keywd	3
	pnull
	var	1
	var	2
	var	0
	invoke	1
	keywd	10
	invoke	2
	int	0
	plus
	subsc
	pret
lab L2
	line	54
	pfail
	unmark
lab L1
	pnull
	line	55
	pfail
	end