version	U12.1.00
uid	printcol.u1-1786032991-0
impl	error
global	1
	0,000005,printcol,6

proc printcol
	local	0,001000,items
	local	1,001000,fields
	local	2,001000,title
	local	3,001000,pagelength
	local	4,001000,linelength
	local	5,001000,auxdata
	local	6,000020,maxwidth
	local	7,000020,maxhead
	local	8,000020,groups
	local	9,000020,columns
	local	10,000020,itemlist
	local	11,000020,cont
	local	12,000020,f
	local	13,000020,p
	local	14,000020,underline
	local	15,000020,hfield
	local	16,000000,get
	local	17,000000,writes
	local	18,000000,put
	local	19,000000,write
	local	20,000000,repl
	local	21,000000,left
	local	22,000000,center
	local	23,000000,right
	con	0,002000,2,80
	con	1,002000,5,30000
	con	2,010000,0
	con	3,002000,1,1
	con	4,010000,5,167,151,144,164,150
	con	5,010000,6,150,145,141,144,145,162
	con	6,002000,1,6
	con	7,010000,1,014
	con	8,002000,1,0
	con	9,010000,1,075
	con	10,010000,1,012
	con	11,010000,12,040,050,143,157,156,164,151,156,165,145,144,051
	con	12,010000,1,040
	con	13,010000,1,055
	declend
	filen	printcol.icn
	line	92
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	4
	line	95
	colm	3
	synt	any
	null
	int	0
	line	95
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	96
	colm	3
	synt	any
	null
	int	1
	line	96
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	2
	line	97
	colm	3
	synt	any
	null
	str	2
	line	97
	colm	10
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	pnull
	var	7
	pnull
	int	3
	line	103
	colm	26
	synt	any
	neg
	line	103
	colm	23
	synt	any
	asgn
	line	103
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	11
	str	2
	line	104
	colm	8
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	105
	colm	3
	synt	every
	mark0
	pnull
	var	6
	dup
	pnull
	var	1
	line	105
	colm	23
	synt	any
	bang
	str	4
	var	5
	line	105
	colm	31
	synt	any
	invoke	2
	line	105
	colm	18
	synt	any
	numlt
	asgn
	pop
lab L7
	efail
lab L8
	line	105
	colm	3
	synt	endevery
	unmark
lab L6
	mark	L9
	pnull
	var	15
	var	16
	var	1
	line	106
	colm	16
	synt	any
	invoke	1
	line	106
	colm	10
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	line	107
	colm	3
	synt	every
	mark0
	pnull
	var	7
	dup
	pnull
	pnull
	var	1
	line	107
	colm	23
	synt	any
	bang
	str	5
	var	5
	line	107
	colm	31
	synt	any
	invoke	2
	line	107
	colm	21
	synt	any
	size
	line	107
	colm	17
	synt	any
	numlt
	asgn
	pop
lab L11
	efail
lab L12
	line	107
	colm	3
	synt	endevery
	unmark
lab L10
	mark	L13
	pnull
	var	9
	pnull
	pnull
	var	4
	var	7
	line	108
	colm	26
	synt	any
	minus
	pnull
	var	6
	int	3
	line	108
	colm	49
	synt	any
	plus
	line	108
	colm	37
	synt	any
	div
	line	108
	colm	11
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	8
	pnull
	var	3
	pnull
	int	6
	pnull
	var	1
	line	109
	colm	31
	synt	any
	size
	line	109
	colm	29
	synt	any
	plus
	line	109
	colm	24
	synt	any
	div
	line	109
	colm	10
	synt	any
	asgn
	unmark
lab L14
	mark	L15
lab L16
	line	113
	colm	3
	synt	repeat
	mark	L16
	mark	L19
	line	114
	colm	5
	synt	if
	mark0
	pnull
	var	3
	int	1
	line	114
	colm	19
	synt	any
	numlt
	unmark
	var	17
	str	7
	line	114
	colm	38
	synt	any
	invoke	1
	line	114
	colm	5
	synt	endif
	unmark
lab L19
	line	118
	colm	5
	synt	every
	mark0
	pnull
	int	3
	var	8
	push1
	line	118
	colm	13
	synt	any
	toby
	pop
	mark0
	mark	L22
	pnull
	var	10
	pnull
	line	123
	colm	19
	synt	any
	llist	0
	line	123
	colm	16
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	line	124
	colm	7
	synt	every
	mark0
	pnull
	int	3
	var	9
	push1
	line	124
	colm	15
	synt	any
	toby
	pop
	mark0
	mark	L26
	var	18
	var	10
	pnull
	var	0
	line	124
	colm	42
	synt	any
	coact
	line	124
	colm	32
	synt	any
	invoke	2
	line	124
	colm	50
	synt	any
	esusp
	goto	L27
lab L26
	unmark
	unmark
	pnull
	goto	L25
lab L27
	unmark
lab L24
	efail
lab L25
	line	124
	colm	7
	synt	endevery
	unmark
lab L23
	mark	L28
	line	125
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	10
	line	125
	colm	10
	synt	any
	size
	int	8
	line	125
	colm	20
	synt	any
	numeq
	unmark
	unmark
	unmark
	unmark
	unmark
	pnull
	goto	L18
	goto	L21
	line	125
	colm	7
	synt	endif
	unmark
lab L28
	mark	L29
	var	19
	var	20
	str	9
	pnull
	var	19
	str	10
	pnull
	var	2
	var	11
	line	129
	colm	40
	synt	any
	cat
	line	129
	colm	28
	synt	any
	invoke	2
	line	129
	colm	22
	synt	any
	size
	line	129
	colm	17
	synt	any
	invoke	2
	line	129
	colm	12
	synt	any
	invoke	1
	unmark
lab L29
	mark	L30
	pnull
	var	11
	str	11
	line	130
	colm	12
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	var	17
	pnull
	var	14
	var	21
	str	2
	var	7
	line	131
	colm	31
	synt	any
	invoke	2
	line	131
	colm	24
	synt	any
	asgn
	line	131
	colm	13
	synt	any
	invoke	1
	unmark
lab L31
	mark	L32
	line	132
	colm	7
	synt	every
	mark0
	pnull
	var	12
	var	15
	pnull
	var	10
	line	132
	colm	25
	synt	any
	bang
	var	5
	line	132
	colm	24
	synt	any
	invoke	2
	line	132
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L35
	pnull
	var	13
	line	133
	colm	14
	synt	ifelse
	mark	L36
	pnull
	pnull
	var	12
	line	133
	colm	17
	synt	any
	size
	var	6
	line	133
	colm	20
	synt	any
	numlt
	unmark
	var	22
	goto	L37
lab L36
	var	21
lab L37
	line	133
	colm	14
	synt	endifelse
	line	133
	colm	11
	synt	any
	asgn
	unmark
lab L35
	mark	L38
	var	17
	str	12
	var	13
	var	12
	var	6
	line	134
	colm	21
	synt	any
	invoke	2
	line	134
	colm	15
	synt	any
	invoke	2
	unmark
lab L38
	pnull
	var	14
	dup
	pnull
	str	12
	var	13
	var	20
	str	13
	pnull
	var	12
	line	135
	colm	42
	synt	any
	size
	line	135
	colm	37
	synt	any
	invoke	2
	var	6
	line	135
	colm	32
	synt	any
	invoke	2
	line	135
	colm	28
	synt	any
	cat
	line	135
	colm	19
	synt	any
	cat
	asgn
	unmark
lab L33
	efail
lab L34
	line	132
	colm	7
	synt	endevery
	unmark
lab L32
	mark	L39
	var	19
	str	10
	var	14
	line	137
	colm	12
	synt	any
	invoke	2
	unmark
lab L39
	line	141
	colm	7
	synt	every
	mark0
	pnull
	var	12
	pnull
	var	1
	line	141
	colm	18
	synt	any
	bang
	line	141
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L42
	var	17
	var	23
	var	12
	str	5
	var	5
	line	142
	colm	23
	synt	any
	invoke	2
	var	7
	line	142
	colm	21
	synt	any
	invoke	2
	line	142
	colm	15
	synt	any
	invoke	1
	unmark
lab L42
	mark	L43
	line	143
	colm	9
	synt	every
	mark0
	var	17
	str	12
	var	22
	var	12
	pnull
	var	10
	line	143
	colm	35
	synt	any
	bang
	var	5
	line	143
	colm	34
	synt	any
	invoke	2
	var	6
	line	143
	colm	32
	synt	any
	invoke	2
	line	143
	colm	21
	synt	any
	invoke	2
	pop
lab L44
	efail
lab L45
	line	143
	colm	9
	synt	endevery
	unmark
lab L43
	var	19
	line	144
	colm	14
	synt	any
	invoke	0
	unmark
lab L40
	efail
lab L41
	line	141
	colm	7
	synt	endevery
	unmark
lab L20
	efail
lab L21
	line	118
	colm	5
	synt	endevery
lab L17
	unmark
	goto	L16
lab L18
	line	113
	colm	3
	synt	endrepeat
	unmark
lab L15
	mark	L46
	mark	L47
	pnull
	line	148
	colm	3
	synt	any
	pret
lab L47
	synt	any
	pfail
	unmark
lab L46
	pnull
	line	149
	colm	1
	synt	any
	pfail
	end
