proc sprintf
	filen	printf.icn
	local	0,001000,format
	local	1,001000,args
	local	2,000000,_doprnt
	declend
	line	43
	colm	11
	mark	L1
	mark	L2
	var	2
	var	0
	var	1
	line	44
	colm	23
	invoke	2
	line	44
	colm	9
	pret
lab L2
	pfail
	unmark
lab L1
	pnull
	line	45
	colm	1
	pfail
	end
proc fprintf
	local	0,001000,file
	local	1,001000,format
	local	2,001000,args
	local	3,000000,writes
	local	4,000000,_doprnt
	declend
	line	47
	colm	11
	mark	L1
	var	3
	var	0
	var	4
	var	1
	var	2
	line	48
	colm	29
	invoke	2
	line	48
	colm	15
	invoke	2
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	49
	colm	9
	pret
lab L3
	pfail
	unmark
lab L2
	pnull
	line	50
	colm	1
	pfail
	end
proc printf
	local	0,001000,format
	local	1,001000,args
	local	2,000000,writes
	local	3,000000,_doprnt
	declend
	line	52
	colm	11
	mark	L1
	var	2
	line	53
	colm	16
	keywd	output
	var	3
	var	0
	var	1
	line	53
	colm	32
	invoke	2
	line	53
	colm	15
	invoke	2
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	54
	colm	9
	pret
lab L3
	pfail
	unmark
lab L2
	pnull
	line	55
	colm	1
	pfail
	end
proc _doprnt
	local	0,001000,format
	local	1,001000,args
	local	2,000020,out
	local	3,000020,v
	local	4,000020,just
	local	5,000020,width
	local	6,000020,conv
	local	7,000020,prec
	local	8,000020,pad
	local	9,000000,tab
	local	10,000000,upto
	local	11,000000,get
	local	12,000000,move
	local	13,000000,right
	local	14,000000,left
	local	15,000000,many
	local	16,000000,string
	local	17,000000,integer
	local	18,000000,hexstr
	local	19,000000,octstr
	local	20,000000,image
	local	21,000000,fixnum
	local	22,000000,push
	con	0,010000,0
	con	1,020000,1,045
	con	2,002000,1,0
	con	3,002000,1,1
	con	4,010000,1,055
	con	5,010000,1,060
	con	6,010000,1,056
	con	7,010000,1,144
	con	8,010000,1,163
	con	9,010000,1,170
	con	10,010000,1,157
	con	11,010000,1,151
	con	12,010000,1,162
	declend
	line	57
	colm	11
	mark	L1
	pnull
	var	2
	str	0
	line	60
	colm	13
	asgn
	unmark
lab L1
	mark	L2
	var	0
	line	61
	colm	16
	bscan
lab L3
	mark	L3
	mark	L6
	mark	L7
	pnull
	var	2
	dup
	var	9
	var	10
	cset	1
	line	62
	colm	35
	invoke	1
	line	62
	colm	30
	invoke	1
	line	62
	colm	22
	cat
	asgn
	esusp
	goto	L8
lab L7
	pnull
	var	2
	dup
	var	9
	int	2
	line	62
	colm	58
	invoke	1
	line	62
	colm	50
	cat
	asgn
	pop
	unmark
	unmark
	pnull
	goto	L5
lab L8
	unmark
lab L6
	mark	L9
	pnull
	var	3
	var	11
	var	1
	line	63
	colm	25
	invoke	1
	line	63
	colm	19
	asgn
	unmark
lab L9
	mark	L10
	var	12
	int	3
	line	64
	colm	21
	invoke	1
	unmark
lab L10
	mark	L11
	pnull
	var	4
	var	13
	line	65
	colm	22
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	5
	pnull
	var	6
	pnull
	var	7
	pnull
	var	8
	line	66
	colm	49
	keywd	null
	line	66
	colm	46
	asgn
	line	66
	colm	39
	asgn
	line	66
	colm	31
	asgn
	line	66
	colm	23
	asgn
	unmark
lab L12
	mark	L13
	pnull
	str	4
	line	67
	colm	17
	tabmat
	pop
	pnull
	var	4
	var	14
	line	67
	colm	29
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	5
	var	9
	var	15
	line	68
	colm	35
	keywd	digits
	line	68
	colm	34
	invoke	1
	line	68
	colm	29
	invoke	1
	line	68
	colm	23
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	pnull
	var	5
	line	69
	colm	18
	nonnull
	int	3
	line	69
	colm	25
	subsc
	str	5
	line	69
	colm	29
	lexeq
	pop
	pnull
	var	8
	str	5
	line	69
	colm	42
	asgn
	unmark
lab L15
	mark	L16
	pnull
	str	6
	line	70
	colm	17
	tabmat
	pop
	pnull
	var	7
	var	9
	var	15
	line	70
	colm	41
	keywd	digits
	line	70
	colm	40
	invoke	1
	line	70
	colm	35
	invoke	1
	line	70
	colm	29
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	6
	var	12
	int	3
	line	71
	colm	29
	invoke	1
	line	71
	colm	22
	asgn
	unmark
lab L17
	mark	L18
	mark0
	var	6
	eret
	mark	L20
	ccase
	str	7
	line	76
	colm	24
	eqv
	unmark
	pop
	pnull
	var	3
	var	16
	var	17
	var	3
	line	77
	colm	44
	invoke	1
	line	77
	colm	36
	invoke	1
	line	77
	colm	27
	asgn
	goto	L19
lab L20
	mark	L21
	ccase
	str	8
	line	79
	colm	24
	eqv
	unmark
	pop
	pnull
	var	3
	var	16
	pnull
	var	3
	int	3
	mark	L22
	pnull
	pnull
	var	7
	line	80
	colm	42
	nonnull
	int	3
	line	80
	colm	47
	plus
	esusp
	goto	L23
lab L22
	int	2
lab L23
	line	80
	colm	40
	sect
	line	80
	colm	36
	invoke	1
	line	80
	colm	27
	asgn
	goto	L19
lab L21
	mark	L24
	ccase
	str	9
	line	82
	colm	24
	eqv
	unmark
	pop
	pnull
	var	3
	var	18
	var	3
	line	82
	colm	37
	invoke	1
	line	82
	colm	28
	asgn
	goto	L19
lab L24
	mark	L25
	ccase
	str	10
	line	83
	colm	24
	eqv
	unmark
	pop
	pnull
	var	3
	var	19
	var	3
	line	83
	colm	37
	invoke	1
	line	83
	colm	28
	asgn
	goto	L19
lab L25
	mark	L26
	ccase
	str	11
	line	84
	colm	24
	eqv
	unmark
	pop
	pnull
	var	3
	var	20
	var	3
	line	84
	colm	36
	invoke	1
	line	84
	colm	28
	asgn
	goto	L19
lab L26
	mark	L27
	ccase
	str	12
	line	85
	colm	24
	eqv
	unmark
	pop
	pnull
	var	3
	var	21
	var	3
	var	7
	line	85
	colm	37
	invoke	2
	line	85
	colm	28
	asgn
	goto	L19
lab L27
	pop
	mark	L28
	var	22
	var	1
	var	3
	line	87
	colm	29
	invoke	2
	unmark
lab L28
	pnull
	var	3
	var	6
	line	88
	colm	27
	asgn
lab L19
	unmark
lab L18
	mark	L29
	mark0
	pnull
	var	5
	line	91
	colm	20
	nonnull
	pop
	pnull
	pnull
	var	3
	line	91
	colm	29
	size
	var	5
	line	91
	colm	32
	numlt
	unmark
	pnull
	var	3
	var	4
	var	3
	var	5
	var	8
	line	92
	colm	34
	invoke	3
	line	92
	colm	27
	asgn
	unmark
lab L29
	pnull
	var	2
	dup
	var	3
	line	94
	colm	21
	cat
	asgn
lab L4
	unmark
	goto	L3
lab L5
	line	61
	colm	16
	escan
	unmark
lab L2
	mark	L30
	mark	L31
	var	2
	line	97
	colm	9
	pret
lab L31
	pfail
	unmark
lab L30
	pnull
	line	98
	colm	1
	pfail
	end
proc hexstr
	local	0,001000,n
	local	1,000020,h
	local	2,000020,neg
	local	3,000040,BigNeg
	local	4,000040,hexdigs
	local	5,000040,hexfix
	local	6,000000,integer
	local	7,000000,right
	con	0,002000,10,2147483647
	con	1,002000,1,1
	con	2,010000,16,060,061,062,063,064,065,066,067,070,071,141,142,143,144,145,146
	con	3,010000,8,070,071,141,142,143,144,145,146
	con	4,010000,8,070,060,060,060,060,060,060,060
	con	5,010000,0
	con	6,002000,1,0
	con	7,002000,2,16
	con	8,002000,1,8
	con	9,010000,1,060
	declend
	line	100
	colm	11
	init	L1
	mark	L1
	mark	L2
	pnull
	var	3
	pnull
	pnull
	int	0
	line	105
	colm	27
	neg
	int	1
	line	105
	colm	38
	minus
	line	105
	colm	24
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	str	2
	line	106
	colm	25
	asgn
	unmark
lab L3
	pnull
	var	5
	str	3
	line	107
	colm	24
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	0
	var	6
	var	0
	line	110
	colm	21
	invoke	1
	line	110
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	0
	var	3
	line	111
	colm	14
	numeq
	unmark
	mark	L6
	str	4
	line	112
	colm	17
	pret
lab L6
	pfail
	unmark
lab L5
	mark	L7
	pnull
	var	1
	str	5
	line	113
	colm	11
	asgn
	unmark
lab L7
	mark	L8
	mark0
	pnull
	var	0
	int	6
	line	114
	colm	14
	numlt
	unmark
	mark	L9
	pnull
	var	0
	pnull
	pnull
	var	3
	var	0
	line	115
	colm	31
	minus
	line	115
	colm	22
	neg
	line	115
	colm	19
	asgn
	unmark
lab L9
	pnull
	var	2
	int	1
	line	116
	colm	21
	asgn
	unmark
lab L8
	mark	L10
lab L11
	mark	L11
	mark	L14
	pnull
	var	1
	pnull
	pnull
	var	4
	pnull
	pnull
	var	0
	int	7
	line	119
	colm	31
	mod
	int	1
	line	119
	colm	34
	plus
	line	119
	colm	29
	subsc
	var	1
	line	119
	colm	37
	cat
	line	119
	colm	19
	asgn
	unmark
lab L14
	mark0
	pnull
	pnull
	var	0
	dup
	int	7
	line	120
	colm	23
	div
	asgn
	int	6
	line	120
	colm	31
	numeq
	unmark
	unmark
	pnull
	goto	L13
lab L12
	unmark
	goto	L11
lab L13
	unmark
lab L10
	mark	L15
	mark0
	pnull
	var	2
	line	123
	colm	12
	nonnull
	unmark
	mark	L16
	pnull
	var	1
	var	7
	var	1
	int	8
	str	9
	line	124
	colm	27
	invoke	3
	line	124
	colm	19
	asgn
	unmark
lab L16
	pnull
	pnull
	var	1
	int	1
	line	125
	colm	18
	subsc
	pnull
	var	5
	pnull
	pnull
	var	1
	int	1
	line	125
	colm	33
	subsc
	int	1
	line	125
	colm	36
	plus
	line	125
	colm	31
	subsc
	line	125
	colm	22
	asgn
	unmark
lab L15
	mark	L17
	mark	L18
	var	1
	line	127
	colm	9
	pret
lab L18
	pfail
	unmark
lab L17
	pnull
	line	128
	colm	1
	pfail
	end
proc octstr
	local	0,001000,n
	local	1,000020,h
	local	2,000020,neg
	local	3,000040,BigNeg
	local	4,000040,octdigs
	local	5,000040,octfix
	local	6,000000,integer
	local	7,000000,right
	con	0,002000,10,2147483647
	con	1,002000,1,1
	con	2,010000,8,060,061,062,063,064,065,066,067
	con	3,010000,2,062,063
	con	4,010000,11,062,060,060,060,060,060,060,060,060,060,060
	con	5,010000,0
	con	6,002000,1,0
	con	7,002000,1,8
	con	8,002000,2,11
	con	9,010000,1,060
	declend
	line	129
	colm	11
	init	L1
	mark	L1
	mark	L2
	pnull
	var	3
	pnull
	pnull
	int	0
	line	134
	colm	27
	neg
	int	1
	line	134
	colm	38
	minus
	line	134
	colm	24
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	str	2
	line	135
	colm	25
	asgn
	unmark
lab L3
	pnull
	var	5
	str	3
	line	136
	colm	24
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	0
	var	6
	var	0
	line	139
	colm	21
	invoke	1
	line	139
	colm	11
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	0
	var	3
	line	140
	colm	14
	numeq
	unmark
	mark	L6
	str	4
	line	141
	colm	17
	pret
lab L6
	pfail
	unmark
lab L5
	mark	L7
	pnull
	var	1
	str	5
	line	142
	colm	11
	asgn
	unmark
lab L7
	mark	L8
	mark0
	pnull
	var	0
	int	6
	line	143
	colm	14
	numlt
	unmark
	mark	L9
	pnull
	var	0
	pnull
	pnull
	var	3
	var	0
	line	144
	colm	31
	minus
	line	144
	colm	22
	neg
	line	144
	colm	19
	asgn
	unmark
lab L9
	pnull
	var	2
	int	1
	line	145
	colm	21
	asgn
	unmark
lab L8
	mark	L10
lab L11
	mark	L11
	mark	L14
	pnull
	var	1
	pnull
	pnull
	var	4
	pnull
	pnull
	var	0
	int	7
	line	148
	colm	31
	mod
	int	1
	line	148
	colm	33
	plus
	line	148
	colm	29
	subsc
	var	1
	line	148
	colm	36
	cat
	line	148
	colm	19
	asgn
	unmark
lab L14
	mark0
	pnull
	pnull
	var	0
	dup
	int	7
	line	149
	colm	23
	div
	asgn
	int	6
	line	149
	colm	30
	numeq
	unmark
	unmark
	pnull
	goto	L13
lab L12
	unmark
	goto	L11
lab L13
	unmark
lab L10
	mark	L15
	mark0
	pnull
	var	2
	line	152
	colm	12
	nonnull
	unmark
	mark	L16
	pnull
	var	1
	var	7
	var	1
	int	8
	str	9
	line	153
	colm	27
	invoke	3
	line	153
	colm	19
	asgn
	unmark
lab L16
	pnull
	pnull
	var	1
	int	1
	line	154
	colm	18
	subsc
	pnull
	var	5
	pnull
	pnull
	var	1
	int	1
	line	154
	colm	33
	subsc
	int	1
	line	154
	colm	36
	plus
	line	154
	colm	31
	subsc
	line	154
	colm	22
	asgn
	unmark
lab L15
	mark	L17
	mark	L18
	var	1
	line	156
	colm	9
	pret
lab L18
	pfail
	unmark
lab L17
	pnull
	line	157
	colm	1
	pfail
	end
proc fixnum
	local	0,001000,x
	local	1,001000,prec
	local	2,000020,int
	local	3,000020,frac
	local	4,000020,f1
	local	5,000020,f2
	local	6,000020,p10
	local	7,000000,integer
	local	8,000000,image
	local	9,000000,find
	local	10,000000,tab
	local	11,000000,upto
	local	12,000000,move
	local	13,000000,repl
	local	14,000000,left
	con	0,002000,1,6
	con	1,010000,1,145
	con	2,020000,1,056
	con	3,002000,1,1
	con	4,020000,1,145
	con	5,002000,1,0
	con	6,010000,1,060
	con	7,010000,1,056
	declend
	line	159
	colm	11
	mark	L1
	pnull
	pnull
	var	1
	line	162
	colm	9
	null
	int	0
	line	162
	colm	15
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	mark	L3
	var	7
	var	0
	line	163
	colm	23
	invoke	1
	esusp
	goto	L4
lab L3
	mark	L5
	var	8
	var	0
	line	163
	colm	41
	invoke	1
	line	163
	colm	29
	pret
lab L5
	pfail
lab L4
	line	163
	colm	13
	asgn
	unmark
lab L2
	mark	L6
	pnull
	var	3
	var	8
	pnull
	var	0
	var	2
	line	164
	colm	25
	minus
	line	164
	colm	22
	invoke	1
	line	164
	colm	14
	asgn
	unmark
lab L6
	mark	L7
	mark	L8
	var	9
	str	1
	var	3
	line	165
	colm	16
	invoke	2
	unmark
	pnull
	var	3
	sdup
	line	166
	colm	22
	bscan
	pnull
	var	4
	var	10
	var	11
	cset	2
	line	167
	colm	39
	invoke	1
	line	167
	colm	34
	invoke	1
	line	167
	colm	28
	asgn
	pop
	var	12
	int	3
	line	168
	colm	29
	invoke	1
	pop
	pnull
	var	5
	var	10
	var	11
	cset	4
	line	169
	colm	39
	invoke	1
	line	169
	colm	34
	invoke	1
	line	169
	colm	28
	asgn
	pop
	var	12
	int	3
	line	170
	colm	29
	invoke	1
	pop
	pnull
	var	6
	pnull
	var	7
	var	10
	int	5
	line	171
	colm	44
	invoke	1
	line	171
	colm	40
	invoke	1
	line	171
	colm	32
	neg
	line	171
	colm	29
	asgn
	pop
	pnull
	pnull
	var	13
	str	6
	pnull
	var	6
	int	3
	line	172
	colm	37
	minus
	line	172
	colm	29
	invoke	2
	var	4
	line	172
	colm	41
	cat
	var	5
	line	172
	colm	47
	cat
	line	166
	colm	22
	escan
	asgn
	goto	L9
lab L8
	pnull
	var	3
	sdup
	line	176
	colm	22
	bscan
	var	10
	var	11
	cset	2
	line	176
	colm	35
	invoke	1
	line	176
	colm	30
	invoke	1
	pop
	var	12
	int	3
	line	176
	colm	48
	invoke	1
	pop
	var	10
	int	5
	line	176
	colm	57
	invoke	1
	line	176
	colm	22
	escan
	asgn
lab L9
	unmark
lab L7
	mark	L10
	pnull
	var	3
	var	14
	var	3
	var	1
	str	6
	line	177
	colm	21
	invoke	3
	line	177
	colm	14
	asgn
	unmark
lab L10
	mark	L11
	mark	L12
	pnull
	pnull
	var	2
	str	7
	line	178
	colm	20
	cat
	var	3
	line	178
	colm	27
	cat
	line	178
	colm	9
	pret
lab L12
	pfail
	unmark
lab L11
	pnull
	line	179
	colm	1
	pfail
	end
