version	U12.1.00
uid	scan.tmp.u1-1455877815-0
impl	error
global	257
	0,000001,dloadflag,0
	1,000001,initflag,0
	2,000001,BADflag,0
	3,000001,aflag,0
	4,000001,yydebug,0
	5,000001,Mflag,0
	6,000001,cflag,0
	7,000001,pflag,0
	8,000001,Lflag,0
	9,000001,Pflag,0
	10,000001,Tflag,0
	11,000001,Gflag,0
	12,000001,Vflag,0
	13,000001,Nflag,0
	14,000001,fflag,0
	15,000001,Fflag,0
	16,000001,Rflag,0
	17,000001,OOflag,0
	18,000001,OOOflag,0
	19,000001,Oflag,0
	20,000001,Xflag,0
	21,000001,xflag,0
	22,000001,hflag,0
	23,000001,dbgmsg,0
	24,000001,insrtptr,0
	25,000001,rpt_lvl,0
	26,000001,ifname,0
	27,000001,ofname,0
	28,000001,sigfname,0
	29,000001,optfname,0
	30,000001,actual_ifname,0
	31,000001,ofile,0
	32,000001,sigfile,0
	33,000001,optfile,0
	34,000001,unparse_file,0
	35,000001,optsfile,0
	36,000001,callfile,0
	37,000001,yyline,0
	38,000001,usl_ptr,0
	39,000001,insig,0
	40,000001,entry_nam,0
	41,000001,nil,0
	42,000001,indx_assign,0
	43,000001,indx_passign,0
	44,000001,indx_massign,0
	45,000001,indx_or,0
	46,000001,indx_and,0
	47,000001,indx_not,0
	48,000001,indx_equals,0
	49,000001,indx_less,0
	50,000001,indx_le,0
	51,000001,indx_ge,0
	52,000001,indx_ne,0
	53,000001,indx_greater,0
	54,000001,indx_plus,0
	55,000001,indx_minus,0
	56,000001,indx_times,0
	57,000001,indx_divide,0
	58,000001,indx_mod,0
	59,000001,indx_pconc,0
	60,000001,indx_sconc,0
	61,000001,indx_exp,0
	62,000001,indx_deref,0
	63,000001,indx_subscr,0
	64,000001,indx_New,0
	65,000001,indx_ValueOf,0
	66,000001,indx_First,0
	67,000001,indx_Last,0
	68,000001,indx_Pred,0
	69,000001,indx_Succ,0
	70,000001,indx_Ord,0
	71,000001,indx_OrdInv,0
	72,000001,indx_Card,0
	73,000001,indx_In,0
	74,000001,indx_Out,0
	75,000001,indx_put,0
	76,000001,indx_Callcc,0
	77,000001,indx_size,0
	78,000001,indx_ptr_New,0
	79,000001,indx_init_New,0
	80,000001,indx_empty,0
	81,000001,indx_standard,0
	82,000001,indx_inline,0
	83,000001,pend,0
	84,000001,indx_Boolean,0
	85,000001,indx_Void,0
	86,000001,indx_true,0
	87,000001,indx_false,0
	88,000001,indx_simple,0
	89,000001,indx_Null,0
	90,000001,indx_Mk,0
	91,000001,indx_Integer,0
	92,000001,indx_Array,0
	93,000001,sig_assign,0
	94,000001,sig_equals,0
	95,000001,sig_less,0
	96,000001,sig_greater,0
	97,000001,sig_New,0
	98,000001,sig_const,0
	99,000001,sig_ValueOf,0
	100,000001,sig_pconc,0
	101,000001,sig_sconc,0
	102,000001,sig_Signature,0
	103,000001,val_Boolean,0
	104,000001,val_Integer,0
	105,000001,val_Void,0
	106,000001,var_Void,0
	107,000001,sel_true,0
	108,000001,sel_false,0
	109,000001,id_Boolean,0
	110,000001,id_Integer,0
	111,000001,id_Void,0
	112,000001,id_put,0
	113,000001,id_ValueOf,0
	114,000001,id_New,0
	115,000001,id_size,0
	116,000001,id_Null,0
	117,000001,id_times,0
	118,000001,id_plus,0
	119,000001,appl_Null,0
	120,000001,yyvline,0
	121,000001,stt_table,0
	122,000001,stt_unique_cnt,0
	123,000001,stt_reference_cnt,0
	124,000001,reverse_stt,0
	125,000001,errfile,0
	126,000001,infofile,0
	127,000001,reduce,0
	128,000001,progress,0
	129,000001,debug_file,0
	130,000001,stats,0
	131,000001,nodes,0
	132,000001,ccode_file,0
	133,000001,nodes_file,0
	134,000001,lists_created_file,0
	135,000001,cons_file,0
	136,000001,treefile,0
	137,000001,symfile,0
	138,000001,sym2file,0
	139,000001,nodes_created_file,0
	140,000001,line_cnt,0
	141,000001,char_cnt,0
	142,000001,token_cnt,0
	143,000001,reserved_id_cnt,0
	144,000001,reserved_op_cnt,0
	145,000001,numeral_cnt,0
	146,000001,nodes_total_cnt,0
	147,000001,nodes_made_cnt,0
	148,000001,lists_total_cnt,0
	149,000001,lists_made_cnt,0
	150,000001,yyn_switches_cnt,0
	151,000001,yyn_compute_cnt,0
	152,000001,newstate_cnt,0
	153,000001,setstate_cnt,0
	154,000001,backup_cnt,0
	155,000001,default_cnt,0
	156,000001,reduce_cnt,0
	157,000001,errlab_cnt,0
	158,000001,errlab1_cnt,0
	159,000001,defined_id_cnt,0
	160,000001,defined_op_cnt,0
	161,000001,seperator_cnt,0
	162,000001,RIC_table,0
	163,000001,RIC_op_code_cnt,0
	164,000001,RIC_table_entry_cnt,0
	165,000001,comments_cnt,0
	166,000001,sing_quoted_cnt,0
	167,000001,dbl_quoted_cnt,0
	168,000001,infile,0
	169,000001,entry_name,0
	170,000001,yyinfnm,0
	171,000001,addposition,0
	172,000001,inline_cnvt,0
	173,000001,Ginline_cnvt,0
	174,000001,Vinline_cnvt,0
	175,000001,paramstop,0
	176,000001,denseqstop,0
	177,000001,condstop,0
	178,000001,declstop,0
	179,000001,stxtree,0
	180,000001,yystate,0
	181,000001,fn_count,0
	182,000001,scanstk,0
	183,000001,stktop,0
	184,000001,scansavc,0
	185,000001,yydescr,0
	186,000001,has_externs,0
	187,000001,argcnt_from_kind,0
	188,000001,parser_actions_cnt,0
	189,000001,curr_void_decl,0
	190,000001,curr_sig_transp,0
	191,000001,curr_tsig,0
	192,000001,err_node,0
	193,000001,in_sig,0
	194,000001,in_loop,0
	195,000001,linebuf,0
	196,000001,restab,0
	197,000001,cctab,0
	198,000001,tokenlgth,0
	199,000001,yynerrs,0
	200,000001,decl_num,0
	201,000001,decl_nums,0
	202,000001,Outer_arg,0
	203,000001,file_sigs,0
	204,000001,decl_num_in,0
	205,000001,sig_table,0
	206,000001,unique_node_id,0
	207,000001,objfilelist,0
	208,000001,Idtable,0
	209,000001,dump_tree_depth,0
	210,000001,next_pre,0
	211,000001,next_post,0
	212,000001,visited,0
	213,000001,Gfc_list,0
	214,000001,Glevel,0
	215,000001,Gcurrent,0
	216,000001,Goutfile,0
	217,000001,finished_accessible,0
	218,000001,all_fcs,0
	219,000001,all_fcs_tail,0
	220,000001,outer_fc,0
	221,000001,whole_program,0
	222,000001,currect_fcs,0
	223,000001,Vcurrent_func,0
	224,000001,Vcurrent_ar,0
	225,000001,Vstatic_level,0
	226,000001,Vnext_free,0
	227,000001,Vhigh_water,0
	228,000001,Vextent_limited,0
	229,000001,Vallocate_on_stack,0
	230,000001,Vcallcc,0
	231,000001,max_addr_regs,0
	232,000001,max_int_regs,0
	233,000001,n_addr_regs,0
	234,000001,n_int_regs,0
	235,000001,Vcurrent_blocks,0
	236,000001,found_non_vacuous,0
	237,000001,n_vacuous,0
	238,000001,avail_loc,0
	239,000001,compile_fcs,0
	240,000001,sl_available,0
	241,000001,stplinks,0
	242,000001,fld_table,0
	243,000001,surr_loop,0
	244,000001,callcc_call,0
	245,000001,catchsigs,0
	246,000001,Gspcl_to_inline,0
	247,000001,htable,0
	248,000001,NodeTypeName,0
	249,000005,yylex,0
	250,000005,rdposition,0
	251,000005,yyunlex,1
	252,000005,cclass,1
	253,000005,getchr,0
	254,000005,reschk_id,2
	255,000005,reschk_op,2
	256,000005,rpt_progress,4

proc yylex
	local	0,000020,c
	local	1,000020,cc
	local	2,000020,p
	local	3,000020,outtok
	local	4,000020,retry_loop
	local	5,000020,saw_quote
	local	6,000020,startline
	local	7,000020,startfnm
	local	8,000020,cmtnest
	local	9,000020,yycat
	local	10,000020,yydescr
	local	11,000020,do_retry
	local	12,000000,stktop
	local	13,000000,scanstk
	local	14,000000,token_cnt
	local	15,000000,rpt_progress
	local	16,000000,scansavc
	local	17,000000,cclass
	local	18,000000,yylval
	local	19,000000,yyline
	local	20,000000,yyvline
	local	21,000000,getchr
	local	22,000000,pflag
	local	23,000000,rdposition
	local	24,000000,tokenlgth
	local	25,000000,reschk_id
	local	26,000000,yyperror
	local	27,000000,stt_enter
	local	28,000000,sing_quoted_cnt
	local	29,000000,dbl_quoted_cnt
	local	30,000000,comments_cnt
	local	31,000000,yyinfnm
	local	32,000000,yydebug
	local	33,000000,ord
	local	34,000000,yyinfo
	local	35,000000,seperator_cnt
	local	36,000000,numeral_cnt
	local	37,000000,reschk_op
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,010000,0
	con	3,010000,1,012
	con	4,010000,1,043
	con	5,002000,1,2
	con	6,002000,1,3
	con	7,002000,3,291
	con	8,010000,2,111,104
	con	9,010000,11,122,105,123,105,122,126,105,104,040,111,104
	con	10,010000,10,104,105,106,111,116,105,104,040,111,104
	con	11,002000,1,6
	con	12,010000,30,125,156,164,145,162,155,151,156,141,164,145,144,040,161,165,157,164,145,144,040,151,144,145,156,164,151,146,151,145,162
	con	13,010000,1,134
	con	14,010000,1,164
	con	15,010000,1,011
	con	16,010000,1,156
	con	17,010000,1,162
	con	18,010000,1,015
	con	19,010000,10,123,151,156,147,040,121,165,157,164,145
	con	20,002000,1,7
	con	21,010000,19,125,156,164,145,162,155,151,156,141,164,145,144,040,163,164,162,151,156,147
	con	22,002000,3,294
	con	23,010000,9,104,142,154,040,121,165,157,164,145
	con	24,002000,1,4
	con	25,010000,1,050
	con	26,010000,1,052
	con	27,010000,1,051
	con	28,010000,1,044
	con	29,010000,1,053
	con	30,010000,1,055
	con	31,010000,8,123,105,120,040,160,040,075,040
	con	32,010000,5,040,143,040,075,040
	con	33,010000,10,040,157,165,164,164,157,153,040,075,040
	con	34,010000,3,123,105,120
	con	35,002000,3,295
	con	36,010000,3,116,125,115
	con	37,002000,1,5
	con	38,002000,3,292
	con	39,010000,3,117,120,122
	con	40,010000,12,122,105,123,105,122,126,105,104,040,117,120,122
	con	41,010000,11,104,105,106,111,116,105,104,040,117,120,122
	con	42,010000,3,105,117,106
	declend
	filen	pass1/scanner/scan.tmp.icn
	line	147
	colm	12
	synt	any
	mark	L1
	line	150
	colm	5
	synt	if
	mark0
	pnull
	var	12
	int	0
	line	150
	colm	16
	synt	any
	numge
	unmark
	mark	L2
	pnull
	var	3
	pnull
	var	13
	var	12
	line	151
	colm	26
	synt	any
	subsc
	line	151
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	12
	dup
	int	1
	line	152
	colm	16
	synt	any
	minus
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	14
	dup
	int	1
	line	153
	colm	19
	synt	any
	plus
	asgn
	unmark
lab L4
	mark	L5
	var	15
	var	2
	var	9
	var	3
	var	10
	line	154
	colm	21
	synt	any
	invoke	4
	unmark
lab L5
	mark	L6
	var	3
	line	155
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	line	150
	colm	5
	synt	endif
	unmark
lab L1
	mark	L7
	pnull
	var	4
	int	1
	line	158
	colm	16
	synt	any
	asgn
	unmark
lab L7
	mark	L8
lab L9
	line	159
	colm	5
	synt	while
	mark0
	pnull
	var	4
	int	1
	line	159
	colm	22
	synt	any
	numeq
	unmark
	mark	L9
	mark	L12
	pnull
	var	0
	var	16
	line	161
	colm	7
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	1
	var	17
	var	0
	line	162
	colm	17
	synt	any
	invoke	1
	line	162
	colm	8
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	18
	int	0
	line	163
	colm	12
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	2
	str	2
	line	164
	colm	7
	synt	any
	asgn
	unmark
lab L15
	mark	L16
lab L17
	line	166
	colm	9
	synt	while
	mark0
	pnull
	var	1
	int	1
	line	166
	colm	19
	synt	any
	numeq
	unmark
	mark	L17
	mark	L20
	line	168
	colm	13
	synt	ifelse
	mark	L21
	pnull
	var	0
	str	3
	line	168
	colm	19
	synt	any
	lexeq
	unmark
	mark	L23
	pnull
	var	19
	dup
	int	1
	line	169
	colm	24
	synt	any
	plus
	asgn
	unmark
lab L23
	mark	L24
	pnull
	var	20
	dup
	int	1
	line	170
	colm	25
	synt	any
	plus
	asgn
	unmark
lab L24
	mark	L25
	pnull
	var	0
	var	21
	line	171
	colm	28
	synt	any
	invoke	0
	line	171
	colm	19
	synt	any
	asgn
	unmark
lab L25
	line	172
	colm	17
	synt	if
	mark0
	pnull
	var	0
	str	4
	line	172
	colm	23
	synt	any
	lexeq
	pop
	var	22
	unmark
	mark	L26
	var	23
	line	173
	colm	31
	synt	any
	invoke	0
	unmark
lab L26
	mark	L27
	pnull
	var	0
	str	3
	line	174
	colm	23
	synt	any
	numeq
	unmark
lab L27
	mark	L28
	pnull
	var	19
	dup
	int	1
	line	175
	colm	28
	synt	any
	minus
	asgn
	unmark
lab L28
	pnull
	var	20
	dup
	int	1
	line	176
	colm	29
	synt	any
	minus
	asgn
	line	172
	colm	17
	synt	endif
	goto	L22
lab L21
	pnull
	var	0
	var	21
	line	180
	colm	28
	synt	any
	invoke	0
	line	180
	colm	19
	synt	any
	asgn
lab L22
	line	168
	colm	13
	synt	endifelse
	unmark
lab L20
	pnull
	var	1
	var	17
	var	0
	line	182
	colm	25
	synt	any
	invoke	1
	line	182
	colm	16
	synt	any
	asgn
lab L18
	unmark
	goto	L17
lab L19
	line	166
	colm	9
	synt	endwhile
	unmark
lab L16
	mark	L29
	line	184
	colm	5
	synt	case
	mark0
	var	1
	eret
	mark	L31
	ccase
	int	5
	line	186
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L32
	pnull
	var	2
	dup
	var	0
	line	188
	colm	19
	synt	any
	cat
	asgn
	unmark
lab L32
	mark	L33
	pnull
	var	0
	var	21
	line	189
	colm	28
	synt	any
	invoke	0
	line	189
	colm	19
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	var	1
	var	17
	var	0
	line	190
	colm	29
	synt	any
	invoke	1
	line	190
	colm	20
	synt	any
	asgn
	unmark
lab L34
	mark	L35
lab L36
	line	191
	colm	17
	synt	while
	mark0
	mark	L39
	pnull
	var	1
	int	5
	line	191
	colm	29
	synt	any
	lexeq
	line	191
	colm	35
	synt	any
	esusp
	goto	L40
lab L39
	pnull
	var	1
	int	6
	line	191
	colm	41
	synt	any
	lexeq
lab L40
	unmark
	mark	L36
	mark	L41
	pnull
	var	2
	dup
	var	0
	line	193
	colm	23
	synt	any
	cat
	asgn
	unmark
lab L41
	mark	L42
	pnull
	var	0
	var	21
	line	194
	colm	32
	synt	any
	invoke	0
	line	194
	colm	23
	synt	any
	asgn
	unmark
lab L42
	pnull
	var	1
	var	17
	var	0
	line	195
	colm	33
	synt	any
	invoke	1
	line	195
	colm	24
	synt	any
	asgn
lab L37
	unmark
	goto	L36
lab L38
	line	191
	colm	17
	synt	endwhile
	unmark
lab L35
	mark	L43
	pnull
	var	24
	pnull
	var	2
	line	197
	colm	30
	synt	any
	size
	line	197
	colm	27
	synt	any
	asgn
	unmark
lab L43
	mark	L44
	pnull
	var	3
	var	25
	var	2
	int	7
	line	198
	colm	36
	synt	any
	invoke	2
	line	198
	colm	24
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	pnull
	var	16
	var	0
	line	199
	colm	26
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	pnull
	var	14
	dup
	int	1
	line	200
	colm	27
	synt	any
	plus
	asgn
	unmark
lab L46
	mark	L47
	pnull
	var	9
	str	8
	line	201
	colm	23
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	line	202
	colm	17
	synt	ifelse
	mark	L49
	pnull
	var	3
	int	7
	line	202
	colm	27
	synt	any
	numne
	unmark
	pnull
	var	10
	str	9
	line	202
	colm	47
	synt	any
	asgn
	goto	L50
lab L49
	pnull
	var	10
	str	10
	line	203
	colm	31
	synt	any
	asgn
lab L50
	line	202
	colm	17
	synt	endifelse
	unmark
lab L48
	mark	L51
	var	15
	var	2
	var	9
	var	3
	var	10
	line	204
	colm	29
	synt	any
	invoke	4
	unmark
lab L51
	mark	L52
	var	3
	line	205
	colm	17
	synt	any
	pret
lab L52
	synt	any
	pfail
	goto	L30
lab L31
	mark	L53
	ccase
	int	11
	line	207
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L54
	pnull
	var	2
	dup
	var	0
	line	209
	colm	15
	synt	any
	cat
	asgn
	unmark
lab L54
	mark	L55
	pnull
	var	0
	var	21
	line	210
	colm	24
	synt	any
	invoke	0
	line	210
	colm	15
	synt	any
	asgn
	unmark
lab L55
	mark	L56
	pnull
	var	1
	var	17
	var	0
	line	211
	colm	25
	synt	any
	invoke	1
	line	211
	colm	16
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	pnull
	var	5
	int	0
	line	212
	colm	23
	synt	any
	asgn
	unmark
lab L57
	mark	L58
lab L59
	line	213
	colm	13
	synt	repeat
	mark	L59
	mark	L62
	line	214
	colm	17
	synt	if
	mark0
	mark	L63
	pnull
	var	1
	pnull
	int	1
	line	214
	colm	28
	synt	any
	neg
	line	214
	colm	25
	synt	any
	lexeq
	line	214
	colm	31
	synt	any
	esusp
	goto	L64
lab L63
	pnull
	var	0
	str	3
	line	214
	colm	35
	synt	any
	lexeq
lab L64
	unmark
	mark	L65
	var	26
	str	12
	line	215
	colm	29
	synt	any
	invoke	1
	unmark
lab L65
	unmark
	unmark
	pnull
	goto	L61
	line	214
	colm	17
	synt	endif
	unmark
lab L62
	mark	L66
	line	218
	colm	17
	synt	ifelse
	mark	L67
	pnull
	var	0
	str	13
	line	218
	colm	23
	synt	any
	lexeq
	unmark
	mark	L69
	pnull
	var	0
	var	21
	line	219
	colm	32
	synt	any
	invoke	0
	line	219
	colm	23
	synt	any
	asgn
	unmark
lab L69
	line	220
	colm	21
	synt	case
	mark0
	var	0
	eret
	mark	L71
	ccase
	str	14
	line	221
	colm	28
	synt	any
	eqv
	unmark
	pop
	pnull
	var	2
	dup
	str	15
	line	221
	colm	32
	synt	any
	cat
	asgn
	goto	L70
lab L71
	mark	L72
	ccase
	str	16
	line	222
	colm	28
	synt	any
	eqv
	unmark
	pop
	pnull
	var	2
	dup
	str	3
	line	222
	colm	32
	synt	any
	cat
	asgn
	goto	L70
lab L72
	mark	L73
	ccase
	str	17
	line	223
	colm	28
	synt	any
	eqv
	unmark
	pop
	pnull
	var	2
	dup
	str	18
	line	223
	colm	32
	synt	any
	cat
	asgn
	goto	L70
lab L73
	pop
	pnull
	var	2
	dup
	var	0
	line	224
	colm	37
	synt	any
	cat
	asgn
lab L70
	line	220
	colm	21
	synt	endcase
	goto	L68
lab L67
	pnull
	var	2
	dup
	var	0
	line	228
	colm	23
	synt	any
	cat
	asgn
lab L68
	line	218
	colm	17
	synt	endifelse
	unmark
lab L66
	mark	L74
	pnull
	var	0
	var	21
	line	230
	colm	28
	synt	any
	invoke	0
	line	230
	colm	19
	synt	any
	asgn
	unmark
lab L74
	mark	L75
	pnull
	var	1
	var	17
	var	0
	line	231
	colm	29
	synt	any
	invoke	1
	line	231
	colm	20
	synt	any
	asgn
	unmark
lab L75
	mark	L76
	line	232
	colm	17
	synt	if
	mark0
	pnull
	var	5
	int	1
	line	232
	colm	31
	synt	any
	lexeq
	unmark
	line	233
	colm	21
	synt	ifelse
	mark	L77
	pnull
	var	1
	int	11
	line	233
	colm	28
	synt	any
	lexeq
	unmark
	mark	L79
	pnull
	var	0
	var	21
	line	235
	colm	37
	synt	any
	invoke	0
	line	235
	colm	28
	synt	any
	asgn
	unmark
lab L79
	pnull
	var	1
	var	17
	var	0
	line	236
	colm	38
	synt	any
	invoke	1
	line	236
	colm	29
	synt	any
	asgn
	goto	L78
lab L77
	unmark
	unmark
	pnull
	goto	L61
lab L78
	line	233
	colm	21
	synt	endifelse
	line	232
	colm	17
	synt	endif
	unmark
lab L76
	line	242
	colm	17
	synt	ifelse
	mark	L80
	pnull
	var	1
	int	11
	line	242
	colm	24
	synt	any
	lexeq
	unmark
	pnull
	var	5
	int	1
	line	243
	colm	31
	synt	any
	asgn
	goto	L81
lab L80
	pnull
	var	5
	int	0
	line	245
	colm	31
	synt	any
	asgn
lab L81
	line	242
	colm	17
	synt	endifelse
lab L60
	unmark
	goto	L59
lab L61
	line	213
	colm	13
	synt	endrepeat
	unmark
lab L58
	mark	L82
	pnull
	var	3
	int	7
	line	251
	colm	20
	synt	any
	asgn
	unmark
lab L82
	mark	L83
	pnull
	var	18
	var	27
	var	2
	pnull
	var	2
	line	252
	colm	35
	synt	any
	size
	line	252
	colm	32
	synt	any
	invoke	2
	line	252
	colm	20
	synt	any
	asgn
	unmark
lab L83
	mark	L84
	pnull
	var	16
	var	0
	line	254
	colm	22
	synt	any
	asgn
	unmark
lab L84
	mark	L85
	pnull
	var	14
	dup
	int	1
	line	255
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L85
	mark	L86
	pnull
	var	9
	str	19
	line	256
	colm	19
	synt	any
	asgn
	unmark
lab L86
	mark	L87
	pnull
	var	10
	str	19
	line	257
	colm	21
	synt	any
	asgn
	unmark
lab L87
	mark	L88
	pnull
	var	28
	dup
	int	1
	line	258
	colm	29
	synt	any
	plus
	asgn
	unmark
lab L88
	mark	L89
	var	15
	var	2
	var	9
	var	3
	var	10
	line	259
	colm	25
	synt	any
	invoke	4
	unmark
lab L89
	mark	L90
	var	3
	line	260
	colm	13
	synt	any
	pret
lab L90
	synt	any
	pfail
	goto	L30
lab L53
	mark	L91
	ccase
	int	20
	line	264
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L92
	pnull
	var	5
	int	0
	line	269
	colm	23
	synt	any
	asgn
	unmark
lab L92
	mark	L93
lab L94
	line	270
	colm	13
	synt	repeat
	mark	L94
	mark	L97
	line	271
	colm	17
	synt	if
	mark0
	mark	L98
	pnull
	var	1
	pnull
	int	1
	line	271
	colm	27
	synt	any
	neg
	line	271
	colm	24
	synt	any
	lexeq
	line	271
	colm	30
	synt	any
	esusp
	goto	L99
lab L98
	pnull
	var	0
	str	3
	line	271
	colm	34
	synt	any
	lexeq
lab L99
	unmark
	mark	L100
	var	26
	str	21
	line	272
	colm	29
	synt	any
	invoke	1
	unmark
lab L100
	unmark
	unmark
	pnull
	goto	L96
	line	271
	colm	17
	synt	endif
	unmark
lab L97
	mark	L101
	line	275
	colm	17
	synt	ifelse
	mark	L102
	pnull
	var	0
	str	13
	line	275
	colm	23
	synt	any
	lexeq
	unmark
	mark	L104
	pnull
	var	0
	var	21
	line	276
	colm	32
	synt	any
	invoke	0
	line	276
	colm	23
	synt	any
	asgn
	unmark
lab L104
	line	277
	colm	21
	synt	case
	mark0
	var	0
	eret
	mark	L106
	ccase
	str	14
	line	278
	colm	28
	synt	any
	eqv
	unmark
	pop
	pnull
	var	2
	dup
	str	15
	line	278
	colm	32
	synt	any
	cat
	asgn
	goto	L105
lab L106
	mark	L107
	ccase
	str	16
	line	279
	colm	28
	synt	any
	eqv
	unmark
	pop
	pnull
	var	2
	dup
	str	3
	line	279
	colm	32
	synt	any
	cat
	asgn
	goto	L105
lab L107
	mark	L108
	ccase
	str	17
	line	280
	colm	28
	synt	any
	eqv
	unmark
	pop
	pnull
	var	2
	dup
	str	18
	line	280
	colm	32
	synt	any
	cat
	asgn
	goto	L105
lab L108
	pop
	pnull
	var	2
	dup
	var	0
	line	281
	colm	37
	synt	any
	cat
	asgn
lab L105
	line	277
	colm	21
	synt	endcase
	goto	L103
lab L102
	pnull
	var	2
	dup
	var	0
	line	284
	colm	23
	synt	any
	cat
	asgn
lab L103
	line	275
	colm	17
	synt	endifelse
	unmark
lab L101
	mark	L109
	pnull
	var	0
	var	21
	line	286
	colm	28
	synt	any
	invoke	0
	line	286
	colm	19
	synt	any
	asgn
	unmark
lab L109
	mark	L110
	pnull
	var	1
	var	17
	var	0
	line	287
	colm	29
	synt	any
	invoke	1
	line	287
	colm	20
	synt	any
	asgn
	unmark
lab L110
	mark	L111
	line	288
	colm	17
	synt	if
	mark0
	pnull
	var	5
	int	1
	line	288
	colm	31
	synt	any
	lexeq
	unmark
	line	289
	colm	21
	synt	ifelse
	mark	L112
	pnull
	var	1
	int	20
	line	289
	colm	28
	synt	any
	lexeq
	unmark
	mark	L114
	pnull
	var	0
	var	21
	line	292
	colm	37
	synt	any
	invoke	0
	line	292
	colm	28
	synt	any
	asgn
	unmark
lab L114
	pnull
	var	1
	var	17
	var	0
	line	293
	colm	37
	synt	any
	invoke	1
	line	293
	colm	29
	synt	any
	numeq
	goto	L113
lab L112
	unmark
	unmark
	pnull
	goto	L96
lab L113
	line	289
	colm	21
	synt	endifelse
	line	288
	colm	17
	synt	endif
	unmark
lab L111
	line	299
	colm	17
	synt	ifelse
	mark	L115
	pnull
	var	1
	int	20
	line	299
	colm	24
	synt	any
	lexeq
	unmark
	pnull
	var	5
	int	1
	line	300
	colm	31
	synt	any
	asgn
	goto	L116
lab L115
	pnull
	var	5
	int	0
	line	302
	colm	31
	synt	any
	asgn
lab L116
	line	299
	colm	17
	synt	endifelse
lab L95
	unmark
	goto	L94
lab L96
	line	270
	colm	13
	synt	endrepeat
	unmark
lab L93
	mark	L117
	pnull
	var	3
	int	22
	line	305
	colm	20
	synt	any
	asgn
	unmark
lab L117
	mark	L118
	pnull
	var	18
	pnull
	var	2
	int	5
	pnull
	int	1
	line	307
	colm	27
	synt	any
	neg
	line	307
	colm	26
	synt	any
	synt	any
	sect
	line	307
	colm	20
	synt	any
	asgn
	unmark
lab L118
	mark	L119
	pnull
	var	16
	var	0
	line	309
	colm	22
	synt	any
	asgn
	unmark
lab L119
	mark	L120
	pnull
	var	14
	dup
	int	1
	line	310
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L120
	mark	L121
	pnull
	var	9
	str	23
	line	311
	colm	19
	synt	any
	asgn
	unmark
lab L121
	mark	L122
	pnull
	var	10
	str	23
	line	312
	colm	21
	synt	any
	asgn
	unmark
lab L122
	mark	L123
	pnull
	var	29
	dup
	int	1
	line	313
	colm	28
	synt	any
	plus
	asgn
	unmark
lab L123
	mark	L124
	var	15
	var	2
	var	9
	var	3
	var	10
	line	314
	colm	25
	synt	any
	invoke	4
	unmark
lab L124
	mark	L125
	var	3
	line	315
	colm	13
	synt	any
	pret
lab L125
	synt	any
	pfail
	goto	L30
lab L91
	mark	L126
	ccase
	int	24
	line	318
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L127
	pnull
	var	11
	int	0
	line	320
	colm	26
	synt	any
	asgn
	unmark
lab L127
	mark	L128
	pnull
	var	2
	pnull
	var	16
	var	0
	line	321
	colm	31
	synt	any
	asgn
	line	321
	colm	19
	synt	any
	asgn
	unmark
lab L128
	mark	L129
	pnull
	var	0
	var	21
	line	322
	colm	28
	synt	any
	invoke	0
	line	322
	colm	19
	synt	any
	asgn
	unmark
lab L129
	mark	L130
	line	323
	colm	17
	synt	if
	mark0
	pnull
	var	16
	str	25
	line	323
	colm	31
	synt	any
	lexeq
	pop
	pnull
	var	0
	str	26
	line	323
	colm	44
	synt	any
	lexeq
	unmark
	mark	L131
	pnull
	var	30
	dup
	int	1
	line	325
	colm	34
	synt	any
	plus
	asgn
	unmark
lab L131
	mark	L132
	pnull
	var	6
	var	19
	line	327
	colm	31
	synt	any
	asgn
	unmark
lab L132
	mark	L133
	pnull
	var	7
	var	31
	line	331
	colm	30
	synt	any
	asgn
	unmark
lab L133
	mark	L134
	pnull
	var	8
	int	0
	line	332
	colm	29
	synt	any
	asgn
	unmark
lab L134
	mark	L135
	mark	L136
	line	2
	colm	5
	synt	case
	mark0
	var	16
	eret
	mark	L138
	ccase
	pnull
	int	1
	line	4
	colm	1
	synt	any
	neg
	line	4
	colm	3
	synt	any
	eqv
	unmark
	pop
	mark	L139
	pnull
	var	19
	var	6
	line	6
	colm	8
	synt	any
	asgn
	unmark
lab L139
	mark	L140
	pnull
	var	31
	var	7
	line	7
	colm	9
	synt	any
	asgn
	unmark
lab L140
	pnull
	var	11
	int	1
	line	8
	colm	10
	synt	any
	asgn
	goto	L137
lab L138
	mark	L141
	ccase
	str	3
	line	11
	colm	5
	synt	any
	eqv
	unmark
	pop
	mark	L142
	pnull
	var	19
	dup
	int	1
	line	13
	colm	8
	synt	any
	plus
	asgn
	unmark
lab L142
	mark	L143
	pnull
	var	20
	dup
	int	1
	line	14
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L143
	line	15
	colm	2
	synt	if
	mark0
	pnull
	var	0
	str	4
	line	15
	colm	8
	synt	any
	lexeq
	pop
	var	22
	unmark
	mark	L144
	var	23
	line	16
	colm	11
	synt	any
	invoke	0
	unmark
lab L144
	mark	L145
	pnull
	var	0
	str	3
	line	17
	colm	3
	synt	any
	numeq
	unmark
lab L145
	mark	L146
	pnull
	var	19
	dup
	int	1
	line	19
	colm	8
	synt	any
	minus
	asgn
	unmark
lab L146
	pnull
	var	20
	dup
	int	1
	line	20
	colm	9
	synt	any
	minus
	asgn
	line	15
	colm	2
	synt	endif
	goto	L137
lab L141
	mark	L147
	ccase
	str	26
	line	24
	colm	4
	synt	any
	eqv
	unmark
	pop
	line	26
	colm	1
	synt	if
	mark0
	pnull
	var	0
	str	27
	line	26
	colm	7
	synt	any
	lexeq
	unmark
	pnull
	var	8
	dup
	int	1
	line	28
	colm	9
	synt	any
	minus
	asgn
	line	26
	colm	1
	synt	endif
	goto	L137
lab L147
	mark	L148
	ccase
	str	25
	line	31
	colm	8
	synt	any
	eqv
	unmark
	pop
	line	33
	colm	1
	synt	if
	mark0
	pnull
	var	0
	str	26
	line	33
	colm	7
	synt	any
	lexeq
	unmark
	mark	L149
	pnull
	var	8
	dup
	int	1
	line	35
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L149
	pnull
	var	0
	var	21
	line	36
	colm	11
	synt	any
	invoke	0
	line	36
	colm	2
	synt	any
	asgn
	line	33
	colm	1
	synt	endif
	goto	L137
lab L148
	mark	L150
	ccase
	str	28
	line	39
	colm	4
	synt	any
	eqv
	unmark
	pop
	line	41
	colm	1
	synt	if
	mark0
	pnull
	var	0
	str	28
	line	41
	colm	7
	synt	any
	lexeq
	unmark
	mark	L151
	pnull
	var	0
	var	21
	line	43
	colm	12
	synt	any
	invoke	0
	line	43
	colm	3
	synt	any
	asgn
	unmark
lab L151
	line	44
	colm	1
	synt	case
	mark0
	var	0
	eret
	mark	L153
	ccase
	str	29
	line	45
	colm	4
	synt	any
	eqv
	unmark
	pop
	pnull
	var	32
	dup
	int	1
	line	46
	colm	9
	synt	any
	plus
	asgn
	goto	L152
lab L153
	mark	L154
	ccase
	str	30
	line	48
	colm	4
	synt	any
	eqv
	unmark
	pop
	line	49
	colm	1
	synt	if
	mark0
	var	32
	unmark
	pnull
	var	32
	dup
	int	1
	line	50
	colm	9
	synt	any
	minus
	asgn
	line	49
	colm	1
	synt	endif
	goto	L152
lab L154
	efail
lab L152
	line	44
	colm	1
	synt	endcase
	line	41
	colm	1
	synt	endif
	goto	L137
lab L150
	efail
lab L137
	line	2
	colm	5
	synt	endcase
	unmark
lab L136
	mark	L155
	pnull
	var	16
	var	0
	line	57
	colm	14
	synt	any
	asgn
	unmark
lab L155
	pnull
	var	0
	var	21
	line	58
	colm	12
	synt	any
	invoke	0
	line	58
	colm	3
	synt	any
	asgn
	unmark
lab L135
	mark	L156
lab L157
	line	334
	colm	21
	synt	while
	mark0
	pnull
	var	8
	int	0
	line	334
	colm	36
	synt	any
	numgt
	unmark
	mark	L157
	mark	L160
	line	2
	colm	5
	synt	case
	mark0
	var	16
	eret
	mark	L162
	ccase
	pnull
	int	1
	line	4
	colm	1
	synt	any
	neg
	line	4
	colm	3
	synt	any
	eqv
	unmark
	pop
	mark	L163
	pnull
	var	19
	var	6
	line	6
	colm	8
	synt	any
	asgn
	unmark
lab L163
	mark	L164
	pnull
	var	31
	var	7
	line	7
	colm	9
	synt	any
	asgn
	unmark
lab L164
	pnull
	var	11
	int	1
	line	8
	colm	10
	synt	any
	asgn
	goto	L161
lab L162
	mark	L165
	ccase
	str	3
	line	11
	colm	5
	synt	any
	eqv
	unmark
	pop
	mark	L166
	pnull
	var	19
	dup
	int	1
	line	13
	colm	8
	synt	any
	plus
	asgn
	unmark
lab L166
	mark	L167
	pnull
	var	20
	dup
	int	1
	line	14
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L167
	line	15
	colm	2
	synt	if
	mark0
	pnull
	var	0
	str	4
	line	15
	colm	8
	synt	any
	lexeq
	pop
	var	22
	unmark
	mark	L168
	var	23
	line	16
	colm	11
	synt	any
	invoke	0
	unmark
lab L168
	mark	L169
	pnull
	var	0
	str	3
	line	17
	colm	3
	synt	any
	numeq
	unmark
lab L169
	mark	L170
	pnull
	var	19
	dup
	int	1
	line	19
	colm	8
	synt	any
	minus
	asgn
	unmark
lab L170
	pnull
	var	20
	dup
	int	1
	line	20
	colm	9
	synt	any
	minus
	asgn
	line	15
	colm	2
	synt	endif
	goto	L161
lab L165
	mark	L171
	ccase
	str	26
	line	24
	colm	4
	synt	any
	eqv
	unmark
	pop
	line	26
	colm	1
	synt	if
	mark0
	pnull
	var	0
	str	27
	line	26
	colm	7
	synt	any
	lexeq
	unmark
	pnull
	var	8
	dup
	int	1
	line	28
	colm	9
	synt	any
	minus
	asgn
	line	26
	colm	1
	synt	endif
	goto	L161
lab L171
	mark	L172
	ccase
	str	25
	line	31
	colm	8
	synt	any
	eqv
	unmark
	pop
	line	33
	colm	1
	synt	if
	mark0
	pnull
	var	0
	str	26
	line	33
	colm	7
	synt	any
	lexeq
	unmark
	mark	L173
	pnull
	var	8
	dup
	int	1
	line	35
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L173
	pnull
	var	0
	var	21
	line	36
	colm	11
	synt	any
	invoke	0
	line	36
	colm	2
	synt	any
	asgn
	line	33
	colm	1
	synt	endif
	goto	L161
lab L172
	mark	L174
	ccase
	str	28
	line	39
	colm	4
	synt	any
	eqv
	unmark
	pop
	line	41
	colm	1
	synt	if
	mark0
	pnull
	var	0
	str	28
	line	41
	colm	7
	synt	any
	lexeq
	unmark
	mark	L175
	pnull
	var	0
	var	21
	line	43
	colm	12
	synt	any
	invoke	0
	line	43
	colm	3
	synt	any
	asgn
	unmark
lab L175
	line	44
	colm	1
	synt	case
	mark0
	var	0
	eret
	mark	L177
	ccase
	str	29
	line	45
	colm	4
	synt	any
	eqv
	unmark
	pop
	pnull
	var	32
	dup
	int	1
	line	46
	colm	9
	synt	any
	plus
	asgn
	goto	L176
lab L177
	mark	L178
	ccase
	str	30
	line	48
	colm	4
	synt	any
	eqv
	unmark
	pop
	line	49
	colm	1
	synt	if
	mark0
	var	32
	unmark
	pnull
	var	32
	dup
	int	1
	line	50
	colm	9
	synt	any
	minus
	asgn
	line	49
	colm	1
	synt	endif
	goto	L176
lab L178
	efail
lab L176
	line	44
	colm	1
	synt	endcase
	line	41
	colm	1
	synt	endif
	goto	L161
lab L174
	efail
lab L161
	line	2
	colm	5
	synt	endcase
	unmark
lab L160
	mark	L179
	pnull
	var	16
	var	0
	line	57
	colm	14
	synt	any
	asgn
	unmark
lab L179
	pnull
	var	0
	var	21
	line	58
	colm	12
	synt	any
	invoke	0
	line	58
	colm	3
	synt	any
	asgn
lab L158
	unmark
	goto	L157
lab L159
	line	334
	colm	21
	synt	endwhile
	unmark
lab L156
	mark	L180
	line	336
	colm	21
	synt	if
	mark0
	pnull
	var	11
	int	1
	line	336
	colm	33
	synt	any
	numeq
	unmark
	unmark
	unmark
	unmark
	goto	L10
	line	336
	colm	21
	synt	endif
	unmark
lab L180
	mark	L181
	pnull
	var	16
	var	0
	line	340
	colm	30
	synt	any
	asgn
	unmark
lab L181
	unmark
	unmark
	goto	L10
	line	323
	colm	17
	synt	endif
	unmark
lab L130
	mark	L182
	pnull
	var	3
	var	33
	var	2
	line	344
	colm	30
	synt	any
	invoke	1
	line	344
	colm	24
	synt	any
	asgn
	unmark
lab L182
	mark	L183
	var	34
	pnull
	pnull
	pnull
	pnull
	pnull
	str	31
	var	2
	line	345
	colm	39
	synt	any
	cat
	str	32
	line	345
	colm	44
	synt	any
	cat
	var	0
	line	345
	colm	55
	synt	any
	cat
	str	33
	line	345
	colm	60
	synt	any
	cat
	var	3
	line	345
	colm	76
	synt	any
	cat
	line	345
	colm	27
	synt	any
	invoke	1
	unmark
lab L183
	mark	L184
	pnull
	var	9
	str	34
	line	346
	colm	23
	synt	any
	asgn
	unmark
lab L184
	mark	L185
	pnull
	var	10
	var	2
	line	347
	colm	25
	synt	any
	asgn
	unmark
lab L185
	mark	L186
	pnull
	var	16
	var	0
	line	348
	colm	26
	synt	any
	asgn
	unmark
lab L186
	mark	L187
	pnull
	var	14
	dup
	int	1
	line	349
	colm	27
	synt	any
	plus
	asgn
	unmark
lab L187
	mark	L188
	pnull
	var	35
	dup
	int	1
	line	350
	colm	31
	synt	any
	plus
	asgn
	unmark
lab L188
	mark	L189
	var	15
	var	2
	var	9
	var	3
	var	10
	line	351
	colm	29
	synt	any
	invoke	4
	unmark
lab L189
	mark	L190
	var	3
	line	352
	colm	17
	synt	any
	pret
lab L190
	synt	any
	pfail
	goto	L30
lab L126
	mark	L191
	ccase
	int	6
	line	355
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L192
	pnull
	var	2
	dup
	var	0
	line	356
	colm	15
	synt	any
	cat
	asgn
	unmark
lab L192
	mark	L193
	pnull
	var	0
	var	21
	line	357
	colm	24
	synt	any
	invoke	0
	line	357
	colm	15
	synt	any
	asgn
	unmark
lab L193
	mark	L194
	pnull
	var	1
	var	17
	var	0
	line	358
	colm	25
	synt	any
	invoke	1
	line	358
	colm	16
	synt	any
	asgn
	unmark
lab L194
	mark	L195
lab L196
	line	359
	colm	13
	synt	while
	mark0
	mark	L199
	pnull
	var	1
	int	6
	line	359
	colm	23
	synt	any
	lexeq
	line	359
	colm	28
	synt	any
	esusp
	goto	L200
lab L199
	pnull
	var	1
	int	5
	line	359
	colm	33
	synt	any
	lexeq
lab L200
	unmark
	mark	L196
	mark	L201
	pnull
	var	2
	dup
	var	0
	line	362
	colm	23
	synt	any
	cat
	asgn
	unmark
lab L201
	mark	L202
	pnull
	var	0
	var	21
	line	363
	colm	32
	synt	any
	invoke	0
	line	363
	colm	23
	synt	any
	asgn
	unmark
lab L202
	pnull
	var	1
	var	17
	var	0
	line	364
	colm	33
	synt	any
	invoke	1
	line	364
	colm	24
	synt	any
	asgn
lab L197
	unmark
	goto	L196
lab L198
	line	359
	colm	13
	synt	endwhile
	unmark
lab L195
	mark	L203
	pnull
	var	3
	int	35
	line	366
	colm	20
	synt	any
	asgn
	unmark
lab L203
	mark	L204
	pnull
	var	18
	var	2
	line	369
	colm	20
	synt	any
	asgn
	unmark
lab L204
	mark	L205
	pnull
	var	9
	str	36
	line	370
	colm	19
	synt	any
	asgn
	unmark
lab L205
	mark	L206
	pnull
	var	10
	var	2
	line	371
	colm	21
	synt	any
	asgn
	unmark
lab L206
	mark	L207
	pnull
	var	16
	var	0
	line	372
	colm	22
	synt	any
	asgn
	unmark
lab L207
	mark	L208
	pnull
	var	14
	dup
	int	1
	line	373
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L208
	mark	L209
	pnull
	var	36
	dup
	int	1
	line	374
	colm	25
	synt	any
	plus
	asgn
	unmark
lab L209
	mark	L210
	var	15
	var	2
	var	9
	var	3
	var	10
	line	375
	colm	25
	synt	any
	invoke	4
	unmark
lab L210
	mark	L211
	var	3
	line	376
	colm	13
	synt	any
	pret
lab L211
	synt	any
	pfail
	goto	L30
lab L191
	mark	L212
	ccase
	int	37
	line	378
	colm	10
	synt	any
	eqv
	unmark
	pop
	mark	L213
	pnull
	var	2
	dup
	var	0
	line	380
	colm	15
	synt	any
	cat
	asgn
	unmark
lab L213
	mark	L214
	pnull
	var	0
	var	21
	line	381
	colm	24
	synt	any
	invoke	0
	line	381
	colm	15
	synt	any
	asgn
	unmark
lab L214
	mark	L215
	pnull
	var	1
	var	17
	var	0
	line	382
	colm	25
	synt	any
	invoke	1
	line	382
	colm	16
	synt	any
	asgn
	unmark
lab L215
	mark	L216
lab L217
	line	383
	colm	13
	synt	while
	mark0
	pnull
	var	1
	int	37
	line	383
	colm	24
	synt	any
	lexeq
	unmark
	mark	L217
	mark	L220
	pnull
	var	2
	dup
	var	0
	line	385
	colm	19
	synt	any
	cat
	asgn
	unmark
lab L220
	mark	L221
	pnull
	var	0
	var	21
	line	386
	colm	28
	synt	any
	invoke	0
	line	386
	colm	19
	synt	any
	asgn
	unmark
lab L221
	pnull
	var	1
	var	17
	var	0
	line	387
	colm	29
	synt	any
	invoke	1
	line	387
	colm	20
	synt	any
	asgn
lab L218
	unmark
	goto	L217
lab L219
	line	383
	colm	13
	synt	endwhile
	unmark
lab L216
	mark	L222
	pnull
	var	24
	pnull
	var	2
	line	389
	colm	26
	synt	any
	size
	line	389
	colm	23
	synt	any
	asgn
	unmark
lab L222
	mark	L223
	pnull
	var	3
	var	37
	var	2
	int	38
	line	390
	colm	32
	synt	any
	invoke	2
	line	390
	colm	20
	synt	any
	asgn
	unmark
lab L223
	mark	L224
	pnull
	var	16
	var	0
	line	391
	colm	22
	synt	any
	asgn
	unmark
lab L224
	mark	L225
	pnull
	var	14
	dup
	int	1
	line	392
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L225
	mark	L226
	pnull
	var	9
	str	39
	line	393
	colm	19
	synt	any
	asgn
	unmark
lab L226
	mark	L227
	line	394
	colm	13
	synt	ifelse
	mark	L228
	pnull
	var	3
	int	38
	line	394
	colm	23
	synt	any
	numne
	unmark
	pnull
	var	10
	str	40
	line	394
	colm	43
	synt	any
	asgn
	goto	L229
lab L228
	pnull
	var	10
	str	41
	line	395
	colm	26
	synt	any
	asgn
lab L229
	line	394
	colm	13
	synt	endifelse
	unmark
lab L227
	mark	L230
	var	15
	var	2
	var	9
	var	3
	var	10
	line	396
	colm	25
	synt	any
	invoke	4
	unmark
lab L230
	mark	L231
	var	3
	line	397
	colm	13
	synt	any
	pret
lab L231
	synt	any
	pfail
	goto	L30
lab L212
	mark	L232
	ccase
	pnull
	int	1
	line	399
	colm	5
	synt	any
	neg
	line	399
	colm	7
	synt	any
	eqv
	unmark
	pop
	mark	L233
	pnull
	var	16
	str	3
	line	401
	colm	22
	synt	any
	asgn
	unmark
lab L233
	mark	L234
	var	15
	var	2
	str	42
	pnull
	int	1
	line	404
	colm	34
	synt	any
	neg
	str	42
	line	404
	colm	25
	synt	any
	invoke	4
	unmark
lab L234
	mark	L235
	pnull
	int	1
	line	405
	colm	20
	synt	any
	neg
	line	405
	colm	13
	synt	any
	pret
lab L235
	synt	any
	pfail
	goto	L30
lab L232
	mark	L236
	ccase
	int	0
	line	407
	colm	6
	synt	any
	eqv
	unmark
	pop
	mark	L237
	pnull
	var	0
	var	21
	line	409
	colm	24
	synt	any
	invoke	0
	line	409
	colm	15
	synt	any
	asgn
	unmark
lab L237
	mark	L238
	pnull
	var	16
	var	0
	line	410
	colm	22
	synt	any
	asgn
	unmark
lab L238
	unmark
	goto	L10
	goto	L30
lab L236
	efail
lab L30
	line	184
	colm	5
	synt	endcase
	unmark
lab L29
	pnull
	var	16
	var	0
	line	416
	colm	14
	synt	any
	asgn
lab L10
	unmark
	goto	L9
lab L11
	line	159
	colm	5
	synt	endwhile
	unmark
lab L8
	mark	L239
	pnull
	var	14
	dup
	int	1
	line	418
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L239
	mark	L240
	var	15
	var	2
	var	9
	var	3
	var	10
	line	419
	colm	17
	synt	any
	invoke	4
	unmark
lab L240
	mark	L241
	mark	L242
	var	3
	line	420
	colm	5
	synt	any
	pret
lab L242
	synt	any
	pfail
	unmark
lab L241
	pnull
	line	422
	colm	1
	synt	any
	pfail
	end
proc rdposition
	declend
	line	430
	colm	15
	synt	any
	line	473
	colm	1
	synt	any
	pfail
	end
proc yyunlex
	local	0,001000,tok
	local	1,000000,stktop
	local	2,000000,scanstk
	con	0,002000,1,1
	declend
	line	534
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	dup
	int	0
	line	535
	colm	12
	synt	any
	plus
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	var	1
	line	536
	colm	12
	synt	any
	subsc
	var	0
	line	536
	colm	21
	synt	any
	numeq
	unmark
lab L2
	pnull
	line	537
	colm	2
	synt	any
	pfail
	end
proc cclass
	local	0,001000,c
	local	1,000020,it
	local	2,000000,yyinfo
	local	3,000000,write
	local	4,000000,ccode_file
	local	5,000000,cctab
	con	0,010000,12,143,143,154,141,163,163,061,040,143,040,075,040
	con	1,010000,1,012
	con	2,010000,1,011
	con	3,010000,12,143,143,154,141,163,163,040,127,110,124,103,103
	con	4,010000,4,143,040,075,040
	con	5,010000,9,040,143,154,141,163,163,040,075,040
	con	6,002000,1,1
	con	7,010000,12,143,143,154,141,163,163,040,105,117,106,103,103
	con	8,010000,11,143,143,154,141,163,163,040,143,040,075,040
	con	9,010000,11,143,143,164,141,142,133,143,135,040,075,040
	declend
	line	540
	colm	12
	synt	any
	mark	L1
	var	2
	pnull
	str	0
	var	0
	line	542
	colm	27
	synt	any
	cat
	line	542
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	543
	colm	5
	synt	if
	mark0
	mark	L3
	pnull
	var	0
	str	1
	line	543
	colm	11
	synt	any
	lexeq
	line	543
	colm	18
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	0
	str	2
	line	543
	colm	22
	synt	any
	lexeq
lab L4
	unmark
	mark	L5
	var	2
	str	3
	line	545
	colm	19
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	var	3
	var	4
	pnull
	pnull
	pnull
	str	4
	var	0
	line	546
	colm	38
	synt	any
	cat
	str	5
	line	546
	colm	43
	synt	any
	cat
	int	6
	line	546
	colm	58
	synt	any
	cat
	line	546
	colm	18
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	int	6
	line	547
	colm	13
	synt	any
	pret
lab L7
	synt	any
	pfail
	line	543
	colm	5
	synt	endif
	unmark
lab L2
	mark	L8
	line	549
	colm	5
	synt	if
	mark0
	pnull
	var	0
	pnull
	int	6
	line	549
	colm	14
	synt	any
	neg
	line	549
	colm	11
	synt	any
	lexeq
	unmark
	mark	L9
	var	2
	str	7
	line	551
	colm	19
	synt	any
	invoke	1
	unmark
lab L9
	mark	L10
	var	3
	var	4
	pnull
	pnull
	pnull
	str	4
	var	0
	line	552
	colm	38
	synt	any
	cat
	str	5
	line	552
	colm	43
	synt	any
	cat
	pnull
	int	6
	line	552
	colm	61
	synt	any
	neg
	line	552
	colm	58
	synt	any
	cat
	line	552
	colm	18
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	pnull
	int	6
	line	553
	colm	20
	synt	any
	neg
	line	553
	colm	13
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	549
	colm	5
	synt	endif
	unmark
lab L8
	mark	L12
	pnull
	var	1
	pnull
	var	5
	var	0
	line	555
	colm	16
	synt	any
	subsc
	line	555
	colm	8
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	var	3
	var	4
	pnull
	pnull
	pnull
	str	4
	var	0
	line	556
	colm	30
	synt	any
	cat
	str	5
	line	556
	colm	35
	synt	any
	cat
	var	1
	line	556
	colm	50
	synt	any
	cat
	line	556
	colm	10
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	var	2
	pnull
	pnull
	pnull
	str	8
	var	0
	line	557
	colm	26
	synt	any
	cat
	str	9
	line	557
	colm	31
	synt	any
	cat
	var	1
	line	557
	colm	48
	synt	any
	cat
	line	557
	colm	11
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	mark	L16
	var	1
	line	559
	colm	5
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	560
	colm	2
	synt	any
	pfail
	end
proc getchr
	local	0,000020,ch
	local	1,000020,gotit
	local	2,000000,yyinfo
	local	3,000000,linebuf
	local	4,000000,read
	local	5,000000,infile
	local	6,000000,line_cnt
	local	7,000000,char_cnt
	con	0,002000,1,1
	con	1,010000,17,147,145,164,143,150,162,040,154,151,156,145,142,165,146,040,075,040
	con	2,002000,1,0
	con	3,010000,1,040
	con	4,010000,20,151,156,040,167,150,151,154,145,040,052,154,151,156,145,142,165,146,040,075,040
	con	5,010000,22,040,141,146,164,145,162,040,162,145,141,144,040,154,151,156,145,142,165,146,040,075,040
	con	6,002000,1,2
	con	7,010000,5,143,150,040,075,040
	con	8,010000,27,163,143,141,156,040,147,145,164,143,150,162,040,162,145,141,144,040,154,151,156,145,142,165,146,040,075,040
	con	9,010000,27,163,143,141,156,040,147,145,164,143,150,162,040,146,162,157,155,040,154,151,156,145,142,165,146,040,075,040
	declend
	line	567
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	int	0
	line	569
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	2
	pnull
	str	1
	var	3
	line	570
	colm	32
	synt	any
	cat
	line	570
	colm	11
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
lab L4
	line	571
	colm	5
	synt	while
	mark0
	pnull
	pnull
	var	3
	line	571
	colm	13
	synt	any
	size
	int	2
	line	571
	colm	22
	synt	any
	numeq
	unmark
	mark	L4
	line	572
	colm	9
	synt	ifelse
	mark	L7
	pnull
	pnull
	var	3
	line	572
	colm	12
	synt	any
	nonnull
	var	4
	var	5
	line	572
	colm	29
	synt	any
	invoke	1
	line	572
	colm	21
	synt	any
	asgn
	unmark
	mark	L9
	pnull
	var	3
	pnull
	str	3
	var	3
	line	573
	colm	28
	synt	any
	cat
	line	573
	colm	21
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	6
	dup
	int	0
	line	574
	colm	22
	synt	any
	plus
	asgn
	unmark
lab L10
	pnull
	var	1
	int	0
	line	575
	colm	19
	synt	any
	asgn
	goto	L8
lab L7
	mark	L11
	pnull
	var	1
	int	2
	line	578
	colm	19
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	int	0
	line	579
	colm	20
	synt	any
	neg
	line	579
	colm	13
	synt	any
	pret
lab L12
	synt	any
	pfail
lab L8
	line	572
	colm	9
	synt	endifelse
lab L5
	unmark
	goto	L4
lab L6
	line	571
	colm	5
	synt	endwhile
	unmark
lab L3
	mark	L13
	line	582
	colm	5
	synt	if
	mark0
	pnull
	var	1
	int	0
	line	582
	colm	15
	synt	any
	numeq
	unmark
	mark	L14
	var	2
	pnull
	str	4
	pnull
	var	3
	line	583
	colm	42
	synt	any
	size
	line	583
	colm	39
	synt	any
	cat
	line	583
	colm	15
	synt	any
	invoke	1
	unmark
lab L14
	mark	L15
	var	2
	pnull
	str	5
	var	3
	line	584
	colm	41
	synt	any
	cat
	line	584
	colm	15
	synt	any
	invoke	1
	unmark
lab L15
	mark	L16
	pnull
	var	0
	pnull
	var	3
	int	0
	int	6
	line	585
	colm	24
	synt	any
	synt	any
	sect
	line	585
	colm	12
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	var	2
	pnull
	str	7
	var	0
	line	586
	colm	24
	synt	any
	cat
	line	586
	colm	15
	synt	any
	invoke	1
	unmark
lab L17
	mark	L18
	pnull
	var	7
	dup
	int	0
	line	587
	colm	18
	synt	any
	plus
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	3
	pnull
	var	3
	int	6
	int	2
	line	588
	colm	29
	synt	any
	synt	any
	sect
	line	588
	colm	17
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	var	2
	pnull
	pnull
	pnull
	str	8
	var	3
	line	589
	colm	46
	synt	any
	cat
	str	7
	line	589
	colm	57
	synt	any
	cat
	var	0
	line	589
	colm	68
	synt	any
	cat
	line	589
	colm	15
	synt	any
	invoke	1
	unmark
lab L20
	mark	L21
	var	0
	line	590
	colm	9
	synt	any
	pret
lab L21
	synt	any
	pfail
	line	582
	colm	5
	synt	endif
	unmark
lab L13
	mark	L22
	pnull
	var	0
	pnull
	var	3
	int	0
	int	6
	line	592
	colm	20
	synt	any
	synt	any
	sect
	line	592
	colm	8
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	var	7
	dup
	int	0
	line	593
	colm	14
	synt	any
	plus
	asgn
	unmark
lab L23
	mark	L24
	pnull
	var	3
	pnull
	var	3
	int	6
	int	2
	line	594
	colm	25
	synt	any
	synt	any
	sect
	line	594
	colm	13
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	var	2
	pnull
	pnull
	pnull
	str	9
	var	3
	line	595
	colm	42
	synt	any
	cat
	str	7
	line	595
	colm	53
	synt	any
	cat
	var	0
	line	595
	colm	64
	synt	any
	cat
	line	595
	colm	11
	synt	any
	invoke	1
	unmark
lab L25
	mark	L26
	mark	L27
	var	0
	line	596
	colm	5
	synt	any
	pret
lab L27
	synt	any
	pfail
	unmark
lab L26
	pnull
	line	597
	colm	2
	synt	any
	pfail
	end
proc reschk_id
	local	0,001000,p
	local	1,001000,dflt
	local	2,000020,it
	local	3,000000,yyinfo
	local	4,000000,restab
	local	5,000000,reserved_id_cnt
	local	6,000000,defined_id_cnt
	local	7,000000,yylval
	local	8,000000,stt_enter
	local	9,000000,yydescr
	con	0,010000,14,162,145,163,143,150,153,137,151,144,040,160,040,075,040
	con	1,002000,1,0
	con	2,002000,1,1
	declend
	line	600
	colm	12
	synt	any
	mark	L1
	var	3
	pnull
	str	0
	var	0
	line	602
	colm	29
	synt	any
	cat
	line	602
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	603
	colm	5
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	2
	pnull
	var	4
	var	0
	line	603
	colm	22
	synt	any
	subsc
	line	603
	colm	13
	synt	any
	asgn
	int	1
	line	603
	colm	27
	synt	any
	numgt
	unmark
	mark	L5
	pnull
	var	5
	dup
	int	2
	line	605
	colm	29
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	var	2
	line	606
	colm	13
	synt	any
	pret
lab L6
	synt	any
	pfail
	goto	L4
lab L3
	mark	L7
	pnull
	var	6
	dup
	int	2
	line	610
	colm	28
	synt	any
	plus
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	7
	var	8
	var	0
	pnull
	var	0
	line	611
	colm	35
	synt	any
	size
	line	611
	colm	32
	synt	any
	invoke	2
	line	611
	colm	20
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	9
	var	7
	line	612
	colm	21
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	1
	line	613
	colm	13
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L4
	line	603
	colm	5
	synt	endifelse
	unmark
lab L2
	pnull
	line	615
	colm	1
	synt	any
	pfail
	end
proc reschk_op
	local	0,001000,p
	local	1,001000,dflt
	local	2,000020,it
	local	3,000000,yyinfo
	local	4,000000,restab
	local	5,000000,reserved_op_cnt
	local	6,000000,defined_op_cnt
	local	7,000000,yylval
	local	8,000000,stt_enter
	local	9,000000,yydescr
	con	0,010000,14,162,145,163,143,150,153,137,157,160,040,160,040,075,040
	con	1,002000,1,0
	con	2,002000,1,1
	declend
	line	616
	colm	12
	synt	any
	mark	L1
	var	3
	pnull
	str	0
	var	0
	line	618
	colm	29
	synt	any
	cat
	line	618
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	line	619
	colm	5
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	2
	pnull
	var	4
	var	0
	line	619
	colm	22
	synt	any
	subsc
	line	619
	colm	13
	synt	any
	asgn
	int	1
	line	619
	colm	27
	synt	any
	numgt
	unmark
	mark	L5
	pnull
	var	5
	dup
	int	2
	line	621
	colm	29
	synt	any
	plus
	asgn
	unmark
lab L5
	mark	L6
	var	2
	line	622
	colm	13
	synt	any
	pret
lab L6
	synt	any
	pfail
	goto	L4
lab L3
	mark	L7
	pnull
	var	6
	dup
	int	2
	line	626
	colm	28
	synt	any
	plus
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	7
	var	8
	var	0
	pnull
	var	0
	line	627
	colm	35
	synt	any
	size
	line	627
	colm	32
	synt	any
	invoke	2
	line	627
	colm	20
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	9
	var	7
	line	628
	colm	21
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	1
	line	629
	colm	13
	synt	any
	pret
lab L10
	synt	any
	pfail
lab L4
	line	619
	colm	5
	synt	endifelse
	unmark
lab L2
	pnull
	line	631
	colm	1
	synt	any
	pfail
	end
proc rpt_progress
	local	0,001000,p
	local	1,001000,yycat
	local	2,001000,outtok
	local	3,001000,yydescr
	local	4,000020,sz
	local	5,000020,it
	local	6,000020,sz1
	local	7,000020,sz2
	local	8,000020,sz3
	local	9,000020,it5
	local	10,000020,prog_part1
	local	11,000000,repl
	local	12,000000,write
	local	13,000000,progress
	local	14,000000,string
	local	15,000000,yylval
	con	0,002000,2,26
	con	1,010000,5,164,157,153,145,156
	con	2,002000,1,2
	con	3,002000,2,18
	con	4,010000,7,171,171,144,145,163,143,162
	con	5,010000,5,171,171,143,141,164
	con	6,002000,1,8
	con	7,010000,6,157,165,164,164,157,153
	con	8,010000,1,040
	con	9,010000,6,171,171,154,166,141,154
	declend
	line	689
	colm	12
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	4
	pnull
	int	0
	pnull
	str	1
	line	692
	colm	20
	synt	any
	size
	line	692
	colm	18
	synt	any
	minus
	line	692
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	693
	colm	9
	synt	if
	mark0
	pnull
	var	4
	int	2
	line	693
	colm	16
	synt	any
	numlt
	unmark
	pnull
	var	4
	int	2
	line	693
	colm	29
	synt	any
	asgn
	line	693
	colm	9
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	var	6
	pnull
	int	3
	pnull
	str	4
	line	694
	colm	21
	synt	any
	size
	line	694
	colm	19
	synt	any
	minus
	line	694
	colm	13
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	695
	colm	9
	synt	if
	mark0
	pnull
	var	6
	int	2
	line	695
	colm	17
	synt	any
	numlt
	unmark
	pnull
	var	6
	int	2
	line	695
	colm	31
	synt	any
	asgn
	line	695
	colm	9
	synt	endif
	unmark
lab L7
	mark	L8
	pnull
	var	7
	pnull
	int	3
	pnull
	str	5
	line	696
	colm	21
	synt	any
	size
	line	696
	colm	19
	synt	any
	minus
	line	696
	colm	13
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	697
	colm	9
	synt	if
	mark0
	pnull
	var	7
	int	2
	line	697
	colm	17
	synt	any
	numlt
	unmark
	pnull
	var	7
	int	2
	line	697
	colm	31
	synt	any
	asgn
	line	697
	colm	9
	synt	endif
	unmark
lab L9
	mark	L10
	pnull
	var	8
	pnull
	int	6
	pnull
	str	7
	line	698
	colm	20
	synt	any
	size
	line	698
	colm	18
	synt	any
	minus
	line	698
	colm	13
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	699
	colm	9
	synt	if
	mark0
	pnull
	var	8
	int	2
	line	699
	colm	17
	synt	any
	numlt
	unmark
	pnull
	var	8
	int	2
	line	699
	colm	31
	synt	any
	asgn
	line	699
	colm	9
	synt	endif
	unmark
lab L11
	mark	L12
	pnull
	var	10
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	str	1
	var	11
	str	8
	var	4
	line	700
	colm	38
	synt	any
	invoke	2
	line	700
	colm	31
	synt	any
	cat
	str	4
	line	700
	colm	47
	synt	any
	cat
	var	11
	str	8
	var	6
	line	700
	colm	67
	synt	any
	invoke	2
	line	700
	colm	60
	synt	any
	cat
	str	5
	line	700
	colm	77
	synt	any
	cat
	var	11
	str	8
	var	7
	line	700
	colm	95
	synt	any
	invoke	2
	line	700
	colm	88
	synt	any
	cat
	str	7
	line	700
	colm	105
	synt	any
	cat
	var	11
	str	8
	var	8
	line	700
	colm	125
	synt	any
	invoke	2
	line	700
	colm	118
	synt	any
	cat
	str	9
	line	700
	colm	135
	synt	any
	cat
	line	700
	colm	20
	synt	any
	asgn
	unmark
lab L12
	var	12
	var	13
	var	10
	line	701
	colm	14
	synt	any
	invoke	2
	unmark
lab L2
	einit	L1
lab L3
	mark	L13
	pnull
	var	4
	pnull
	int	0
	pnull
	var	0
	line	703
	colm	16
	synt	any
	size
	line	703
	colm	14
	synt	any
	minus
	line	703
	colm	8
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	line	704
	colm	5
	synt	if
	mark0
	pnull
	var	4
	int	2
	line	704
	colm	12
	synt	any
	numlt
	unmark
	pnull
	var	4
	int	2
	line	704
	colm	25
	synt	any
	asgn
	line	704
	colm	5
	synt	endif
	unmark
lab L14
	mark	L15
	pnull
	var	5
	var	14
	var	3
	line	705
	colm	17
	synt	any
	invoke	1
	line	705
	colm	8
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	6
	pnull
	int	3
	pnull
	var	5
	line	706
	colm	17
	synt	any
	size
	line	706
	colm	15
	synt	any
	minus
	line	706
	colm	9
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	line	707
	colm	5
	synt	if
	mark0
	pnull
	var	6
	int	2
	line	707
	colm	13
	synt	any
	numlt
	unmark
	pnull
	var	6
	int	2
	line	707
	colm	27
	synt	any
	asgn
	line	707
	colm	5
	synt	endif
	unmark
lab L17
	mark	L18
	pnull
	var	7
	pnull
	int	3
	pnull
	var	1
	line	708
	colm	17
	synt	any
	size
	line	708
	colm	15
	synt	any
	minus
	line	708
	colm	9
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	line	709
	colm	5
	synt	if
	mark0
	pnull
	var	7
	int	2
	line	709
	colm	13
	synt	any
	numlt
	unmark
	pnull
	var	7
	int	2
	line	709
	colm	27
	synt	any
	asgn
	line	709
	colm	5
	synt	endif
	unmark
lab L19
	mark	L20
	pnull
	var	8
	pnull
	int	6
	pnull
	var	2
	line	710
	colm	16
	synt	any
	size
	line	710
	colm	14
	synt	any
	minus
	line	710
	colm	9
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	line	711
	colm	5
	synt	if
	mark0
	pnull
	var	8
	int	2
	line	711
	colm	13
	synt	any
	numlt
	unmark
	pnull
	var	8
	int	2
	line	711
	colm	27
	synt	any
	asgn
	line	711
	colm	5
	synt	endif
	unmark
lab L21
	mark	L22
	pnull
	var	9
	var	14
	var	15
	line	712
	colm	18
	synt	any
	invoke	1
	line	712
	colm	9
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	var	10
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	var	11
	str	8
	var	4
	line	714
	colm	28
	synt	any
	invoke	2
	line	714
	colm	21
	synt	any
	cat
	var	3
	line	714
	colm	37
	synt	any
	cat
	var	11
	str	8
	var	6
	line	714
	colm	55
	synt	any
	invoke	2
	line	714
	colm	48
	synt	any
	cat
	var	1
	line	714
	colm	65
	synt	any
	cat
	var	11
	str	8
	var	7
	line	714
	colm	81
	synt	any
	invoke	2
	line	714
	colm	74
	synt	any
	cat
	var	2
	line	714
	colm	91
	synt	any
	cat
	var	11
	str	8
	var	8
	line	714
	colm	109
	synt	any
	invoke	2
	line	714
	colm	102
	synt	any
	cat
	var	9
	line	714
	colm	119
	synt	any
	cat
	line	714
	colm	16
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	var	12
	var	13
	var	10
	line	715
	colm	10
	synt	any
	invoke	2
	unmark
lab L24
	pnull
	line	716
	colm	1
	synt	any
	pfail
	end
