version	U12.1.00
uid	io.u1-1788084924-0
record	_DOS_FileParts_,6
	0,fullname
	1,devpath
	2,device
	3,path
	4,name
	5,extension
record	dirinfo,5
	0,name
	1,ext
	2,size
	3,date
	4,time
impl	error
link	random.u
link	strings.u
link	getpaths.u
global	36
	0,000001,buffer_in,0
	1,000001,buffer_out,0
	2,000001,Eof,0
	3,000011,_DOS_FileParts_,6
	4,000011,dirinfo,5
	5,000005,ClearOut,0
	6,000005,DOS_FileParts,1
	7,000005,Flush,1
	8,000005,GetBack,0
	9,000005,LookAhead,0
	10,000005,PutBack,1
	11,000005,Read,1
	12,000005,ReadAhead,2
	13,000005,Write,1
	14,000005,components,2
	15,000005,dopen,1
	16,000005,dosdir,1
	17,000005,dosdir_62,0
	18,000005,dosdir_xx,0
	19,000005,dosdirlist,3
	20,000005,dosname,1
	21,000005,dpath,1
	22,000005,exists,1
	23,000005,directory,1
	24,000005,fcopy,2
	25,000005,filelist,2
	26,000005,filetext,1
	27,000005,isabspath,1
	28,000005,pathfind,3
	29,000005,pathload,2
	30,000005,readline,1
	31,000005,splitline,3
	32,000005,suffix,2
	33,000005,tail,2
	34,000005,tempfile,4
	35,000005,tempname,4

proc ClearOut
	local	0,000000,buffer_out
	declend
	filen	io.icn
	line	276
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	pnull
	line	278
	colm	18
	synt	any
	llist	0
	line	278
	colm	15
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	280
	colm	1
	synt	any
	pfail
	end
proc DOS_FileParts
	local	0,001000,filename
	local	1,000020,dev
	local	2,000020,path
	local	3,000020,name
	local	4,000020,ext
	local	5,000020,p
	local	6,000020,d
	local	7,000000,tab
	local	8,000000,upto
	local	9,000000,move
	local	10,000000,_DOS_FileParts_
	con	0,002000,1,1
	con	1,020000,1,072
	con	2,010000,0
	con	3,002000,1,0
	con	4,020000,1,134
	con	5,020000,1,056
	declend
	line	282
	colm	11
	synt	any
	mark	L1
	var	0
	line	286
	colm	12
	synt	any
	bscan
	mark	L2
	pnull
	var	1
	mark	L3
	int	0
	var	7
	var	8
	cset	1
	line	287
	colm	35
	synt	any
	invoke	1
	line	287
	colm	29
	synt	any
	invoke	1
	var	9
	int	0
	line	287
	colm	48
	synt	any
	invoke	1
	line	287
	colm	24
	synt	any
	invoke	2
	line	287
	colm	54
	synt	any
	esusp
	goto	L4
lab L3
	str	2
lab L4
	line	287
	colm	20
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	var	6
	pnull
	line	288
	colm	21
	synt	any
	keywd	pos
	int	0
	line	288
	colm	26
	synt	any
	minus
	line	288
	colm	18
	synt	any
	asgn
	unmark
lab L5
	var	7
	int	3
	line	289
	colm	19
	synt	any
	invoke	1
	line	286
	colm	12
	synt	any
	escan
	line	290
	colm	12
	synt	any
	bscan
	mark	L6
	pnull
	var	5
	int	0
	line	291
	colm	18
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	2
	var	7
	mark	L8
	line	292
	colm	31
	synt	every
	mark0
	pnull
	var	5
	pnull
	var	8
	cset	4
	line	292
	colm	46
	synt	any
	invoke	1
	int	0
	line	292
	colm	53
	synt	any
	plus
	line	292
	colm	39
	synt	any
	asgn
	pop
lab L10
	efail
lab L11
	line	292
	colm	31
	synt	endevery
	line	292
	colm	59
	synt	any
	esusp
	goto	L9
lab L8
	var	5
lab L9
	line	292
	colm	27
	synt	any
	invoke	1
	line	292
	colm	21
	synt	any
	asgn
	unmark
lab L7
	var	7
	int	3
	line	293
	colm	19
	synt	any
	invoke	1
	line	290
	colm	12
	synt	any
	escan
	line	294
	colm	12
	synt	any
	bscan
	mark	L12
	pnull
	var	3
	mark	L13
	int	0
	var	7
	var	8
	cset	5
	line	295
	colm	36
	synt	any
	invoke	1
	line	295
	colm	30
	synt	any
	invoke	1
	var	9
	int	0
	line	295
	colm	49
	synt	any
	invoke	1
	line	295
	colm	25
	synt	any
	invoke	2
	line	295
	colm	55
	synt	any
	esusp
	goto	L14
lab L13
	var	7
	int	3
	line	295
	colm	60
	synt	any
	invoke	1
lab L14
	line	295
	colm	21
	synt	any
	asgn
	unmark
lab L12
	pnull
	var	4
	var	7
	int	3
	line	296
	colm	26
	synt	any
	invoke	1
	line	296
	colm	20
	synt	any
	asgn
	line	294
	colm	12
	synt	any
	escan
	unmark
lab L1
	mark	L15
	mark	L16
	var	10
	var	0
	pnull
	var	0
	int	0
	pnull
	var	6
	var	5
	line	300
	colm	46
	synt	any
	plus
	line	300
	colm	43
	synt	any
	synt	any
	sect
	var	1
	var	2
	var	3
	var	4
	line	300
	colm	23
	synt	any
	invoke	6
	line	300
	colm	1
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	301
	colm	1
	synt	any
	pfail
	end
proc Flush
	local	0,001000,f
	local	1,000000,write
	local	2,000000,pull
	local	3,000000,buffer_out
	declend
	line	303
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	304
	colm	4
	synt	any
	null
	line	304
	colm	10
	synt	any
	keywd	output
	line	304
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	305
	colm	4
	synt	while
	mark0
	var	1
	var	0
	var	2
	var	3
	line	305
	colm	22
	synt	any
	invoke	1
	line	305
	colm	15
	synt	any
	invoke	2
lab L4
	unmark
	goto	L3
lab L5
	line	305
	colm	4
	synt	endwhile
	unmark
lab L2
	mark	L6
	mark	L7
	pnull
	line	307
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	309
	colm	1
	synt	any
	pfail
	end
proc GetBack
	local	0,000000,get
	local	1,000000,buffer_out
	declend
	line	311
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	0
	var	1
	line	313
	colm	14
	synt	any
	invoke	1
	line	313
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	315
	colm	1
	synt	any
	pfail
	end
proc LookAhead
	local	0,000000,buffer_in
	con	0,002000,1,1
	declend
	line	317
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	int	0
	line	319
	colm	20
	synt	any
	subsc
	line	319
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	321
	colm	1
	synt	any
	pfail
	end
proc PutBack
	local	0,001000,s
	local	1,000000,push
	local	2,000000,buffer_in
	declend
	line	323
	colm	11
	synt	any
	mark	L1
	var	1
	var	2
	var	0
	line	325
	colm	8
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	327
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	329
	colm	1
	synt	any
	pfail
	end
proc Read
	local	0,001000,f
	local	1,000000,buffer_in
	local	2,000000,put
	local	3,000000,read
	local	4,000000,Eof
	local	5,000000,get
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	331
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	pnull
	line	334
	colm	20
	synt	any
	llist	0
	line	334
	colm	17
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	336
	colm	4
	synt	any
	null
	line	336
	colm	10
	synt	any
	keywd	input
	line	336
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	338
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	338
	colm	7
	synt	any
	size
	int	0
	line	338
	colm	18
	synt	any
	numeq
	unmark
	mark	L6
	var	2
	var	1
	var	3
	var	0
	line	339
	colm	25
	synt	any
	invoke	1
	line	339
	colm	10
	synt	any
	invoke	2
	line	339
	colm	30
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	4
	int	1
	line	339
	colm	37
	synt	any
	asgn
lab L7
	line	338
	colm	4
	synt	endif
	unmark
lab L5
	mark	L8
	mark	L9
	var	5
	var	1
	line	340
	colm	14
	synt	any
	invoke	1
	line	340
	colm	4
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	342
	colm	1
	synt	any
	pfail
	end
proc ReadAhead
	local	0,001000,f
	local	1,001000,n
	local	2,000000,integer
	local	3,000000,buffer_in
	local	4,000000,put
	local	5,000000,read
	local	6,000000,Eof
	con	0,002000,1,1
	declend
	line	344
	colm	11
	synt	any
	mark	L1
	line	345
	colm	4
	synt	if
	mark0
	var	2
	var	0
	line	345
	colm	14
	synt	any
	invoke	1
	pop
	pnull
	var	1
	line	345
	colm	20
	synt	any
	null
	unmark
	pnull
	var	0
	var	1
	line	345
	colm	30
	synt	any
	swap
	line	345
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	346
	colm	4
	synt	any
	null
	line	346
	colm	10
	synt	any
	keywd	input
	line	346
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
lab L4
	line	347
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	3
	line	347
	colm	10
	synt	any
	size
	var	1
	line	347
	colm	21
	synt	any
	numlt
	unmark
	mark	L4
	mark	L7
	var	4
	var	3
	var	5
	line	348
	colm	25
	synt	any
	invoke	0
	line	348
	colm	10
	synt	any
	invoke	2
	line	348
	colm	29
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	pnull
	var	6
	int	0
	line	349
	colm	14
	synt	any
	asgn
	unmark
lab L9
	line	350
	colm	10
	synt	any
	pfail
lab L8
lab L5
	unmark
	goto	L4
lab L6
	line	347
	colm	4
	synt	endwhile
	unmark
lab L3
	mark	L10
	mark	L11
	pnull
	line	353
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	355
	colm	1
	synt	any
	pfail
	end
proc Write
	local	0,001000,s
	local	1,000000,buffer_out
	local	2,000000,push
	declend
	line	357
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	1
	pnull
	line	359
	colm	26
	synt	any
	llist	0
	line	359
	colm	23
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	var	2
	var	1
	var	0
	line	361
	colm	8
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	mark	L6
	var	0
	line	363
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	365
	colm	1
	synt	any
	pfail
	end
proc components
	local	0,001000,s
	local	1,001000,separator
	local	2,000020,x
	local	3,000020,head
	local	4,000000,tail
	local	5,000000,components
	con	0,010000,1,057
	con	1,002000,1,1
	con	2,010000,0
	con	3,002000,1,2
	declend
	line	367
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	369
	colm	4
	synt	any
	null
	str	0
	line	369
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	var	4
	var	0
	var	1
	line	370
	colm	13
	synt	any
	invoke	2
	line	370
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	line	371
	colm	11
	synt	case
	mark0
	pnull
	var	3
	pnull
	var	2
	int	1
	line	371
	colm	25
	synt	any
	subsc
	line	371
	colm	21
	synt	any
	asgn
	eret
	mark	L6
	ccase
	var	1
	line	372
	colm	16
	synt	any
	eqv
	unmark
	pop
	pnull
	var	1
	line	372
	colm	18
	synt	any
	llist	1
	goto	L5
lab L6
	mark	L7
	ccase
	str	2
	line	373
	colm	9
	synt	any
	eqv
	unmark
	pop
	pnull
	line	373
	colm	11
	synt	any
	llist	0
	goto	L5
lab L7
	pop
	var	5
	var	3
	var	1
	line	376
	colm	26
	synt	any
	invoke	2
lab L5
	line	371
	colm	11
	synt	endcase
	mark	L8
	pnull
	pnull
	line	377
	colm	15
	synt	any
	keywd	null
	pnull
	var	2
	int	3
	line	377
	colm	27
	synt	any
	subsc
	line	377
	colm	21
	synt	any
	neqv
	line	377
	colm	14
	synt	any
	llist	1
	line	377
	colm	32
	synt	any
	esusp
	goto	L9
lab L8
	pnull
	line	377
	colm	34
	synt	any
	llist	0
lab L9
	line	377
	colm	9
	synt	any
	lconcat
	line	371
	colm	4
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	378
	colm	1
	synt	any
	pfail
	end
proc dopen
	local	0,001000,s
	local	1,000020,file
	local	2,000020,paths
	local	3,000020,path
	local	4,000020,binpath
	local	5,000020,f
	local	6,000000,open
	local	7,000000,getenv
	local	8,000000,tab
	local	9,000000,getpaths
	local	10,000000,close
	local	11,000000,upto
	local	12,000000,many
	con	0,010000,5,104,120,101,124,110
	con	1,010000,1,056
	con	2,010000,12,102,151,156,141,162,151,145,163,040,141,164,040
	con	3,002000,1,0
	con	4,010000,5,151,143,157,156,170
	con	5,010000,9,151,143,157,156,170,056,145,170,145
	con	6,010000,10,167,151,143,157,156,170,056,145,170,145
	con	7,010000,1,040
	con	8,010000,13,056,056,057,151,160,154,057,147,144,141,164,141,040
	con	9,010000,13,056,056,057,151,160,154,057,155,144,141,164,141,040
	con	10,010000,11,056,056,057,151,160,154,057,144,141,164,141
	con	11,010000,1,057
	con	12,020000,1,040
	declend
	line	380
	colm	11
	synt	any
	mark	L1
	line	383
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	6
	var	0
	line	383
	colm	19
	synt	any
	invoke	1
	line	383
	colm	12
	synt	any
	asgn
	unmark
	mark	L2
	var	1
	line	383
	colm	28
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	383
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	var	2
	mark	L4
	var	7
	str	0
	line	385
	colm	19
	synt	any
	invoke	1
	line	385
	colm	29
	synt	any
	esusp
	goto	L5
lab L4
	str	1
lab L5
	line	385
	colm	10
	synt	any
	asgn
	unmark
lab L3
	mark	L6
	line	387
	colm	4
	synt	if
	mark0
	mark	L7
	pnull
	var	4
	line	387
	colm	20
	synt	any
	keywd	features
	line	387
	colm	30
	synt	any
	bscan
	pnull
	str	2
	line	387
	colm	33
	synt	any
	tabmat
	pop
	var	8
	int	3
	line	387
	colm	54
	synt	any
	invoke	1
	line	387
	colm	30
	synt	any
	escan
	line	387
	colm	16
	synt	any
	asgn
	line	387
	colm	61
	synt	any
	esusp
	goto	L8
lab L7
	pnull
	var	5
	var	6
	pnull
	pnull
	var	4
	var	9
	line	388
	colm	37
	synt	any
	invoke	0
	line	388
	colm	27
	synt	any
	asgn
	mark	L9
	str	4
	line	389
	colm	27
	synt	any
	esusp
	goto	L10
lab L9
	mark	L11
	str	5
	line	389
	colm	39
	synt	any
	esusp
	goto	L12
lab L11
	str	6
lab L12
lab L10
	line	388
	colm	41
	synt	any
	cat
	line	388
	colm	18
	synt	any
	invoke	1
	line	388
	colm	11
	synt	any
	asgn
lab L8
	unmark
	mark	L13
	var	10
	pnull
	var	5
	line	390
	colm	13
	synt	any
	nonnull
	line	390
	colm	12
	synt	any
	invoke	1
	unmark
lab L13
	pnull
	var	2
	dup
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	str	7
	var	4
	line	391
	colm	22
	synt	any
	cat
	str	8
	line	391
	colm	33
	synt	any
	cat
	var	4
	line	391
	colm	52
	synt	any
	cat
	str	9
	line	392
	colm	21
	synt	any
	cat
	var	4
	line	392
	colm	40
	synt	any
	cat
	str	10
	line	392
	colm	51
	synt	any
	cat
	line	391
	colm	13
	synt	any
	cat
	asgn
	line	387
	colm	4
	synt	endif
	unmark
lab L6
	mark	L14
	pnull
	var	0
	pnull
	str	11
	var	0
	line	396
	colm	13
	synt	any
	cat
	line	396
	colm	6
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	var	2
	line	398
	colm	10
	synt	any
	bscan
lab L16
	line	399
	colm	7
	synt	while
	mark0
	pnull
	var	3
	var	8
	mark	L19
	var	11
	cset	12
	line	399
	colm	29
	synt	any
	invoke	1
	line	399
	colm	35
	synt	any
	esusp
	goto	L20
lab L19
	int	3
lab L20
	line	399
	colm	24
	synt	any
	invoke	1
	line	399
	colm	18
	synt	any
	asgn
	unmark
	mark	L16
	mark	L21
	line	400
	colm	10
	synt	if
	mark0
	pnull
	var	1
	var	6
	pnull
	var	3
	var	0
	line	400
	colm	31
	synt	any
	cat
	line	400
	colm	25
	synt	any
	invoke	1
	line	400
	colm	18
	synt	any
	asgn
	unmark
	mark	L22
	var	1
	line	400
	colm	42
	synt	any
	pret
lab L22
	synt	any
	pfail
	line	400
	colm	10
	synt	endif
	unmark
lab L21
	mark	L23
	var	8
	var	12
	cset	12
	line	401
	colm	18
	synt	any
	invoke	1
	line	401
	colm	13
	synt	any
	invoke	1
	line	401
	colm	25
	synt	any
	esusp
	goto	L24
lab L23
	unmark
	pnull
	goto	L18
lab L24
lab L17
	unmark
	goto	L16
lab L18
	line	399
	colm	7
	synt	endwhile
	line	398
	colm	10
	synt	any
	escan
	unmark
lab L15
	mark	L25
	line	405
	colm	4
	synt	any
	pfail
	unmark
lab L25
	pnull
	line	407
	colm	1
	synt	any
	pfail
	end
proc dosdir
	local	0,001000,diropts
	local	1,000020,de
	local	2,000020,line
	local	3,000040,tempfn
	local	4,000040,tempf
	local	5,000040,dosdir_ver
	local	6,000000,close
	local	7,000000,open
	local	8,000000,tempname
	local	9,000000,system
	local	10,000000,stop
	local	11,000000,read
	local	12,000000,find
	local	13,000000,dosdir_62
	local	14,000000,dosdir_xx
	local	15,000000,map
	con	0,010000,1,167
	con	1,010000,6,166,145,162,040,076,040
	con	2,010000,1,162
	con	3,010000,15,125,156,141,142,154,145,040,164,157,040,157,160,145,156,040
	con	4,010000,13,040,146,162,157,155,040,144,157,163,144,151,162,056
	con	5,010000,6,115,123,055,104,117,123
	con	6,010000,4,066,056,062,060
	con	7,010000,6,145,162,141,163,145,040
	con	8,010000,4,144,151,162,040
	con	9,010000,3,040,076,040
	declend
	line	409
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	var	6
	var	7
	pnull
	var	3
	var	8
	line	416
	colm	33
	synt	any
	invoke	0
	line	416
	colm	22
	synt	any
	asgn
	str	0
	line	416
	colm	14
	synt	any
	invoke	2
	line	416
	colm	9
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	var	9
	pnull
	str	1
	var	3
	line	418
	colm	20
	synt	any
	cat
	line	418
	colm	10
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	var	4
	var	7
	var	3
	str	2
	line	420
	colm	18
	synt	any
	invoke	2
	line	420
	colm	11
	synt	any
	asgn
	line	420
	colm	32
	synt	any
	esusp
	goto	L8
lab L7
	var	10
	str	3
	var	3
	str	4
	line	421
	colm	12
	synt	any
	invoke	3
lab L8
	unmark
lab L6
	mark	L9
lab L10
	line	423
	colm	4
	synt	while
	mark0
	pnull
	var	2
	var	11
	var	4
	line	423
	colm	22
	synt	any
	invoke	1
	line	423
	colm	15
	synt	any
	asgn
	unmark
	mark	L10
	line	425
	colm	7
	synt	if
	mark0
	var	12
	str	5
	var	2
	line	425
	colm	14
	synt	any
	invoke	2
	unmark
	line	426
	colm	10
	synt	ifelse
	mark	L13
	var	12
	str	6
	var	2
	line	426
	colm	17
	synt	any
	invoke	2
	unmark
	pnull
	var	5
	var	13
	line	427
	colm	24
	synt	any
	asgn
	goto	L14
lab L13
	pnull
	var	5
	var	14
	line	429
	colm	24
	synt	any
	asgn
lab L14
	line	426
	colm	10
	synt	endifelse
	line	425
	colm	7
	synt	endif
lab L11
	unmark
	goto	L10
lab L12
	line	423
	colm	4
	synt	endwhile
	unmark
lab L9
	mark	L15
	var	6
	var	4
	line	431
	colm	9
	synt	any
	invoke	1
	unmark
lab L15
	var	9
	pnull
	str	7
	var	3
	line	432
	colm	20
	synt	any
	cat
	line	432
	colm	10
	synt	any
	invoke	1
	unmark
lab L2
	einit	L1
lab L3
	mark	L16
	var	6
	var	7
	pnull
	var	3
	var	8
	line	435
	colm	30
	synt	any
	invoke	0
	line	435
	colm	19
	synt	any
	asgn
	str	0
	line	435
	colm	11
	synt	any
	invoke	2
	line	435
	colm	6
	synt	any
	invoke	1
	unmark
lab L16
	mark	L17
	var	9
	pnull
	pnull
	pnull
	str	8
	var	0
	line	437
	colm	15
	synt	any
	cat
	str	9
	line	437
	colm	26
	synt	any
	cat
	var	3
	line	437
	colm	35
	synt	any
	cat
	line	437
	colm	7
	synt	any
	invoke	1
	unmark
lab L17
	mark	L18
	pnull
	var	4
	var	7
	var	3
	str	2
	line	439
	colm	14
	synt	any
	invoke	2
	line	439
	colm	7
	synt	any
	asgn
	unmark
lab L18
	mark	L19
lab L20
	line	441
	colm	1
	synt	while
	mark0
	pnull
	var	2
	var	15
	var	11
	var	4
	line	441
	colm	23
	synt	any
	invoke	1
	line	441
	colm	18
	synt	any
	invoke	1
	line	441
	colm	12
	synt	any
	asgn
	unmark
	mark	L20
	var	2
	line	442
	colm	9
	synt	any
	bscan
	line	443
	colm	7
	synt	ifelse
	mark	L23
	pnull
	var	1
	var	5
	line	443
	colm	26
	synt	any
	invoke	0
	line	443
	colm	13
	synt	any
	asgn
	unmark
	line	444
	colm	10
	synt	suspend
	mark0
	var	1
	line	444
	colm	10
	synt	any
	psusp
	pop
lab L25
	efail
lab L26
	line	444
	colm	10
	synt	endsuspend
	goto	L24
lab L23
	goto	L21
lab L24
	line	443
	colm	7
	synt	endifelse
	line	442
	colm	9
	synt	any
	escan
lab L21
	unmark
	goto	L20
lab L22
	line	441
	colm	1
	synt	endwhile
	unmark
lab L19
	mark	L27
	var	6
	var	4
	line	449
	colm	6
	synt	any
	invoke	1
	unmark
lab L27
	mark	L28
	var	9
	pnull
	str	7
	var	3
	line	450
	colm	17
	synt	any
	cat
	line	450
	colm	7
	synt	any
	invoke	1
	unmark
lab L28
	pnull
	line	451
	colm	1
	synt	any
	pfail
	end
proc dosdir_62
	local	0,000040,nb
	local	1,000020,de
	local	2,000000,tab
	local	3,000000,any
	local	4,000000,move
	local	5,000000,dirinfo
	local	6,000000,trim
	local	7,000000,upto
	con	0,020000,1,040
	con	1,002000,2,43
	con	2,002000,1,1
	con	3,002000,1,8
	con	4,002000,1,3
	con	5,002000,2,13
	con	6,002000,1,2
	con	7,002000,1,0
	con	8,020000,1,054
	declend
	line	453
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	pnull
	cset	0
	line	458
	colm	15
	synt	any
	compl
	line	458
	colm	12
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	460
	colm	1
	synt	if
	mark0
	pnull
	pnull
	line	460
	colm	5
	synt	any
	keywd	subject
	line	460
	colm	4
	synt	any
	size
	int	1
	line	460
	colm	14
	synt	any
	numeq
	pop
	pushn1
	var	2
	var	3
	var	0
	line	460
	colm	30
	synt	any
	invoke	1
	line	460
	colm	26
	synt	any
	invoke	1
	var	4
	pnull
	int	2
	line	460
	colm	42
	synt	any
	neg
	line	460
	colm	41
	synt	any
	invoke	1
	line	460
	colm	22
	synt	any
	invoke	2
	unmark
	mark	L5
	pnull
	var	1
	var	5
	line	461
	colm	17
	synt	any
	invoke	0
	line	461
	colm	7
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pushn1
	pnull
	pnull
	var	1
	line	462
	colm	7
	synt	any
	field	name
	var	6
	var	4
	int	3
	line	462
	colm	25
	synt	any
	invoke	1
	line	462
	colm	20
	synt	any
	invoke	1
	line	462
	colm	13
	synt	any
	asgn
	var	4
	int	2
	line	462
	colm	35
	synt	any
	invoke	1
	pnull
	pnull
	var	1
	line	463
	colm	6
	synt	any
	field	ext
	var	6
	var	4
	int	4
	line	463
	colm	24
	synt	any
	invoke	1
	line	463
	colm	19
	synt	any
	invoke	1
	line	463
	colm	12
	synt	any
	asgn
	var	4
	int	2
	line	463
	colm	34
	synt	any
	invoke	1
	pnull
	pnull
	var	1
	line	464
	colm	6
	synt	any
	field	size
	var	4
	int	5
	line	464
	colm	19
	synt	any
	invoke	1
	line	464
	colm	12
	synt	any
	asgn
	var	4
	int	2
	line	464
	colm	29
	synt	any
	invoke	1
	pnull
	pnull
	var	1
	line	465
	colm	6
	synt	any
	field	date
	var	4
	int	3
	line	465
	colm	19
	synt	any
	invoke	1
	line	465
	colm	12
	synt	any
	asgn
	var	4
	int	6
	line	465
	colm	28
	synt	any
	invoke	1
	pnull
	pnull
	var	1
	line	466
	colm	6
	synt	any
	field	time
	var	2
	int	7
	line	466
	colm	18
	synt	any
	invoke	1
	line	466
	colm	12
	synt	any
	asgn
	line	462
	colm	4
	synt	any
	invoke	9
	unmark
lab L6
	mark	L7
	line	467
	colm	4
	synt	every
	mark0
	pnull
	pnull
	var	1
	line	467
	colm	12
	synt	any
	field	size
	sdup
	line	467
	colm	18
	synt	any
	bscan
	pnull
	int	2
	var	2
	var	7
	cset	8
	line	467
	colm	32
	synt	any
	invoke	1
	line	467
	colm	27
	synt	any
	invoke	1
	var	4
	int	2
	line	467
	colm	43
	synt	any
	invoke	1
	line	467
	colm	23
	synt	any
	invoke	2
	var	2
	int	7
	line	467
	colm	54
	synt	any
	invoke	1
	line	467
	colm	48
	synt	any
	cat
	line	467
	colm	18
	synt	any
	escan
	asgn
	pop
lab L8
	efail
lab L9
	line	467
	colm	4
	synt	endevery
	unmark
lab L7
	mark	L10
	var	1
	line	468
	colm	4
	synt	any
	pret
lab L10
	synt	any
	pfail
	line	460
	colm	1
	synt	endif
	unmark
lab L4
	pnull
	line	470
	colm	1
	synt	any
	pfail
	end
proc dosdir_xx
	local	0,000040,nb
	local	1,000020,de
	local	2,000000,tab
	local	3,000000,any
	local	4,000000,move
	local	5,000000,dirinfo
	local	6,000000,trim
	local	7,000000,integer
	con	0,020000,1,040
	con	1,002000,2,39
	con	2,002000,1,1
	con	3,002000,1,8
	con	4,002000,1,3
	con	5,002000,1,9
	con	6,002000,1,2
	con	7,002000,1,0
	declend
	line	472
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	pnull
	cset	0
	line	477
	colm	15
	synt	any
	compl
	line	477
	colm	12
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	479
	colm	1
	synt	if
	mark0
	pnull
	pnull
	line	479
	colm	5
	synt	any
	keywd	subject
	line	479
	colm	4
	synt	any
	size
	int	1
	line	479
	colm	14
	synt	any
	numeq
	pop
	pushn1
	var	2
	var	3
	var	0
	line	479
	colm	30
	synt	any
	invoke	1
	line	479
	colm	26
	synt	any
	invoke	1
	var	4
	pnull
	int	2
	line	479
	colm	42
	synt	any
	neg
	line	479
	colm	41
	synt	any
	invoke	1
	line	479
	colm	22
	synt	any
	invoke	2
	unmark
	mark	L5
	pnull
	var	1
	var	5
	line	480
	colm	17
	synt	any
	invoke	0
	line	480
	colm	7
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pushn1
	pnull
	pnull
	var	1
	line	481
	colm	7
	synt	any
	field	name
	var	6
	var	4
	int	3
	line	481
	colm	25
	synt	any
	invoke	1
	line	481
	colm	20
	synt	any
	invoke	1
	line	481
	colm	13
	synt	any
	asgn
	var	4
	int	2
	line	481
	colm	35
	synt	any
	invoke	1
	pnull
	pnull
	var	1
	line	482
	colm	6
	synt	any
	field	ext
	var	6
	var	4
	int	4
	line	482
	colm	24
	synt	any
	invoke	1
	line	482
	colm	19
	synt	any
	invoke	1
	line	482
	colm	12
	synt	any
	asgn
	var	4
	int	2
	line	482
	colm	34
	synt	any
	invoke	1
	pnull
	pnull
	var	1
	line	483
	colm	6
	synt	any
	field	size
	var	7
	var	4
	int	5
	line	483
	colm	27
	synt	any
	invoke	1
	line	483
	colm	22
	synt	any
	invoke	1
	line	483
	colm	12
	synt	any
	asgn
	var	4
	int	2
	line	483
	colm	37
	synt	any
	invoke	1
	pnull
	pnull
	var	1
	line	484
	colm	6
	synt	any
	field	date
	var	4
	int	3
	line	484
	colm	19
	synt	any
	invoke	1
	line	484
	colm	12
	synt	any
	asgn
	var	4
	int	6
	line	484
	colm	28
	synt	any
	invoke	1
	pnull
	pnull
	var	1
	line	485
	colm	6
	synt	any
	field	time
	var	2
	int	7
	line	485
	colm	18
	synt	any
	invoke	1
	line	485
	colm	12
	synt	any
	asgn
	line	481
	colm	4
	synt	any
	invoke	9
	unmark
lab L6
	mark	L7
	var	1
	line	486
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	479
	colm	1
	synt	endif
	unmark
lab L4
	pnull
	line	488
	colm	1
	synt	any
	pfail
	end
proc dosdirlist
	local	0,001000,dpath
	local	1,001000,dpart2
	local	2,001000,infotab
	local	3,000020,dl
	local	4,000020,di
	local	5,000020,fn
	local	6,000000,type
	local	7,000000,runerr
	local	8,000000,dosdir
	local	9,000000,put
	local	10,000000,trim
	con	0,010000,5,164,141,142,154,145
	con	1,002000,3,124
	con	2,002000,1,1
	con	3,010000,1,134
	con	4,010000,3,052,056,052
	con	5,010000,1,056
	con	6,010000,2,056,056
	declend
	line	490
	colm	11
	synt	any
	mark	L1
	line	495
	colm	1
	synt	if
	mark0
	pnull
	var	6
	pnull
	var	2
	line	495
	colm	9
	synt	any
	nonnull
	line	495
	colm	8
	synt	any
	invoke	1
	str	0
	line	495
	colm	19
	synt	any
	lexne
	unmark
	var	7
	int	1
	var	2
	line	496
	colm	10
	synt	any
	invoke	2
	line	495
	colm	1
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	var	0
	dup
	pnull
	pnull
	var	0
	pnull
	int	2
	line	498
	colm	18
	synt	any
	neg
	line	498
	colm	17
	synt	any
	subsc
	str	3
	line	498
	colm	22
	synt	any
	lexne
	line	498
	colm	7
	synt	any
	cat
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	1
	line	499
	colm	1
	synt	any
	null
	str	4
	line	499
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	line	501
	colm	7
	synt	any
	llist	0
	line	501
	colm	4
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	502
	colm	1
	synt	every
	mark0
	pnull
	var	4
	var	8
	pnull
	var	0
	var	1
	line	502
	colm	27
	synt	any
	cat
	line	502
	colm	19
	synt	any
	invoke	1
	line	502
	colm	10
	synt	any
	asgn
	pop
	mark0
	line	503
	colm	4
	synt	if
	mark0
	mark	L8
	pnull
	pnull
	var	4
	line	503
	colm	15
	synt	any
	field	name
	mark	L9
	str	5
	line	503
	colm	29
	synt	any
	esusp
	goto	L10
lab L9
	str	6
lab L10
	line	503
	colm	21
	synt	any
	lexeq
	unmark
	efail
lab L8
	pnull
	unmark
	mark	L11
	var	9
	var	3
	pnull
	var	5
	pnull
	pnull
	pnull
	var	0
	pnull
	var	4
	line	504
	colm	35
	synt	any
	field	name
	line	504
	colm	30
	synt	any
	cat
	str	5
	line	504
	colm	41
	synt	any
	cat
	var	10
	pnull
	var	4
	line	504
	colm	58
	synt	any
	field	ext
	line	504
	colm	55
	synt	any
	invoke	1
	line	504
	colm	48
	synt	any
	cat
	line	504
	colm	19
	synt	any
	asgn
	line	504
	colm	10
	synt	any
	invoke	2
	unmark
lab L11
	pnull
	pnull
	pnull
	var	2
	line	505
	colm	8
	synt	any
	nonnull
	var	5
	line	505
	colm	17
	synt	any
	subsc
	var	4
	line	505
	colm	22
	synt	any
	asgn
	line	503
	colm	4
	synt	endif
	unmark
lab L6
	efail
lab L7
	line	502
	colm	1
	synt	endevery
	unmark
lab L5
	mark	L12
	mark	L13
	var	3
	line	508
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	510
	colm	1
	synt	any
	pfail
	end
proc dosname
	local	0,001000,namein
	local	1,000020,prefix
	local	2,000020,base
	local	3,000020,extension
	local	4,000020,pair
	local	5,000020,extended_name
	local	6,000000,replace
	local	7,000000,tail
	local	8,000000,suffix
	local	9,000000,map
	con	0,010000,1,057
	con	1,010000,1,134
	con	2,002000,1,1
	con	3,002000,1,2
	con	4,002000,1,9
	con	5,002000,1,4
	con	6,010000,1,056
	declend
	line	557
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	6
	var	0
	str	0
	str	1
	line	561
	colm	22
	synt	any
	invoke	3
	line	561
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	var	7
	var	0
	str	1
	line	562
	colm	17
	synt	any
	invoke	2
	line	562
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	pnull
	var	4
	int	2
	line	563
	colm	19
	synt	any
	subsc
	line	563
	colm	12
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	5
	pnull
	var	4
	int	3
	line	564
	colm	26
	synt	any
	subsc
	line	564
	colm	19
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	4
	var	8
	var	5
	line	565
	colm	19
	synt	any
	invoke	1
	line	565
	colm	10
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	pnull
	var	4
	int	2
	line	566
	colm	17
	synt	any
	subsc
	line	566
	colm	10
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	3
	pnull
	var	4
	int	3
	line	567
	colm	22
	synt	any
	subsc
	line	567
	colm	15
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	2
	pnull
	var	2
	int	2
	int	4
	line	569
	colm	19
	synt	any
	synt	any
	sect
	line	569
	colm	10
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	3
	pnull
	var	3
	int	2
	int	5
	line	570
	colm	29
	synt	any
	synt	any
	sect
	line	570
	colm	15
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	var	9
	pnull
	pnull
	pnull
	pnull
	var	1
	str	1
	line	572
	colm	23
	synt	any
	cat
	var	2
	line	572
	colm	31
	synt	any
	cat
	str	6
	line	572
	colm	39
	synt	any
	cat
	var	3
	line	572
	colm	46
	synt	any
	cat
	line	572
	colm	15
	synt	any
	invoke	1
	line	572
	colm	5
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	574
	colm	1
	synt	any
	pfail
	end
proc dpath
	local	0,001000,s
	local	1,000020,file
	local	2,000020,paths
	local	3,000020,path
	local	4,000020,result
	local	5,000000,exists
	local	6,000000,getenv
	local	7,000000,tab
	local	8,000000,upto
	local	9,000000,many
	con	0,010000,5,104,120,101,124,110
	con	1,010000,1,057
	con	2,020000,1,040
	con	3,002000,1,0
	declend
	line	576
	colm	11
	synt	any
	mark	L1
	line	579
	colm	4
	synt	if
	mark0
	var	5
	var	0
	line	579
	colm	13
	synt	any
	invoke	1
	unmark
	mark	L2
	var	0
	line	579
	colm	22
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	579
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	pnull
	var	2
	mark	L4
	var	6
	str	0
	line	581
	colm	19
	synt	any
	invoke	1
	line	581
	colm	29
	synt	any
	esusp
	goto	L5
lab L4
	line	581
	colm	31
	synt	any
	pfail
lab L5
	line	581
	colm	10
	synt	any
	asgn
	unmark
lab L3
	mark	L6
	pnull
	var	0
	pnull
	str	1
	var	0
	line	583
	colm	13
	synt	any
	cat
	line	583
	colm	6
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	var	2
	line	585
	colm	10
	synt	any
	bscan
lab L8
	line	586
	colm	7
	synt	while
	mark0
	pnull
	var	3
	var	7
	mark	L11
	var	8
	cset	2
	line	586
	colm	29
	synt	any
	invoke	1
	line	586
	colm	35
	synt	any
	esusp
	goto	L12
lab L11
	int	3
lab L12
	line	586
	colm	24
	synt	any
	invoke	1
	line	586
	colm	18
	synt	any
	asgn
	unmark
	mark	L8
	mark	L13
	line	587
	colm	10
	synt	if
	mark0
	var	5
	pnull
	var	4
	pnull
	var	3
	var	0
	line	587
	colm	35
	synt	any
	cat
	line	587
	colm	27
	synt	any
	asgn
	line	587
	colm	19
	synt	any
	invoke	1
	unmark
	mark	L14
	var	4
	line	587
	colm	46
	synt	any
	pret
lab L14
	synt	any
	pfail
	line	587
	colm	10
	synt	endif
	unmark
lab L13
	mark	L15
	var	7
	var	9
	cset	2
	line	588
	colm	18
	synt	any
	invoke	1
	line	588
	colm	13
	synt	any
	invoke	1
	line	588
	colm	25
	synt	any
	esusp
	goto	L16
lab L15
	unmark
	pnull
	goto	L10
lab L16
lab L9
	unmark
	goto	L8
lab L10
	line	586
	colm	7
	synt	endwhile
	line	585
	colm	10
	synt	any
	escan
	unmark
lab L7
	mark	L17
	line	592
	colm	4
	synt	any
	pfail
	unmark
lab L17
	pnull
	line	594
	colm	1
	synt	any
	pfail
	end
proc exists
	local	0,001000,name
	local	1,000000,stat
	declend
	line	596
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	0
	line	598
	colm	15
	synt	any
	invoke	1
	line	598
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	600
	colm	1
	synt	any
	pfail
	end
proc directory
	local	0,001000,name
	local	1,000000,close
	local	2,000000,open
	con	0,010000,2,057,056
	declend
	line	602
	colm	11
	synt	any
	mark	L1
	line	603
	colm	4
	synt	ifelse
	mark	L2
	var	1
	var	2
	pnull
	var	0
	str	0
	line	603
	colm	23
	synt	any
	cat
	line	603
	colm	17
	synt	any
	invoke	1
	line	603
	colm	12
	synt	any
	invoke	1
	unmark
	mark	L4
	var	0
	line	604
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	goto	L3
lab L2
	line	606
	colm	7
	synt	any
	pfail
lab L3
	line	603
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	607
	colm	1
	synt	any
	pfail
	end
proc fcopy
	local	0,001000,fn1
	local	1,001000,fn2
	local	2,000020,f1
	local	3,000020,f2
	local	4,000020,buf
	local	5,000000,open
	local	6,000000,stop
	local	7,000000,reads
	local	8,000000,writes
	local	9,000000,close
	con	0,010000,2,162,165
	con	1,010000,11,103,141,156,047,164,040,157,160,145,156,040
	con	2,010000,2,167,165
	con	3,010000,12,040,146,157,162,040,167,162,151,164,151,156,147
	con	4,002000,3,512
	declend
	line	619
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	mark	L2
	var	5
	var	0
	str	0
	line	622
	colm	14
	synt	any
	invoke	2
	line	622
	colm	25
	synt	any
	esusp
	goto	L3
lab L2
	var	6
	str	1
	var	0
	line	622
	colm	31
	synt	any
	invoke	2
lab L3
	line	622
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	3
	mark	L5
	var	5
	var	1
	str	2
	line	623
	colm	14
	synt	any
	invoke	2
	line	623
	colm	25
	synt	any
	esusp
	goto	L6
lab L5
	var	6
	str	1
	var	1
	str	3
	line	623
	colm	31
	synt	any
	invoke	3
lab L6
	line	623
	colm	7
	synt	any
	asgn
	unmark
lab L4
	mark	L7
lab L8
	line	624
	colm	4
	synt	while
	mark0
	pnull
	var	4
	var	7
	var	2
	int	4
	line	624
	colm	22
	synt	any
	invoke	2
	line	624
	colm	14
	synt	any
	asgn
	unmark
	mark	L8
	var	8
	var	3
	var	4
	line	624
	colm	40
	synt	any
	invoke	2
lab L9
	unmark
	goto	L8
lab L10
	line	624
	colm	4
	synt	endwhile
	unmark
lab L7
	mark	L11
	line	625
	colm	4
	synt	every
	mark0
	var	9
	mark	L14
	var	3
	line	625
	colm	19
	synt	any
	esusp
	goto	L15
lab L14
	var	2
lab L15
	line	625
	colm	15
	synt	any
	invoke	1
	pop
lab L12
	efail
lab L13
	line	625
	colm	4
	synt	endevery
	unmark
lab L11
	mark	L16
	mark	L17
	var	1
	line	626
	colm	4
	synt	any
	pret
lab L17
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	627
	colm	1
	synt	any
	pfail
	end
proc filelist
	local	0,001000,spec
	local	1,001000,x
	local	2,000020,flist
	local	3,000020,ls
	local	4,000020,f
	local	5,000000,open
	local	6,000000,tab
	local	7,000000,upto
	local	8,000000,put
	local	9,000000,close
	con	0,010000,0
	con	1,010000,4,125,116,111,130
	con	2,010000,3,154,163,040
	con	3,010000,12,040,062,076,057,144,145,166,057,156,165,154,154
	con	4,010000,1,160
	con	5,010000,1,057
	con	6,002000,1,1
	con	7,002000,1,0
	declend
	line	629
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	632
	colm	4
	synt	any
	null
	str	0
	line	632
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	line	634
	colm	13
	synt	any
	llist	0
	line	634
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	636
	colm	4
	synt	ifelse
	mark	L4
	pnull
	line	636
	colm	7
	synt	any
	keywd	features
	str	1
	line	636
	colm	17
	synt	any
	lexeq
	unmark
	mark	L6
	pnull
	var	3
	var	5
	pnull
	pnull
	str	2
	var	0
	line	637
	colm	24
	synt	any
	cat
	str	3
	line	637
	colm	32
	synt	any
	cat
	str	4
	line	637
	colm	17
	synt	any
	invoke	2
	line	637
	colm	10
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	638
	colm	7
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	3
	line	638
	colm	18
	synt	any
	bang
	line	638
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L10
	line	639
	colm	10
	synt	if
	mark0
	pnull
	var	1
	line	639
	colm	13
	synt	any
	nonnull
	unmark
	pnull
	var	4
	sdup
	line	639
	colm	23
	synt	any
	bscan
	mark	L11
lab L12
	line	640
	colm	13
	synt	while
	mark0
	var	6
	pnull
	var	7
	str	5
	line	640
	colm	27
	synt	any
	invoke	1
	int	6
	line	640
	colm	33
	synt	any
	plus
	line	640
	colm	22
	synt	any
	invoke	1
lab L13
	unmark
	goto	L12
lab L14
	line	640
	colm	13
	synt	endwhile
	unmark
lab L11
	var	6
	int	7
	line	641
	colm	16
	synt	any
	invoke	1
	line	639
	colm	23
	synt	any
	escan
	asgn
	line	639
	colm	10
	synt	endif
	unmark
lab L10
	var	8
	var	2
	var	4
	line	643
	colm	14
	synt	any
	invoke	2
	unmark
lab L8
	efail
lab L9
	line	638
	colm	7
	synt	endevery
	unmark
lab L7
	mark	L15
	var	9
	var	3
	line	645
	colm	12
	synt	any
	invoke	1
	unmark
lab L15
	mark	L16
	var	2
	line	646
	colm	7
	synt	any
	pret
lab L16
	synt	any
	pfail
	goto	L5
lab L4
	line	648
	colm	9
	synt	any
	pfail
lab L5
	line	636
	colm	4
	synt	endifelse
	unmark
lab L3
	pnull
	line	650
	colm	1
	synt	any
	pfail
	end
proc filetext
	local	0,001000,f
	local	1,000020,input
	local	2,000020,file
	local	3,000020,text
	local	4,000000,open
	local	5,000000,stop
	local	6,000000,put
	local	7,000000,read
	local	8,000000,close
	con	0,010000,22,143,141,156,156,157,164,040,157,160,145,156,040,151,156,160,165,164,040,146,151,154,145
	declend
	line	652
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	var	4
	var	0
	line	655
	colm	17
	synt	any
	invoke	1
	line	655
	colm	21
	synt	any
	esusp
	goto	L3
lab L2
	var	5
	str	0
	line	655
	colm	27
	synt	any
	invoke	1
lab L3
	line	655
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	pnull
	var	3
	pnull
	line	657
	colm	12
	synt	any
	llist	0
	line	657
	colm	9
	synt	any
	asgn
	unmark
lab L4
	mark	L5
lab L6
	line	659
	colm	4
	synt	while
	mark0
	var	6
	var	3
	var	7
	var	1
	line	659
	colm	23
	synt	any
	invoke	1
	line	659
	colm	13
	synt	any
	invoke	2
lab L7
	unmark
	goto	L6
lab L8
	line	659
	colm	4
	synt	endwhile
	unmark
lab L5
	mark	L9
	var	8
	var	1
	line	661
	colm	9
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	mark	L11
	var	3
	line	663
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	665
	colm	1
	synt	any
	pfail
	end
proc isabspath
	local	0,001000,fname
	local	1,000000,stat
	con	0,010000,1,057
	declend
	line	689
	colm	11
	synt	any
	mark	L1
	var	0
	line	690
	colm	10
	synt	any
	bscan
	line	691
	colm	7
	synt	if
	mark0
	pnull
	str	0
	line	691
	colm	10
	synt	any
	tabmat
	pop
	var	1
	var	0
	line	691
	colm	21
	synt	any
	invoke	1
	unmark
	mark	L2
	var	0
	line	691
	colm	34
	synt	any
	pret
lab L2
	synt	any
	pfail
	line	691
	colm	7
	synt	endif
	line	690
	colm	10
	synt	any
	escan
	unmark
lab L1
	pnull
	line	697
	colm	1
	synt	any
	pfail
	end
proc pathfind
	local	0,001000,fname
	local	1,001000,path
	local	2,001000,psep
	local	3,000020,f
	local	4,000020,dir
	local	5,000020,fullname
	local	6,000000,isabspath
	local	7,000000,tab
	local	8,000000,find
	local	9,000000,getenv
	local	10,000000,pos
	local	11,000000,upto
	local	12,000000,trim
	local	13,000000,stat
	local	14,000000,many
	con	0,020000,1,072
	con	1,010000,1,057
	con	2,002000,1,1
	con	3,002000,1,0
	con	4,010000,5,104,120,101,124,110
	con	5,010000,0
	con	6,010000,4,120,101,124,110
	con	7,010000,1,056
	declend
	line	699
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	703
	colm	7
	synt	any
	null
	cset	0
	line	703
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	712
	colm	4
	synt	if
	mark0
	pnull
	var	0
	var	6
	var	0
	line	712
	colm	25
	synt	any
	invoke	1
	line	712
	colm	13
	synt	any
	asgn
	unmark
	mark	L3
	var	0
	line	713
	colm	10
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	712
	colm	4
	synt	endif
	unmark
lab L2
	mark	L4
	var	0
	line	715
	colm	10
	synt	any
	bscan
	mark	L5
lab L6
	line	716
	colm	7
	synt	while
	mark0
	var	7
	pnull
	var	8
	str	1
	line	716
	colm	21
	synt	any
	invoke	1
	int	2
	line	716
	colm	27
	synt	any
	plus
	line	716
	colm	16
	synt	any
	invoke	1
lab L7
	unmark
	goto	L6
lab L8
	line	716
	colm	7
	synt	endwhile
	unmark
lab L5
	pnull
	var	0
	var	7
	int	3
	line	717
	colm	19
	synt	any
	invoke	1
	line	717
	colm	13
	synt	any
	asgn
	line	715
	colm	10
	synt	any
	escan
	unmark
lab L4
	mark	L9
	pnull
	pnull
	var	1
	line	720
	colm	4
	synt	any
	null
	pnull
	mark	L10
	var	9
	str	4
	line	720
	colm	20
	synt	any
	invoke	1
	line	720
	colm	29
	synt	any
	esusp
	goto	L11
lab L10
	str	5
lab L11
	mark	L12
	var	9
	str	6
	line	720
	colm	44
	synt	any
	invoke	1
	line	720
	colm	52
	synt	any
	esusp
	goto	L13
lab L12
	str	5
lab L13
	line	720
	colm	34
	synt	any
	cat
	line	720
	colm	10
	synt	any
	asgn
	unmark
lab L9
	mark	L14
	pnull
	var	1
	pnull
	pnull
	str	7
	var	2
	line	721
	colm	16
	synt	any
	cat
	var	1
	line	721
	colm	24
	synt	any
	cat
	line	721
	colm	9
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	var	1
	line	722
	colm	9
	synt	any
	bscan
lab L16
	line	722
	colm	11
	synt	while
	mark0
	mark	L19
	var	10
	int	3
	line	722
	colm	24
	synt	any
	invoke	1
	unmark
	efail
lab L19
	pnull
	unmark
	mark	L16
	mark	L20
	pnull
	var	4
	var	7
	mark	L21
	var	11
	var	2
	line	723
	colm	22
	synt	any
	invoke	1
	line	723
	colm	29
	synt	any
	esusp
	goto	L22
lab L21
	int	3
lab L22
	line	723
	colm	17
	synt	any
	invoke	1
	line	723
	colm	11
	synt	any
	asgn
	unmark
lab L20
	mark	L23
	pnull
	var	5
	pnull
	pnull
	var	12
	var	4
	str	1
	line	724
	colm	23
	synt	any
	invoke	2
	str	1
	line	724
	colm	34
	synt	any
	cat
	var	0
	line	724
	colm	41
	synt	any
	cat
	line	724
	colm	16
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	line	725
	colm	7
	synt	if
	mark0
	var	13
	var	5
	line	725
	colm	14
	synt	any
	invoke	1
	unmark
	mark	L25
	var	5
	line	726
	colm	10
	synt	any
	pret
lab L25
	synt	any
	pfail
	line	725
	colm	7
	synt	endif
	unmark
lab L24
	var	7
	var	14
	var	2
	line	727
	colm	15
	synt	any
	invoke	1
	line	727
	colm	10
	synt	any
	invoke	1
lab L17
	unmark
	goto	L16
lab L18
	line	722
	colm	11
	synt	endwhile
	line	722
	colm	9
	synt	any
	escan
	unmark
lab L15
	mark	L26
	line	736
	colm	4
	synt	any
	pfail
	unmark
lab L26
	pnull
	line	737
	colm	1
	synt	any
	pfail
	end
proc pathload
	local	0,001000,fname
	local	1,001000,entry
	local	2,000020,path
	local	3,000020,found
	local	4,000020,psep
	local	5,000020,sfeat
	local	6,000040,loadfunc
	local	7,000000,proc
	local	8,000000,getenv
	local	9,000000,match
	local	10,000000,pathfind
	local	11,000000,stop
	con	0,010000,8,154,157,141,144,146,165,156,143
	con	1,010000,1,072
	con	2,010000,5,106,120,101,124,110
	con	3,010000,1,056
	con	4,010000,12,102,151,156,141,162,151,145,163,040,141,164,040
	con	5,010000,1,040
	con	6,002000,2,13
	con	7,002000,1,0
	con	8,010000,13,143,141,156,156,157,164,040,146,151,156,144,040,042
	con	9,010000,13,042,040,157,156,040,160,141,164,150,040,042,056,040
	con	10,010000,1,042
	declend
	line	739
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	6
	var	7
	str	0
	line	743
	colm	28
	synt	any
	invoke	1
	line	743
	colm	21
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	746
	colm	4
	synt	if
	mark0
	pnull
	var	6
	line	746
	colm	7
	synt	any
	null
	unmark
	line	747
	colm	7
	synt	any
	pfail
	line	746
	colm	4
	synt	endif
	unmark
lab L4
	mark	L5
	pnull
	var	4
	str	1
	line	750
	colm	9
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	mark	L7
	var	8
	str	2
	line	759
	colm	18
	synt	any
	invoke	1
	line	759
	colm	28
	synt	any
	esusp
	goto	L8
lab L7
	str	3
lab L8
	line	759
	colm	9
	synt	any
	asgn
	unmark
lab L6
	mark	L9
	line	760
	colm	4
	synt	if
	mark0
	var	9
	str	4
	pnull
	var	5
	line	760
	colm	38
	synt	any
	keywd	features
	line	760
	colm	35
	synt	any
	asgn
	line	760
	colm	12
	synt	any
	invoke	2
	unmark
	pnull
	pnull
	var	2
	str	5
	line	761
	colm	13
	synt	any
	cat
	pnull
	var	5
	int	6
	int	7
	line	761
	colm	31
	synt	any
	synt	any
	sect
	line	761
	colm	20
	synt	any
	cat
	line	760
	colm	4
	synt	endif
	unmark
lab L9
	mark	L10
	pnull
	var	3
	var	10
	var	0
	var	2
	str	5
	line	765
	colm	21
	synt	any
	invoke	3
	line	765
	colm	10
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	767
	colm	4
	synt	if
	mark0
	pnull
	var	3
	line	767
	colm	7
	synt	any
	null
	unmark
	var	11
	str	8
	var	0
	str	9
	var	2
	str	10
	line	768
	colm	12
	synt	any
	invoke	5
	line	767
	colm	4
	synt	endif
	unmark
lab L11
	mark	L12
	mark	L13
	var	6
	var	3
	var	1
	line	770
	colm	19
	synt	any
	invoke	2
	line	770
	colm	4
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	771
	colm	1
	synt	any
	pfail
	end
proc readline
	local	0,001000,file
	local	1,000020,line
	local	2,000000,read
	con	0,002000,1,1
	con	1,010000,1,134
	declend
	line	773
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	var	2
	var	0
	line	776
	colm	16
	synt	any
	invoke	1
	line	776
	colm	23
	synt	any
	esusp
	goto	L3
lab L2
	line	776
	colm	25
	synt	any
	pfail
lab L3
	line	776
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L4
lab L5
	line	778
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	1
	pnull
	int	0
	line	778
	colm	15
	synt	any
	neg
	line	778
	colm	14
	synt	any
	subsc
	str	1
	line	778
	colm	19
	synt	any
	lexeq
	unmark
	mark	L5
	pnull
	var	1
	mark	L8
	pnull
	pnull
	var	1
	int	0
	pnull
	int	0
	line	779
	colm	22
	synt	any
	neg
	line	779
	colm	21
	synt	any
	synt	any
	sect
	var	2
	var	0
	line	779
	colm	33
	synt	any
	invoke	1
	line	779
	colm	26
	synt	any
	cat
	line	779
	colm	40
	synt	any
	esusp
	goto	L9
lab L8
	unmark
	pnull
	goto	L7
lab L9
	line	779
	colm	12
	synt	any
	asgn
lab L6
	unmark
	goto	L5
lab L7
	line	778
	colm	4
	synt	endwhile
	unmark
lab L4
	mark	L10
	mark	L11
	var	1
	line	781
	colm	4
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	783
	colm	1
	synt	any
	pfail
	end
proc splitline
	local	0,001000,file
	local	1,001000,line
	local	2,001000,limit
	local	3,000020,i
	local	4,000020,j
	local	5,000000,write
	local	6,000000,find
	local	7,000000,tab
	con	0,002000,1,0
	con	1,010000,1,040
	con	2,002000,1,1
	con	3,010000,1,134
	declend
	line	785
	colm	11
	synt	any
	mark	L1
	line	788
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	788
	colm	7
	synt	any
	size
	int	0
	line	788
	colm	13
	synt	any
	numeq
	unmark
	mark	L2
	var	5
	var	0
	var	1
	line	789
	colm	12
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	line	790
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	line	788
	colm	4
	synt	endif
	unmark
lab L1
	mark	L4
lab L5
	line	792
	colm	4
	synt	while
	mark0
	pnull
	pnull
	var	1
	line	792
	colm	10
	synt	any
	size
	var	2
	line	792
	colm	16
	synt	any
	numgt
	unmark
	mark	L5
	pnull
	var	1
	sdup
	line	793
	colm	12
	synt	any
	bscan
	mark	L8
	pnull
	var	3
	pnull
	var	4
	int	0
	line	794
	colm	17
	synt	any
	asgn
	line	794
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	795
	colm	10
	synt	every
	mark0
	pnull
	var	3
	var	6
	str	1
	line	795
	colm	25
	synt	any
	invoke	1
	line	795
	colm	18
	synt	any
	asgn
	pop
	mark0
	line	796
	colm	13
	synt	ifelse
	mark	L12
	pnull
	var	3
	var	2
	line	796
	colm	18
	synt	any
	numge
	unmark
	unmark
	unmark
	pnull
	goto	L11
	goto	L13
lab L12
	pnull
	var	4
	var	3
	line	797
	colm	20
	synt	any
	asgn
lab L13
	line	796
	colm	13
	synt	endifelse
	unmark
lab L10
	efail
lab L11
	line	795
	colm	10
	synt	endevery
	unmark
lab L9
	mark	L14
	line	799
	colm	10
	synt	if
	mark0
	pnull
	var	4
	int	0
	line	799
	colm	15
	synt	any
	numeq
	unmark
	mark	L15
	var	5
	var	0
	var	1
	line	800
	colm	18
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	pnull
	line	801
	colm	13
	synt	any
	pret
lab L16
	synt	any
	pfail
	line	799
	colm	10
	synt	endif
	unmark
lab L14
	mark	L17
	var	5
	var	0
	var	7
	pnull
	var	4
	int	2
	line	803
	colm	27
	synt	any
	plus
	line	803
	colm	24
	synt	any
	invoke	1
	str	3
	line	803
	colm	15
	synt	any
	invoke	3
	unmark
lab L17
	var	7
	int	0
	line	804
	colm	13
	synt	any
	invoke	1
	line	793
	colm	12
	synt	any
	escan
	asgn
lab L6
	unmark
	goto	L5
lab L7
	line	792
	colm	4
	synt	endwhile
	unmark
lab L4
	mark	L18
	line	807
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	1
	line	807
	colm	7
	synt	any
	size
	int	0
	line	807
	colm	13
	synt	any
	numgt
	unmark
	var	5
	var	0
	var	1
	line	807
	colm	27
	synt	any
	invoke	2
	line	807
	colm	4
	synt	endif
	unmark
lab L18
	mark	L19
	mark	L20
	pnull
	line	809
	colm	4
	synt	any
	pret
lab L20
	synt	any
	pfail
	unmark
lab L19
	pnull
	line	811
	colm	1
	synt	any
	pfail
	end
proc suffix
	local	0,001000,s
	local	1,001000,separator
	local	2,000020,i
	local	3,000000,find
	con	0,010000,1,056
	con	1,002000,1,1
	con	2,002000,1,0
	declend
	line	813
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	815
	colm	4
	synt	any
	null
	str	0
	line	815
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	pnull
	var	0
	line	816
	colm	9
	synt	any
	size
	int	1
	line	816
	colm	12
	synt	any
	plus
	line	816
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	817
	colm	4
	synt	every
	mark0
	pnull
	var	2
	var	3
	var	1
	var	0
	line	817
	colm	19
	synt	any
	invoke	2
	line	817
	colm	12
	synt	any
	asgn
	pop
lab L4
	efail
lab L5
	line	817
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	mark	L7
	pnull
	pnull
	var	0
	int	1
	var	2
	line	818
	colm	15
	synt	any
	synt	any
	sect
	mark	L8
	pnull
	var	0
	pnull
	pnull
	pnull
	var	0
	line	818
	colm	22
	synt	any
	size
	var	2
	line	818
	colm	25
	synt	any
	numge
	int	1
	line	818
	colm	31
	synt	any
	plus
	int	2
	line	818
	colm	34
	synt	any
	synt	any
	sect
	line	818
	colm	38
	synt	any
	esusp
	goto	L9
lab L8
	line	818
	colm	40
	synt	any
	keywd	null
lab L9
	line	818
	colm	11
	synt	any
	llist	2
	line	818
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	819
	colm	1
	synt	any
	pfail
	end
proc tail
	local	0,001000,s
	local	1,001000,separator
	local	2,000020,i
	local	3,000000,find
	con	0,010000,1,057
	con	1,002000,1,0
	con	2,002000,1,1
	con	3,010000,0
	declend
	line	821
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	823
	colm	4
	synt	any
	null
	str	0
	line	823
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	int	1
	line	824
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	825
	colm	4
	synt	every
	mark0
	pnull
	var	2
	var	3
	var	1
	var	0
	line	825
	colm	19
	synt	any
	invoke	2
	line	825
	colm	12
	synt	any
	asgn
	pop
lab L4
	efail
lab L5
	line	825
	colm	4
	synt	endevery
	unmark
lab L3
	mark	L6
	mark	L7
	pnull
	pnull
	var	0
	int	2
	pnull
	var	2
	mark	L8
	pnull
	var	2
	int	2
	line	826
	colm	23
	synt	any
	numle
	line	826
	colm	28
	synt	any
	esusp
	goto	L9
lab L8
	int	1
lab L9
	line	826
	colm	18
	synt	any
	plus
	line	826
	colm	15
	synt	any
	synt	any
	sect
	mark	L10
	pnull
	str	3
	pnull
	var	0
	pnull
	var	2
	int	2
	line	826
	colm	45
	synt	any
	plus
	int	1
	line	826
	colm	48
	synt	any
	synt	any
	sect
	line	826
	colm	37
	synt	any
	lexne
	line	826
	colm	52
	synt	any
	esusp
	goto	L11
lab L10
	line	826
	colm	54
	synt	any
	keywd	null
lab L11
	line	826
	colm	11
	synt	any
	llist	2
	line	826
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	827
	colm	1
	synt	any
	pfail
	end
proc tempfile
	local	0,001000,prefix
	local	1,001000,suffix
	local	2,001000,path
	local	3,001000,len
	local	4,000020,name
	local	5,000000,tempname
	local	6,000000,open
	con	0,010000,1,167
	declend
	line	829
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	var	5
	var	0
	var	1
	var	2
	var	3
	line	834
	colm	20
	synt	any
	invoke	4
	line	834
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	mark	L4
	var	6
	var	4
	str	0
	line	836
	colm	15
	synt	any
	invoke	2
	line	836
	colm	27
	synt	any
	esusp
	goto	L5
lab L4
	line	836
	colm	29
	synt	any
	pfail
lab L5
	line	836
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	838
	colm	1
	synt	any
	pfail
	end
proc tempname
	local	0,001000,prefix
	local	1,001000,suffix
	local	2,001000,path
	local	3,001000,len
	local	4,000020,name
	local	5,000020,file
	local	6,000000,exists
	local	7,000000,getenv
	local	8,000000,find
	local	9,000000,randomize
	local	10,000000,left
	con	0,010000,0
	con	1,010000,4,124,105,115,120
	con	2,010000,4,057,164,155,160
	con	3,010000,1,056
	con	4,010000,6,115,123,055,104,117,123
	con	5,010000,13,115,123,040,127,151,156,144,157,167,163,040,116,124
	con	6,010000,1,134
	con	7,010000,1,057
	con	8,002000,1,8
	con	9,002000,1,1
	con	10,010000,1,060
	declend
	line	840
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	845
	colm	4
	synt	any
	null
	str	0
	line	845
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	846
	colm	4
	synt	any
	null
	str	0
	line	846
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	var	6
	pnull
	var	2
	line	847
	colm	11
	synt	any
	nonnull
	line	847
	colm	10
	synt	any
	invoke	1
	line	847
	colm	18
	synt	any
	esusp
	goto	L5
lab L4
	pnull
	var	2
	mark	L6
	var	7
	str	1
	line	848
	colm	24
	synt	any
	invoke	1
	line	848
	colm	33
	synt	any
	esusp
	goto	L7
lab L6
	mark	L8
	line	848
	colm	36
	synt	if
	mark0
	var	6
	str	2
	line	848
	colm	45
	synt	any
	invoke	1
	unmark
	str	2
	line	848
	colm	36
	synt	endif
	line	848
	colm	67
	synt	any
	esusp
	goto	L9
lab L8
	str	3
lab L9
lab L7
	line	848
	colm	14
	synt	any
	asgn
lab L5
	unmark
lab L3
	mark	L10
	line	850
	colm	4
	synt	ifelse
	mark	L11
	var	8
	mark	L13
	str	4
	line	850
	colm	20
	synt	any
	esusp
	goto	L14
lab L13
	str	5
lab L14
	line	850
	colm	38
	synt	any
	keywd	features
	line	850
	colm	11
	synt	any
	invoke	2
	unmark
	pnull
	var	0
	pnull
	pnull
	var	2
	str	6
	line	851
	colm	22
	synt	any
	cat
	var	0
	line	851
	colm	30
	synt	any
	cat
	line	851
	colm	14
	synt	any
	asgn
	goto	L12
lab L11
	pnull
	var	0
	pnull
	pnull
	var	2
	str	7
	line	853
	colm	22
	synt	any
	cat
	var	0
	line	853
	colm	29
	synt	any
	cat
	line	853
	colm	14
	synt	any
	asgn
lab L12
	line	850
	colm	4
	synt	endifelse
	unmark
lab L10
	mark	L15
	pnull
	pnull
	var	3
	line	854
	colm	4
	synt	any
	null
	int	8
	line	854
	colm	9
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	var	9
	line	856
	colm	13
	synt	any
	invoke	0
	unmark
lab L16
	mark	L17
lab L18
	line	858
	colm	4
	synt	repeat
	mark	L18
	mark	L21
	pnull
	int	9
	line	859
	colm	7
	synt	any
	random
	unmark
lab L21
	mark	L22
	pnull
	var	4
	pnull
	pnull
	var	0
	var	10
	line	860
	colm	30
	synt	any
	keywd	random
	int	8
	str	10
	line	860
	colm	29
	synt	any
	invoke	3
	line	860
	colm	22
	synt	any
	cat
	var	1
	line	860
	colm	47
	synt	any
	cat
	line	860
	colm	12
	synt	any
	asgn
	unmark
lab L22
	line	861
	colm	7
	synt	if
	mark0
	mark	L23
	var	6
	var	4
	line	861
	colm	20
	synt	any
	invoke	1
	unmark
	efail
lab L23
	pnull
	unmark
	mark	L24
	var	4
	line	861
	colm	32
	synt	any
	pret
lab L24
	synt	any
	pfail
	line	861
	colm	7
	synt	endif
lab L19
	unmark
	goto	L18
lab L20
	line	858
	colm	4
	synt	endrepeat
	unmark
lab L17
	pnull
	line	864
	colm	1
	synt	any
	pfail
	end
