PDP-10 Archive: 43,50337/08/simrpa.unv from decuslib10-05

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/08/simrpa.unv

There are 6 other files named simrpa.unv in the archive. Click here to see a list.

x
,G@P C@t{@ C@tk{@  C@u@  C@un@ C@v)7@$CO\Z FXDGeK{ > srSETZM	YDSCSW(XLOW),|P G,i9 >`svAOS	YDSCSW(XLOW)knXP GtV ? szSOS	YDSCSW(XLOW)kKVP G~(T ?`s~HRROS	YDSCSW(XLOW)NXP HMy .y%
	IFG <IO/DF-400K>,<EXTERN	/8IODF%S,IODF%I,IOD/XF%M,IODF%Y,IODF%D/x>
IFNB <IOFI>,<
	IF1,<IFNDEF .IO08FI,<EXTERN .IOFI>0X>
	Z	.IOFI
>
	0xIFB <IOFI>,<Z>
	1BYTE	(1)(3)QIOFI(181)1(13)0(18)IODF%1XS	;[63]
	Z	IODF%1xI		
	XWD	-2,1
.2IODF::	XWD	QDFLNG28,IODF%M	
	XWD	QF2XIEBL,IODF%Y	
	XW2xD	,QFIDLE		
	BYT3E	(1)1(17)0(18)IO38DF%D	
	IFNB <Z>,3X<
	Z	
	>
IFG <3xIODF-400K>,<
IFN4 <<.-.IODF>-<IODF48%E-IODF>>,<CFAIL 4XINCONSIST. PROT. FOR IODF>
>PHMyT 9?
	IFG <IOXFI-400K>,<EXTERN	xIOFI%S,IOFI%I,IOFI%M,IOFI%Y,IOFI%D8>
IFNB <>,<
	IFX1,<IFNDEF .,<EXTExRN .>>
	Z	.
>
	IFB <>,<Z>
	BYT8E	(1)(3)QIOFI(1)1X(13)0(18)IOFI%S	;x[63]
	Z	IOFI%I		
	XWD	-2,
.IOFI8::	XWD	QFILNG,IOFXI%M	
	XWD	QFIEBLx,IOFI%Y	
	XWD	1,QFIDLE		
	BYTE	(81)1(17)0(18)IOFI%XD	
	IFNB <PTX>,<x
	PTX	
	>
IFG <IOFI-400K>,<
IF8N <<.-.IOFI>-<IOFXI%E-IOFI>>,<CFAILx INCONSIST. PROT. FOR IOFI>
>hHMz7 
	IFG4<IO,<EXTERN	>
IFNB <IOFI>,<
	IF1,<IFNDEF .IOXFI,<EXTERN .IOFI>x>
	Z	.IOFI
>
	IFB <IOFI>,<Z>
	8BYTE	(1)(3)QIOFI(X1)1(13)0(18)IOIN%xS	;[63]
	Z	IOIN%I		
	XWD	-2,1
.8IOIN::	XWD	QIFLNGX,IOIN%M	
	XWD	QFxIEBL,IOIN%Y	
	XWD	,QFIDLE		
	BYT8E	(1)1(17)0(18)IOXIN%D	
	IFNB <Z>,x<
	Z	
	>
IFG <IOIN-400K>,<
IFN8 <<.-.IOIN>-<IOINX%E-IOIN>>,<CFAIL xINCONSIST. PROT. FOR IOIN>
>HM{z 9q
	IFG <IOXOU-400K>,<EXTERN	xIOOU%S,IOOU%I,IOOU%M,IOOU%Y,IOOU%D8>
IFNB <IOFI>,<
	IF1,<IFNDEF .IOxFI,<EXTERN .IOFI>>
	Z	.IOFI
>
	8IFB <IOFI>,<Z>
	XBYTE	(1)(3)QIOFI(x1)1(13)0(18)IOOU%S	;[63]
	Z	IOOU%8I		
	XWD	-2,1
.XIOOU::	XWD	QOFLNGx,IOOU%M	
	XWD	QFIEBL,IOOU%Y	
	XW8D	,QFIDLE		
	BYTXE	(1)1(17)0(18)IOxOU%D	
	IFNB <Z>,<
	Z	
	>
IFG <8IOOU-400K>,<
IFNX <<.-.IOOU>-<IOOUx%E-IOOU>>,<CFAIL INCONSIST. PROT. FOR IOOU>
>

_HM| #YK
	IFG <IO#xPF-400K>,<EXTERN	$IOPF%S,IOPF%I,IOP$8F%M,IOPF%Y,IOPF%D$X>
IFNB <IOOU>,<
	IF1,<IFNDEF .IO%OU,<EXTERN .IOOU>%8>
	Z	.IOOU
>
	%XIFB <IOOU>,<Z>
	%xBYTE	(1)(3)QIOFI(&1)1(13)0(18)IOPF%&8S	;[63]
	Z	IOPF%&XI		
	XWD	-2,2
.&xIOPF::	XWD	QPFLNG',IOPF%M	
	XWD	QF'8IEBL,IOPF%Y	
	XW'XD	,QFIDLE		
	BYT'xE	(1)1(17)0(18)IO(PF%D	
	IFNB <Z>,(8<
	Z	
	>
IFG <(XIOPF-400K>,<
IFN(x <<.-.IOPF>-<IOPF)%E-IOPF>>,<CFAIL )8INCONSIST. PROT. FOR IOPF>
>}H: H	p
	IFG <SSH(HD-400K>,<EXTERN	HHSSHD%S,SSHD%I,SSHHhD%M,SSHD%Y,SSHD%DI>
IFNB <SSLG>,<
	IF1,<IFNDEF .SSIHLG,<EXTERN .SSLG>Ih>
	Z	.SSLG
>
	JIFB <SSLG>,<Z>
	J(BYTE	(1)(3)QSSLG(JH1)0(13)0(18)SSHD%JhS	;[63]
	Z	SSHD%KI		
	XWD	.SIMLV,K(1
.SSHD::	XWD	ZLKHG%S,SSHD%M	
	XWDKh	.SIMLV-1,SSHD%Y	L
	XWD	,3+.SIMVL	L(	
	BYTE	(1)(17)0LH(18)SSHD%D	
	IFNLhB <>,<
		
	>
IMFG <SSHD-400K>,<
IFN <<.-.SSHD>-<MHSSHD%E-SSHD>>,<CFMhAIL INCONSIST. PRNOT. FOR SSHD>
>@cY@H; 0i
	IFG <SS0ILG-400K>,<EXTERN	0)SSLG%S,SSLG%I,SSL>	G%M,SSLG%Y,SSLG%D>(>
IFNB <>,<
	IF>H1,<IFNDEF .,<EXTE>hRN .>>
	Z	.
>
?	IFB <>,<Z>
	BYT?(E	(1)(3)QSSLG(1)0?H(13)0(18)SSLG%S	;?h[63]
	Z	SSLG%I		@
	XWD	.SIMLV,0
@(.SSLG::	XWD	ZLG%S@H,SSLG%M	
	XWD	.S@hIMLV-1,SSLG%Y	
	AXWD	,3+.SIMVL		
A(	BYTE	(1)(17)0(18AH)SSLG%D	
	IFNB <Ah>,<
		
	>
IFG B<SSLG-400K>,<
IFB(N <<.-.SSLG>-<SSLBHG%E-SSLG>>,<CFAILBh INCONSIST. PROT. FOR SSLG>
>}$H; SIL
	IFG <SSShLK-400K>,<EXTERN	TSSLK%S,SSLK%I,SSLT(K%M,SSLK%Y,SSLK%DTH>
IFNB <SSLG>,<
	IF1,<IFNDEF .SSULG,<EXTERN .SSLG>U(>
	Z	.SSLG
>
	UHIFB <SSLG>,<Z>
	UhBYTE	(1)(3)QSSLG(V1)0(13)0(18)SSLK%V(S	;[63]
	Z	SSLK%VHI		
	XWD	.SIMLV,Vh1
.SSLK::	XWD	ZLWG%S,SSLK%M	
	XWDW(	.SIMLV-1,SSLK%Y	WH
	XWD	,3+.SIMVL	Wh	
	BYTE	(1)(17)0X(18)SSLK%D	
	IFNX(B <>,<
		
	>
IXHFG <SSLK-400K>,<
IFN <<.-.SSLK>-<YSSLK%E-SSLK>>,<CFY(AIL INCONSIST. PRYHOT. FOR SSLK>
>@q@H<z 3iJ
	IFG <SS4ST-400K>,<EXTERN	4(SSST%S,SSST%I,SSS4HT%M,SSST%Y,SSST%D4h>
IFNB <>,<
	IF51,<IFNDEF .,<EXTE5(RN .>>
	Z	.
>
5H	IFB <>,<Z>
	BYT5hE	(1)1(3)(1)1(13)60(18)SSST%S	;[63]6(
	Z	SSST%I		
	X6HWD	0,0
.SSST::	X6hWD	ZBI%S,SSST%M	
	XWD	.SIMLV,SSST7(%Y	
	XWD	,3+.SIM7HVL-1		
	BYTE	(1)7h(17)0(18)SSST%D	
	IFNB <>,<
		
8(	>
IFG <SSST-4008HK>,<
IFN <<.-.SS8hST>-<SSST%E-SSST>9>,<CFAIL INCONSIS9(T. PROT. FOR SSST>
>	j5V~H[0 ui^
	IFG <SUvMA-400K>,<EXTERN	v(SUMA%S,SUMA%I,SUMvHA%M,SUMA%Y,SUMA%Dvh>
IFNB <SUPS>,<
	IF1,<IFNDEF .SUw(PS,<EXTERN .SUPS>wH>
	Z	.SUPS
>
	whIFB <SUPS>,<Z>
	xBYTE	(1)(3)QSUPS(x(1)0(13)0(18)SUMA%xHS	;[63]
	Z	SUMA%xhI		
	XWD	.SIMLV,y3
.SUMA::	XWD	ZPy(S%S,SUMA%M	
	XWDyH	.SIMLV-1,SUMA%Y	yh
	XWD	,3+.SIMVL	z	
	BYTE	(1)(17)0z((18)SUMA%D	
	IFNzHB <>,<
		
	>
IzhFG <SUMA-400K>,<
IFN <<.-.SUMA>-<{(SUMA%E-SUMA>>,<CF{HAIL INCONSIST. PR{hOT. FOR SUMA>
>Q@	j57@H\ 2	
	IFG <SU1IPS-400K>,<EXTERN	1)SUPS%S,SUPS%I,SUPk	S%M,SUPS%Y,SUPS%Dk(>
IFNB <SSLK>,<
	IF1,<IFNDEF .SSkhLK,<EXTERN .SSLK>l>
	Z	.SSLK
>
	l(IFB <SSLK>,<Z>
	lHBYTE	(1)(3)QSUPS(lh1)0(13)0(18)SUPS%mS	;[63]
	Z	SUPS%m(I		
	XWD	.SIMLV,mH2
.SUPS::	XWD	ZPmhS%S,SUPS%M	
	XWDn	.SIMLV-1,SUPS%Y	n(
	XWD	,3+.SIMVL	nH	
	BYTE	(1)(17)0nh(18)SUPS%D	
	IFNoB <>,<
		
	>
Io(FG <SUPS-400K>,<
IFN <<.-.SUPS>-<ohSUPS%E-SUPS>>,<CFpAIL INCONSIST. PRp(OT. FOR SUPS>
>

g	jYQFH\t `	.
	IFG <SU`(SI-400K>,<EXTERN	`HSUSI%S,SUSI%I,SUS`hI%M,SUSI%Y,SUSI%Da>
IFNB <SSST>,<
	IF1,<IFNDEF .SSaHST,<EXTERN .SSST>ah>
	Z	.SSST
>
	bIFB <SSST>,<Z>
	b(BYTE	(1)1(3)QSUSIbH(1)1(13)0(18)SUSIbh%S	;[63]
	Z	SUSIc%I		
	XWD	0,1
.c(SUSI::	XWD	ZSU%S,cHSUSI%M	
	XWD	.SIchMLV,SUSI%Y	
	XWDd	,3+.SIMVL-1		
	d(BYTE	(1)(17)0(18)dHSUSI%D	
	IFNB <>dh,<
		
	>
IFG <eSUSI-400K>,<
IFNe( <<.-.SUSI>-<SUSIeH%E-SUSI>>,<CFAIL ehINCONSIST. PROT. FOR SUSI>
>4Idy )8
DEFINE DH%A<
	IFG <A-40h0K>,<EXTERN	A%S,A%I,A%M,A%Y,A(%D>
IFNB <B>,<
	IF1,<IFNDEF .Bh,<EXTERN .B>>
	Z	.B
>
	IFB <(B>,<Z>
	BYTE	(1)HL(3)C(1)D(13)0h(18)A%S	;[63]
	 Z	A%I		
	XWD	H (,E
.A::	XWD	F H,A%M	
	XWD	I, hA%Y	
	XWD	J,G	!	
	BYTE	(1)M(17!()0(18)A%D	
	IFN!HB <K>,<
	K	
	!h>
IFG <A-400K>,"<
IFN <<.-.A>-<"(A%E-A>>,<CFAIL "HINCONSIST. PROT. "hFOR A>
>>
DEFI#NE E%A<
IFNB <#(B>,<
	IF1,<IFNDE#HF .B,<EXTERN .B#h>>
	Z	.B
>
	I$FB <B>,<Z>
	BYT$(E	(1)L(3)C(1)D$H(13)0(18)0	
	Z	0$h	
	XWD	H,E
.%A::	XWD	F,0	
	X%(WD	I,0	
	XWD	J%H,G	
	BYTE	(1)M%h(17)0(18)0 
	IFN&B <K>,<
	K	
	&(>
IFG <A-400K>,&H<
IFN <<.-.A>-<&hA%E-A>>,<CFAIL 'INCONSIST. PROT. FOR A>
>>}YI 4 
$$DEF==04@
IFE <^DC-^D36>4`,<DEFINE A(XB,O)5=
<$%W==B
IFNB5  <O>,<$%W==B+<O>5@
>
IFE <$$USE-35`>,<LI $$$VAL
$$U6SE==1>
$F $%W(XB6 )>
$$DEF==1>
IF6@E <^DC-^D18>,<IF6`E <^DD-^D17>,
<7
DEFINE A(XB,O)7 =<
$%W==B
IFNB7@ <O>,<$%W==B+<O>7`>
IFE <$$USE-3>,8<LI $$$VAL
$$USE8 ==1>
IFE $$USE,<8@$F $%W(XB)>
IFE 8`<$$USE-1>,<$L $%W9(XB)>
IFE <$$USE9 -2>,<PRINTX OPD-O9@PR NESTING ERROR>9`
$$USE==2>
$$DE:F==1>
IFE <^DD-: ^D35>,
<DEFINE :@A(XB,O)=<
$%W==:`B
IFNB <O>,<$%W=;=B+<O>>
IFE <$$; USE-3>,<LI $$$VAL;@
$$USE==1>
IFE ;`$$USE,<$F $%W(XB)<>
IFE <$$USE-1>,< <$R $%W(XB)>
IFE<@ <$$USE-2>,<PRINT<`X OPD-OPR NESTING= ERROR>
$$USE==2= >
$$DEF==1>
>
=@IFE $$DEF,<
DEFI=`NE A(XB,O)=<
$%>W==B
IFNB <O>,<> $%W==B+<O>>
IFE>@ <$$USE-3>,<LI $$>`$VAL
$$USE==1>
?IFE $$USE,<$F $%W? (XB)>
IFE <$$USE?@-1>,<$B [$A O(XB?`)]-$$RELO($$BAS)>@
IFE <$$USE-2>,<@ PRINTX INVALID US@@E OF FIELD>
$$US@`E==2>
$$DEF==1>
OPDEF $A [POINTA  C,B,D]
$A==A@$A
%A==^DD
IA`FE <^DC-1>,<DSW (A,B,D)>
IO8 V Z

IFL <^V@D36-^DC>,<$$E(<TV`OO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFINW@E A(ACC)=<
	IFEW` <%OP%-2>,<$$E(<IXLL SWITCH NAME>)>X 
	IFN <%OP%-2>,<X@
	 IFE <%OP%-3>,X`<%OP3 777777>
	 YIFE <%OP%-4>,<%OPY 3>
	YIFL <%OP%-2Y@>,<%OP4 B(ACC)>
			%OP%==2>>>
 ZIFNB <D>,<DEFINEZ  A=<
	IFE <%OP%Z@-2>,<$$E(<ILL SWIZ`TCH NAME>)>
	IFN[ <%OP%-2>,<
	 IF[ E <%OP%-3>,<%OP3 [@D,777777>
	 IFE[` <%OP%-4>,<%OP3 \D,>
	\IFL <%OP%-\ 2>,<%OP4 B(D)>
		     %OP%==2>>\`>>
IFGE	^D35-^D]C,<
	VA==1BC
] IFE	^DC,<
	CA=]@=377777777777>
I]`FN	^DC,<
	CA==^-1*VA-1>
IFGE ^^ D17-^DC,<
	CA=^@=CA_-^D18
	VA=^`=VA_-^D18>

DE_FINE	$$TES1(X,Y,Z_ )<

IFGE	^D17-^_@DC,<
IFB <Z>,<D_`EFINE A(ACC)<
I`FE <%OP%-1>,<%OP1`  Y>
IFE %OP%,<%O`@P1 X>
IFE <%OP%-``2>,<$$E(<ILL SWITaCH NAME>)>
IFGE a <%OP%-3>,<IFB <ACa@C>,<%OP1 Y>
	IFNa`B <ACC>,<%OP1 ACCb,Y>>
IFL<%OP%-2>b ,<%OP3 B(ACC)>
b@%OP%==2>>
IFNB <b`Z>,<DEFINE A=<
cIFE <%OP%-1>,<%OPc 1 Y>
IFE %OP%,<%c@OP1 X>
IFE <%OP%c`-2>,<$$E(<ILL SWIdTCH NAME>)>
IFGEd  <%OP%-3>,<%OP1 Zd@,Y>
IFL <%OP%-2>d`,<%OP3 B(Z)>
%OeP%==2>>>

IFL ^e D17-^DC,<
IFB <e@D>,<DEFINE A(ACe`C)<
IFE %OP%-1,<f%OP2 Y>
IFE %OP%f ,<%OP2 X>
IFE <%f@OP%-2>,<$$E(<ILL f`SWITCH NAME>)>
IgFGE <%OP%-3>,<IFBg  <ACC>,<%OP2 Y>
g@	IFNB <ACC>,<%OP2g` ACC,Y>>
IFL <%OhP%-2>,<%OP3 B(ACh C)>
%OP%==2>>
Ih@FNB <D>,<DEFINE h`A=<
IFE <%OP%-1i>,<%OP2 Y>
IFE %i OP%,<%OP2 X>
IFEi@ <%OP%-2>,<$$E(<Ii`LL SWITCH NAME>)>j
IFGE <%OP%-3>,<j %OP2 Z,Y>
IFL <%j@OP%-2>,<%OP3 B(Zj`)>
%OP%==2>>
>k
>
	$$TES1(\CA,k \VA,D)
	PURGE VA,CA
>
IXtJ9P IXtLuP"IXtMP  IXu]P IXvMP  IXvMP IXvMP Ik@ )It
	S==0
	)hIFNB	<B>,<S==B>*
	K==QSIMPLE
	I*(FNB	<E>,<K==E>
	M==QDECLARED
	*hIFNB	<D>,<M==D>+
	N==0
	IRPC	A+),<N==N+1>
	IFG	<+HN-^D12>,<PRINTX +hA too long>
	Q==,	0
	IFG	<N-6>,<Q=,(=1B0>
	Q==Q+<S>B,H<%ZSDSPI>+<C>B<%,hZSDTYP>+<M>B<%ZSD-MOD>+<K>B<%ZSDKND-(>+F
	EXP	Q
	SI-HXBIT/A/
	IFE	<-hC-QREF>,<
	IFB	<.G>,<PRINTX REF q.(uantity should ha.Hve qualif>
	Z	G
>ZQ

tIkXv 'IH
	SIXBIT/'hA/
	N==0
	IRPC(	A,<N==N+1>
	IF((L	<N-7>,<Z>
	IFN(HB	<C>,<N==C>
	(hIFB	<C>,<N==.+1>)
B%Y::	<QSYSCL>B<%ZSMTYP>+N
JMy 5M
IFNB <IO58FI>,<
	IF1,<IFND5XEF .IOFI,<EXTERN 5x.IOFI>>
	Z	.IOFI6
>
	IFB <IOFI>,68<Z>
	BYTE	(1)(3)6XQIOFI(1)1(13)0(186x)0	
	Z	0	
	XWD	7-2,1
.IODF::	XWD78	QDFLNG,0	
	XWD	7XQFIEBL,0	
	XWD	,7xQFIDLE	
	BYTE	(18)1(17)0(18)0 
	I88FNB <Z>,<
	Z	
	8X>
IFG <IODF-400K8x>,<
IFN <<.-.IOD9F>-<IODF%E-IODF>>98,<CFAIL INCONSIST9X. PROT. FOR IODF>
>I	j51IJMyT 9e
IFNB <>,X<
	IF1,<IFNDEF .x,<EXTERN .>>
	Z		.
>
	IFB <>,<Z>	8
	BYTE	(1)(3)QIO	XFI(1)1(13)0(18)0		x
	Z	0	
	XWD	-2,

.IOFI::	XWD	QFI
8LNG,0	
	XWD	QFIE
XBL,0	
	XWD	1,QFI
xDLE	
	BYTE	(1)1(17)0(18)0 
	IFNB8 <PTX>,<
	PTX	
X	>
IFG <IOFI-400xK>,<
IFN <<.-.IO

FI>-<IOFI%E-IOFI>

8>,<CFAIL INCONSIS

XT. PROT. FOR IOFI>
>cQ@JMz7 9?
IFNB <IOXFI>,<
	IF1,<IFNDxEF .IOFI,<EXTERN .IOFI>>
	Z	.IOFI8
>
	IFB <IOFI>,X<Z>
	BYTE	(1)(3)xQIOFI(1)1(13)0(18)0	
	Z	0	
	XWD	8-2,1
.IOIN::	XWDX	QIFLNG,0	
	XWD	xQFIEBL,0	
	XWD	,QFIDLE	
	BYTE	(18)1(17)0(18)0 
	IXFNB <Z>,<
	Z	
	x>
IFG <IOIN-400K>,<
IFN <<.-.IOI8N>-<IOIN%E-IOIN>>X,<CFAIL INCONSISTx. PROT. FOR IOIN>
>|pEPJM{z Y
IFNB <IOxFI>,<
	IF1,<IFNDEF .IOFI,<EXTERN 8.IOFI>>
	Z	.IOFIX
>
	IFB <IOFI>,x<Z>
	BYTE	(1)(3) QIOFI(1)1(13)0(18 8)0	
	Z	0	
	XWD	 X-2,1
.IOOU::	XWD x	QOFLNG,0	
	XWD	!QFIEBL,0	
	XWD	,!8QFIDLE	
	BYTE	(1!X)1(17)0(18)0 
	I!xFNB <Z>,<
	Z	
	">
IFG <IOOU-400K"8>,<
IFN <<.-.IOO"XU>-<IOOU%E-IOOU>>"x,<CFAIL INCONSIST#. PROT. FOR IOOU>
>uLm}fJM| )ys
IFNB <IO*OU>,<
	IF1,<IFND*8EF .IOOU,<EXTERN *X.IOOU>>
	Z	.IOOU*x
>
	IFB <IOOU>,+<Z>
	BYTE	(1)(3)+8QIOFI(1)1(13)0(18+X)0	
	Z	0	
	XWD	+x-2,2
.IOPF::	XWD,	QPFLNG,0	
	XWD	,8QFIEBL,0	
	XWD	,,XQFIDLE	
	BYTE	(1,x)1(17)0(18)0 
	I-FNB <Z>,<
	Z	
	-8>
IFG <IOPF-400K-X>,<
IFN <<.-.IOP-xF>-<IOPF%E-IOPF>>.,<CFAIL INCONSIST.8. PROT. FOR IOPF>
>wQ

6J: NI
IFNB <SSNhLG>,<
	IF1,<IFNDOEF .SSLG,<EXTERN O(.SSLG>>
	Z	.SSLGOH
>
	IFB <SSLG>,Oh<Z>
	BYTE	(1)(3)PQSSLG(1)0(13)0(18P()0	
	Z	0	
	XWD	PH.SIMLV,1
.SSHD::Ph	XWD	ZLG%S,0	
	XQWD	.SIMLV-1,0	
	Q(XWD	,3+.SIMVL	
	QHBYTE	(1)(17)0(18)Qh0 
	IFNB <>,<
	R	
	>
IFG <SSHD-R(400K>,<
IFN <<.-RH.SSHD>-<SSHD%E-SSRhHD>>,<CFAIL INCONSSIST. PROT. FOR SSHD>
>I`PJ; C)<
IFNB <>,CH<
	IF1,<IFNDEF .Ch,<EXTERN .>>
	Z	D.
>
	IFB <>,<Z>D(
	BYTE	(1)(3)QSSDHLG(1)0(13)0(18)0	Dh
	Z	0	
	XWD	.SIEMLV,0
.SSLG::	XWE(D	ZLG%S,0	
	XWD	EH.SIMLV-1,0	
	XWDEh	,3+.SIMVL	
	BYTFE	(1)(17)0(18)0 
	IFNB <>,<
		
FH	>
IFG <SSLG-400FhK>,<
IFN <<.-.SSGLG>-<SSLG%E-SSLG>G(>,<CFAIL INCONSISGHT. PROT. FOR SSLG>
>4	j6<tz4J; Z	t
IFNB <SSZ(LG>,<
	IF1,<IFNDZHEF .SSLG,<EXTERN Zh.SSLG>>
	Z	.SSLG[
>
	IFB <SSLG>,[(<Z>
	BYTE	(1)(3)[HQSSLG(1)0(13)0(18[h)0	
	Z	0	
	XWD	\.SIMLV,1
.SSLK::\(	XWD	ZLG%S,0	
	X\HWD	.SIMLV-1,0	
	\hXWD	,3+.SIMVL	
	]BYTE	(1)(17)0(18)](0 
	IFNB <>,<
	]H	
	>
IFG <SSLK-]h400K>,<
IFN <<.-^.SSLK>-<SSLK%E-SS^(LK>>,<CFAIL INCON^HSIST. PROT. FOR SSLK>
>F\r

_J<z 9in
IFNB <>,:<
	IF1,<IFNDEF .:(,<EXTERN .>>
	Z	:H.
>
	IFB <>,<Z>:h
	BYTE	(1)1(3)(1;)1(13)0(18)0	
	Z;(	0	
	XWD	0,0
.S;HSST::	XWD	ZBI%S,0;h	
	XWD	.SIMLV,0	<
	XWD	,3+.SIMVL-<(1	
	BYTE	(1)(17)<H0(18)0 
	IFNB <><h,<
		
	>
IFG <=SSST-400K>,<
IFN=( <<.-.SSST>-<SSST=H%E-SSST>>,<CFAIL =hINCONSIST. PROT. FOR SSST>
>

J[0 |)
IFNB <SU|HPS>,<
	IF1,<IFND|hEF .SUPS,<EXTERN }.SUPS>>
	Z	.SUPS}(
>
	IFB <SUPS>,}H<Z>
	BYTE	(1)(3)}hQSUPS(1)0(13)0(18~)0	
	Z	0	
	XWD	~(.SIMLV,3
.SUMA::~H	XWD	ZPS%S,0	
	X~hWD	.SIMLV-1,0	
	XWD	,3+.SIMVL	
	(BYTE	(1)(17)0(18)H0 
	IFNB <>,<
	h	
	>
IFG <SUMA-400K>,<
IFN <<.-(.SUMA>-<SUMA%E-SUHMA>>,<CFAIL INCONhSIST. PROT. FOR SUMA>
>5HJ\ pi*
IFNB <SSqLK>,<
	IF1,<IFNDq(EF .SSLK,<EXTERN qH.SSLK>>
	Z	.SSLKqh
>
	IFB <SSLK>,r<Z>
	BYTE	(1)(3)r(QSUPS(1)0(13)0(18rH)0	
	Z	0	
	XWD	rh.SIMLV,2
.SUPS::s	XWD	ZPS%S,0	
	Xs(WD	.SIMLV-1,0	
	sHXWD	,3+.SIMVL	
	shBYTE	(1)(17)0(18)t0 
	IFNB <>,<
	t(	
	>
IFG <SUPS-tH400K>,<
IFN <<.-th.SUPS>-<SUPS%E-SUuPS>>,<CFAIL INCONu(SIST. PROT. FOR SUPS>
>5t7J\t f)V
IFNB <SSfHST>,<
	IF1,<IFNDfhEF .SSST,<EXTERN g.SSST>>
	Z	.SSSTg(
>
	IFB <SSST>,gH<Z>
	BYTE	(1)1(3gh)QSUSI(1)1(13)0(1h8)0	
	Z	0	
	XWDh(	0,1
.SUSI::	XWDhH	ZSU%S,0	
	XWD	.hhSIMLV,0	
	XWD	,3i+.SIMVL-1	
	BYTEi(	(1)(17)0(18)0 
iH	IFNB <>,<
		
	ih>
IFG <SUSI-400Kj>,<
IFN <<.-.SUSj(I>-<SUSI%E-SUSI>>jH,<CFAIL INCONSISTjh. PROT. FOR SUSI>
>{=uy{VKH,P KH-J1P KK;r 0ya..N==0
		PIFNB <A>,<..N=Ap>
		IRP B,<
		QBENO=..N
		>
		PURGE	..N
		KKX1 6@sHIRP A,<
6`		DEFINE	AERR(N,7MSG)<
			RTSERR	7 <N+QAENO>
			IF7@N	QDEBUG,<NOP	[AS7`CIZ/
MSG
/]
	>8>	

		DEFINE	A8 ERC(C,N,MSG)<
		8@	RTSERR	<C>,<N+Q8`AENO>
			IFN	QDE9BUG,<NOP	[ASCIZ/
MSG
/]
	>>>MJ,P 6 S6)2 7 Su{R 5@s,CAIN	A,NONEY?< 2`s 
		IFNB <3A>,<XLOW=A>
		3`IFB  <A>,<XLOW=X4IAC>
		HRRZ	XLOW,.JBOPS
		kN:7]>h6 @ t
		LOWADR@@
		L	A,YDSIAR(XLOW)
	]P ]?$lR 7 _69: 0`<$A>&777777aJ|:7 1f
QOCIN==	
QOCIO==	2
QIO#)==	4
QIONF=	10
AQOCEP=	20	
QALL=`	QIO+QIONF+QOCEP+QOCIN+QOCIO	
QRT SYM=	777
Q==QA	@
DEFINE X(N,E,D,`U,O)<
%U==0	
IRP U,<%U==%U+Q'U>
IFN <QRTSYM-Q'D>@,<	
	IFN <Q&%U>,`<IFE <<Q'D>&Q>,<EXTERN E>>	
	IFN  <<Q'D>&Q>,<IFN <Q@'D-%U>,<INTERN E>`>	
						
>
IFN <Q&%U>,<	
	IFB  <O>,<
	OPDEF N @[PUSHJ XPDP,E]
	`>
	IFNB <O>,<
	OPDEF N [O E]
>	 >
>



X(COP@YSPEC,.OCIN6,OCIN`,<OCIN,IONF>)	
X(CREATEFILE,.IOCF ,IONF,<OCIN,IONF>@)	
X(ERRFILE,.IO`ERF,OCIO,<OCIN,IO	>)	
					
X(FIL	 EENTER,.IOENT,ION	@F,<OCIN,IONF>)	
	`X(FILEERROR,.IOFE
R,OCIO,IONF)		
	
 				
X(FILELOOKU
@P,.IOLOK,IONF,<OC
`IN,IONF>)	
X(FINDLOGICAL,.OCINJ,O CIN,<OCIN,IONF>)	@
					
X(FIXSWI`TCH,.OCINF,OCIN,<

OCIN,IONF>)

 		
X(FREEBUFF,.O

@CINC,OCIO,<OCIN,I

`O>)	
X(GETBUFF,.<OCIN,
X(GETBYT,OCIO,<OC
					
X(GETCHANN EL,.OCIN8,OCIO,<O@CIN,IONF>)	
X(GE`TNAME,.OCIN1,OCIO,<OCIN,IO,IONF>)	 
X(GETREST,.OCIN@H,OCIO,OCIN)		
	`				
X(GETSPEC,.OCINB,OCIN,<OCIN, IONF>)	
X(LEGAL,@.OCLA,OCIO,<OCEP,`OCIO>)		
X(LINKBUFF,.OCIND,OCIO,< OCIN,IONF>)	
X(O@UTENTER,.OCINI,OC`IN,<OCIN,IONF>)	
					
X(OUTOCT, .OCOO,OCIO,<IONF,@OCIO,OCEP>)	
X(P`RINTFILE,.OCIN9,OCIO,<OCIO,OCIN>)	 
X(PRINTSPEC,.OC@INE,IONF,<OCIN,IO`NF>)	
X(REOPEN,OCINK,RTSYM,IO)		
X(SETUPFILE,IOCO@M,RTSYM,IO)		
X(`SPECCOPY,.OCINZ,OCIN,<OCIN,IONF>)	 
					
X(TTYSPE@C,.OCINY,OCIN,<OC`IN,IONF>)	
X(TYPENAME,.OCIN2,OCIO ,ALL)		
					
X@(TYPESPEC,.IOTYS,`OCIO,ALL)		
X(TYPDEC,.OCDT,OCIO,< OCIO,OCEP>)	
X(T@YPOCT,.OC8T,OCIO,`<OCIO,OCEP>)	

OPDEF	OP	[HRLI]
 OPDEF	OPZ	[HRLZI]@
QCHN==OFFSET(ZF`ICHN)

DEFINE FILOP(OP,X,Y)<
IF B	<Y>,<HLL X,QCHN@(XWAC1)>
IFNB	<Y`>,<HLL X,QCHN(Y)>
	TLO	X,(<OP>)
 	XCT	X
	>
DEFIN@E	IOCHECK(X,Y,M)<`
IFB	<M>,<HRRI X,740000>
	IFNB	< M>,<HRRI	X,M>
	F@ILOP(STATZ,X,Y)
`	>

	IFE QDEC20,<OPDEF PBOUT [OU TCHR X1]>	

	PU@RGE %U,Q,QIO,QION`F,QOCIN,QOCIO,QRTSYM
@qc+aS@Q

$bP #cf@P c[W@ c[W@ c5KS@ c;wP cQ@ cQ@ cR@ cT@ cY@ cY@ cI`@ cIp@ bcj6P cj7P cLKP cLXVQ ~cMKS@ 
c~)9P FcKS@ c&\YP c&.mP c&5YP c&5KS@ 
c&dzP c&eM:P Gc&l7P c&t^P c&|[W@ c&|j P c&}L@ c')2P c');P c'X`P c'tP c'wP c'%2P c2)rA ?c:

0P c:>@

c>(2P c>[W@ c>5KS@ 
cB$^@ cB%I7@  cB5KS@ cBD[W@  cB}K4@ cJ$[W@ (cJ46P GcK&9(P cN

[W@ .cNM\P cO[W@ 1cOI`P cO,[W@ 1cO.

`PcO.:WPcO=k`@cR/.+W@ eMj: ly	
	SEARCHk`	SIMMAC,SIMMCR
	x0EXTERN	.YFARG,.YFy0ADR		
	SALL
	RTxITLE	RDA
	ENTRY
P	.RDA
	ERRMAC	R
pD
	MACINIT
DEFINE XX(N)<
DEFINE0 ARG'N<N-1(XTAC)>P
>
	XX	1
	XX	2p
	XX	3
	XX	4

XX	5

	SYN	ARG1

0,RESULT

DEFINE

P RAND(N)<
		
	L

p	X0,@ARG'N
	SKIP
	ADD	[377777
	TRO	1	
	MUL	X0,[QMULTIP
	ST	X1,@ARG'N	
	TLZ	X1,4000K	
>

DEFINE MPAKEREAL(N<1>)<	
p	FLTR	X0,X1
	FSC	X0,N-44
>

DE0FINE AR(A,B)<OFFSPET(ZAR'A)+2(XWAC'pB)>

DEFINE ARTEST(A,B)<
	HLRZ	0XWAC'A,OFFSET(ZARPSUB)(XWAC'B)
	CApIE	XWAC'A,QTSTAR
>

QMULTIPLIER0==1
REPEAT ^D15,P<QMULTIPLIER==QMUpLTIPLIER*5>;RESULT IS 5**15

	QT0STAR==(<QREAL>B<%PZARTYP>+1B<%ZARSUB>)
e&=
	SIZE(Q,9`A)
	IFN <Q-^D18:>,<Q==0>
	IFN <%: A-^D35>,<Q==0>
:@	IFE <Q>,
	<CFAI:`L A is not right half>
	1P eK$^ PyW
	IFN QDEpBUG,<
	IFONA	SWGCT2
	>
	OUTSTR	0[ASCIZ	/

A/]
	IFN QDEBUG,<
	pIF
		IFOFFA	SWGCT3
		GOTO	FALSE
	THEN
		LI	X2,[PASCIZ	/

A/]
p		EXEC	SAPDTO
	FI
	>
	qNIyeR/
	IFN QDEBUG,<
	IFONA	SWG0CT2
	>
	OUTSTR	P[ASCIZ	/
A/]
	pIFN QDEBUG,<
	IF
		IFOFFA	SWGCT30
		GOTO	FALSE
	PTHEN
		LI	X2,[ASpCIZ	/
A/]
		EXEC	SAPDTO
	FI
	>
	`u(g^ELeVu@ gC
	IFDEF .g0DIRECTIVE,<.DIRECgPTIVE .NOBIN>
	UNgpIVERSAL	A     DEhCsystem-10/20 SIMh0ULA RTS %4A(310)   RTS %4A(310) g<< zwg
IFE <%OPz0%-1>,<%OP1 400000zP>
IFE %OP%,<%OP1zp 377777>
IFE <%O{P%-2>,<$$E(<ILL S{0WITCH NAME>)>
IF{PGE <%OP%-3>,<IFB {p<A>,<%OP1 400000|>
	IFNB <A>,<%O|0P1 A,400000>>
I|PFL<%OP%-2>,<%OP3 |pYSASW(A)>
%OP%==2g4X6 ; sn
	EXCH	X1;@6,.JBOPS
	q==YUU;`OAC
	IFNB <A>,<<q==A>
	ST	X17,q< +X17(X16)
	LI	X1<@7,q(X16)
	BLT	X1<`7,q+X15(X16)
	L	=X17,X16
	EXCH	X1= 7,.JBOPS
	ST	X17=@,q+X16(X16)
	L	X=`17,q+X17(X16)
	PURGE	q
JwP g
Ht 3)V
	IFE <%O^iP%-2>,<$$E(<ILL S_	WITCH NAME>)>
	I_)FN <%OP%-2>,<
	 _IIFE <%OP%-3>,<%OP:3 777777>
	 IFE : <%OP%-4>,<%OP3>
:@	 IFL <%OP%-2>,<%:`OP4 YBATCH(A)>
			%OP%==2>j5pg
%%%%%1==I`0
IRP A,<
A==J%%%%%1
%%%%%1==<%%%%%1+1>>XEHg; D1
	IFE <%OD0P%-2>,<$$E(<ILL SDPWITCH NAME>)>
	IDpFN <%OP%-2>,<
	 EIFE <%OP%-3>,<%OPE03 777777>
	 IFE EP<%OP%-4>,<%OP3>
Ep	 IFL <%OP%-2>,<%FOP4 YDSCLOSE(A)>
			%OP%==2>;g%K{ 4@s(
		IFNB <4`A>,<XLOW=A>
		5IFB  <A>,<XLOW=XIAC>
		gRJ1 Y	
	A=	Q
9	IFB	<B>,<Q==Q+1>
	IFNB	<B>,<Q==<B>+Q>Qxg^+ ` v
	IFE <%O`@P%-2>,<$$E(<ILL S``WITCH NAME>)>
	IaFN <%OP%-2>,<
	 a IFE <%OP%-3>,<%OPa@3 XLOW,777777>
	a` IFE <%OP%-4>,<%ObP3 XLOW,>
	 IFL b <%OP%-2>,<%OP4 YOb@CSW+13(XLOW)>
		     %OP%==2>g^.,@ R@u&
	IFE <%OR`P%-2>,<$$E(<ILL SSWITCH NAME>)>
	IS FN <%OP%-2>,<
	 S@IFE <%OP%-3>,<%OPS`3 XLOW,777777>
	T IFE <%OP%-4>,<%OT P3 XLOW,>
	 IFL T@<%OP%-2>,<%OP4 YOT`CSW+6(XLOW)>
		     %OP%==2>g^<0 h@vV
	IFE <%Oh`P%-2>,<$$E(<ILL SiWITCH NAME>)>
	Ii FN <%OP%-2>,<
	 i@IFE <%OP%-3>,<%OPi`3 XLOW,777777>
	j IFE <%OP%-4>,<%Oj P3 XLOW,>
	 IFL j@<%OP%-2>,<%OP4 YOj`CSW+16(XLOW)>
		     %OP%==2>g^<=	 px
IFE <%OP%-1>,<%OP1 1000000>
IFE %OP%,<%OP1P 677777>
IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
IF0GE <%OP%-3>,<IFB P<A>,<%OP1 100000p>
	IFNB <A>,<%OP1 A,100000>>
I0FL<%OP%-2>,<%OP3 PYSASW(A)>
%OP%==2g^<=	  x8
IFE <%OP@%-1>,<%OP1 40000>`
IFE %OP%,<%OP1 737777>
IFE <%OP %-2>,<$$E(<ILL SW@ITCH NAME>)>
IFG`E <%OP%-3>,<IFB <A>,<%OP1 40000>
	IFNB <A>,<%OP1@ A,40000>>
IFL<`%OP%-2>,<%OP3 YSASW(A)>
%OP%==2g^<=
 PxS
IFE <%OPp%-1>,<%OP1 20000>
IFE %OP%,<%OP1 0757777>
IFE <%OPP%-2>,<$$E(<ILL SWpITCH NAME>)>
IFG	E <%OP%-3>,<IFB <	0A>,<%OP1 20000>
	IFNB <A>,<%OP1	p A,20000>>
IFL<
%OP%-2>,<%OP3 YSA
0SW(A)>
%OP%==2g^<= }@x
IFE <%OP}`%-1>,<%OP1 200000~>
IFE %OP%,<%OP1~  577777>
IFE <%O~@P%-2>,<$$E(<ILL S~`WITCH NAME>)>
IFGE <%OP%-3>,<IFB  <A>,<%OP1 200000@>
	IFNB <A>,<%O`P1 A,200000>>
IFL<%OP%-2>,<%OP3  YSASW(A)>
%OP%==2g^>=` U u<
	IFE <%OU@P%-2>,<$$E(<ILL SU`WITCH NAME>)>
	IVFN <%OP%-2>,<
	 V IFE <%OP%-3>,<%OPV@3 XLOW,777777>
	V` IFE <%OP%-4>,<%OWP3 XLOW,>
	 IFL W <%OP%-2>,<%OP4 YOW@CSW+7(XLOW)>
		     %OP%==2>tVg^EL Z`uh
	IFE <%O[P%-2>,<$$E(<ILL S[ WITCH NAME>)>
	I[@FN <%OP%-2>,<
	 [`IFE <%OP%-3>,<%OP\3 XLOW,777777>
	\  IFE <%OP%-4>,<%O\@P3 XLOW,>
	 IFL \`<%OP%-2>,<%OP4 YO]CSW+11(XLOW)>
		     %OP%==2>4 g^Mi Bt"
	IFE <%OB P%-2>,<$$E(<ILL SB@WITCH NAME>)>
	IB`FN <%OP%-2>,<
	 CIFE <%OP%-3>,<%OPC 3 XLOW,777777>
	C@ IFE <%OP%-4>,<%OC`P3 XLOW,>
	 IFL D<%OP%-2>,<%OP4 YOD CSW(XLOW)>
		     %OP%==2>g^d$j AQ
	IFE <%OApP%-2>,<$$E(<ILL SBWITCH NAME>)>
	IB0FN <%OP%-2>,<
	 BPIFE <%OP%-3>,<%OPBp3 777777>
	 IFE C<%OP%-4>,<%OP3>
C0	 IFL <%OP%-2>,<%CPOP4 YDSL35(A)>
			%OP%==2>\g^ez` e`v@
	IFE <%OfP%-2>,<$$E(<ILL Sf WITCH NAME>)>
	If@FN <%OP%-2>,<
	 f`IFE <%OP%-3>,<%OPg3 XLOW,777777>
	g  IFE <%OP%-4>,<%Og@P3 XLOW,>
	 IFL g`<%OP%-2>,<%OP4 YOhCSW+15(XLOW)>
		     %OP%==2>g^uyq ;q	
	IFE <%O;QP%-2>,<$$E(<ILL S?QWITCH NAME>)>
	I?pFN <%OP%-2>,<
	 @IFE <%OP%-3>,<%OP@03 777777>
	 IFE @P<%OP%-4>,<%OP3>
@p	 IFL <%OP%-2>,<%AOP4 YDSNOG(A)>
			%OP%==2>@t{g_y9 XuR
	IFE <%OX P%-2>,<$$E(<ILL SX@WITCH NAME>)>
	IX`FN <%OP%-2>,<
	 YIFE <%OP%-3>,<%OPY 3 XLOW,777777>
	Y@ IFE <%OP%-4>,<%OY`P3 XLOW,>
	 IFL Z<%OP%-2>,<%OP4 YOZ CSW+10(XLOW)>
		     %OP%==2>g_r ]@u~
	IFE <%O]`P%-2>,<$$E(<ILL S^WITCH NAME>)>
	I^ FN <%OP%-2>,<
	 ^@IFE <%OP%-3>,<%OP^`3 XLOW,777777>
	_ IFE <%OP%-4>,<%O_ P3 XLOW,>
	 IFL _@<%OP%-2>,<%OP4 YO_`CSW+12(XLOW)>
		     %OP%==2>8 g_r J td
	IFE <%OJ@P%-2>,<$$E(<ILL SJ`WITCH NAME>)>
	IKFN <%OP%-2>,<
	 K IFE <%OP%-3>,<%OPK@3 XLOW,777777>
	K` IFE <%OP%-4>,<%OLP3 XLOW,>
	 IFL L <%OP%-2>,<%OP4 YOL@CSW+3(XLOW)>
		     %OP%==2>g_t O`u
	IFE <%OPP%-2>,<$$E(<ILL SP WITCH NAME>)>
	IP@FN <%OP%-2>,<
	 P`IFE <%OP%-3>,<%OPQ3 XLOW,777777>
	Q  IFE <%OP%-4>,<%OQ@P3 XLOW,>
	 IFL Q`<%OP%-2>,<%OP4 YORCSW+5(XLOW)>
		     %OP%==2>g_y G@tN
	IFE <%OG`P%-2>,<$$E(<ILL SHWITCH NAME>)>
	IH FN <%OP%-2>,<
	 H@IFE <%OP%-3>,<%OPH`3 XLOW,777777>
	I IFE <%OP%-4>,<%OI P3 XLOW,>
	 IFL I@<%OP%-2>,<%OP4 YOI`CSW+2(XLOW)>
		     %OP%==2>g_z Mtz
	IFE <%OM P%-2>,<$$E(<ILL SM@WITCH NAME>)>
	IM`FN <%OP%-2>,<
	 NIFE <%OP%-3>,<%OPN 3 XLOW,777777>
	N@ IFE <%OP%-4>,<%ON`P3 XLOW,>
	 IFL O<%OP%-2>,<%OP4 YOO CSW+4(XLOW)>
		     %OP%==2>g_&  cv*
	IFE <%Oc P%-2>,<$$E(<ILL Sc@WITCH NAME>)>
	Ic`FN <%OP%-2>,<
	 dIFE <%OP%-3>,<%OPd 3 XLOW,777777>
	d@ IFE <%OP%-4>,<%Od`P3 XLOW,>
	 IFL e<%OP%-2>,<%OP4 YOe CSW+14(XLOW)>
		     %OP%==2>g_&N  D`t8
	IFE <%OEP%-2>,<$$E(<ILL SE WITCH NAME>)>
	IE@FN <%OP%-2>,<
	 E`IFE <%OP%-3>,<%OPF3 XLOW,777777>
	F  IFE <%OP%-4>,<%OF@P3 XLOW,>
	 IFL F`<%OP%-2>,<%OP4 YOGCSW+1(XLOW)>
		     %OP%==2>gg; /	z
X<CLPB,S/(USI,SSLG,SUPS,IOFI>

5	j	YQ

iF@ y+
	IFN QDE0BUG,<
	IFONA	SWGPCT2
	>
	OUTSTR	p[ASCIZ	/A/]
	IFN QDEBUG,<
	IF
0		IFOFFA	SWGCT3
P		GOTO	FALSE
	THpEN
		LI	X2,[ASCIZ	/A/]
		EXEC	S0APDTO
	FI
	>
	G,i9stGtViJM\z 6s0SUB	XPDP,[1,,1]p /i..N==0
	I0RP A,<QA==..N
	..N==..N+1>

SpEP pEP pEP pEP pE P q& @ q
9 @ q
@@ q,`@ qNI @ q@ q`@ q$@ q&

0@ q'@ q(@ q,@ q0@ q2~p@ q4@ q8@ q:

0@ qJ

4 @ qN

0@ qOX`@ qO8@ qR

0@ q^

4 P q^

5P q^

5 P q^

5@P q`@ qc+@ qcP@ qcT* @ qcV`@ qh@ qj

0@ qj@ qj@ qj& @ qk0@ s8;@ s
Ht@@ eszi@ fszi@ fs(1@ s@ 
s.

@ s@ sz <Q{
IFE <%OP<p%-1>,<%OP1 400000=>
IFE %OP%,<%OP1=0 377777>
IFE <%O=PP%-2>,<$$E(<ILL S=pWITCH NAME>)>
IF>GE <%OP%-3>,<IFB >0<A>,<%OP1 400000>P>
	IFNB <A>,<%O>pP1 A,400000>>
I?FL<%OP%-2>,<%OP3 ?0YDSWIT(A)>
%OP%==2sQ	j5ss((@ s(9@ s(w@ s,p@ s82@ s9W@ s;@ s<P@ s<{@ lsIW@ sM6@ sX2@ s[Y@ s1@ s9@ sW@ sy@ sQ@ sz@ !sDj@ sKp@ sks@ s)3@  s.@ s=8 FQE
	IFE <%OFpP%-2>,<$$E(<ILL SGWITCH NAME>)>
	IG0FN <%OP%-2>,<
	 GPIFE <%OP%-3>,<%OPGp3 777777>
	 IFE H<%OP%-4>,<%OP3>
H0	 IFL <%OP%-2>,<%HPOP4 YDSCRA(A)>
			%OP%==2>f@s>@ sN@ sYW@  sz:@ sq@ !s+@ s+@ s-T @  s-[<@ s%yV@ sq@ is".

@ s&|-3@ $s&|:@ %s&}L@ 	s&~8;@ 	s&~:=@ s&~<@ -s&)Y@ -s*|+W@ 
s2~p@ "s>(2@ s>,Z@ ps>)H@ Ss>)I@ Ts>)W@ Ts>)Y@ Us>,z@ Us>-2@ ds>-3@ Zs>I;@ s>i@ Vs>j6@ Ys>|`@ s>|q@ s>V@ s>S@ ds>xV@ s>Z@ es>

@ s>)7@ s>):@ Rs>:7@ Rs>;z@ Ss>=`@ Js>N@ s>YV@ ks>q@ "sB$^@ sB%@@ msK%	t@ sK&

@ sK-m@ sN

@ 4sN

)9@ 3sN

+z@ 5sN

I0@ 0sN

[R@ 6sN

i9@ 1sN

k@ 2sN

l]@ 8sN

xw@ 0sN

xz@ /sN

}@sNN @ 3sN)6@ :sN)9@ 2sN8;@ :sN=@ /sN=@ sN=`@ 7sNH:@ 1sNJ6@ /sNKx@ 5sN,z@ 9sO-I;@

sO-i @ sO.1@ $sO.x@ "sO.	Z@ #sO.8x@ #sON:7@ sON;z@ sS%@@ .sS%x@@ .sSD @ ZsSD+@@ esSD,@ fsSD,@ fsSDM6@ jsSD^@ hsSEM@ hsSF9w@ gsSFL@ gsSG-@ lsW-x1@ Bsb

82@Wisj.+@

sj.+`@ u
D-8 M!

r$%W==2
IFM@NB <B>,<$%W==2+<M`B>
>
IFE <$$USNE-3>,<LI $$$VAL
N $$USE==1>
$F $%W(A)6zb	j6;u
D;Z Nq

$%W==3
IFONB <B>,<$%W==3+<O0B>
>
IFE <$$USOPE-3>,<LI $$$VAL
Op$$USE==1>
$F $%W(A)Q|j	j6<u
D;w C9

1
IFE %OP%CY-1,<%OP2 400000>
IFE %OP%,<%OP2 7D77777377777>
IFED8 <%OP%-2>,<$$E(<IDXLL SWITCH NAME>)>Dx
IFGE <%OP%-3>,<EIFB <A>,<%OP2 40E80000>
	IFNB <A>EX,<%OP2 A,400000>Ex>
IFL <%OP%-2>,<F%OP3 0(A)>
%OP%==2IELD>
$$USEu
DlR =	|
IFE <%OP=)%-1>,<%OP1 400000=H>
IFE %OP%,<%OP1=h 377777>
IFE <%O>P%-2>,<$$E(<ILL S>(WITCH NAME>)>
IF>HGE <%OP%-3>,<IFB >h<A>,<%OP1 400000?>
	IFNB <A>,<%O?(P1 A,400000>>
I?HFL<%OP%-2>,<%OP3 0(A)>
%OP%==2u
EI7 :9e
$%W==0
:XIFNB <B>,<$%W==0:x+<B>>
IFE <$$US;E-3>,<LI $$$VAL
;8$$USE==1>
IFE $$;XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$<L $%W(A)>
IFE <<8$$USE-2>,<PRINTX <XOPD-OPR NESTING ERROR>
$$USE==2u
EKU @Y


$%W==0
@9IFNB <B>,<$%W==0AI+<B>>
IFE <$$USnE-3>,<LI $$$VAL
mp$$USE==1>
IFE $$?hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$BB [$ZBHLNK B(A)B(]-$$RELO($$BAS)>
IFE <$$USE-2>,<PBhRINTX INVALID USEC OF FIELD>
$$USE==2I	j5WQu
F\r G)

M
IFE <%OPG	%-1>,<%OP1 400000Fi>
IFE %OP%,<%OP1HQ 377777>
IFE <%OH1P%-2>,<$$E(<ILL SGqWITCH NAME>)>
IFHGE <%OP%-3>,<IFB F8<A>,<%OP1 400000I>
	IFNB <A>,<%OI0P1 A,400000>>
IIPFL<%OP%-2>,<%OP3 1(A)>
%OP%==2u
G(Z Ja

e
$%W==1
JAIFNB <B>,<$%W==1KQ+<B>>
IFE <$$USmQE-3>,<LI $$$VAL
m0$$USE==1>
IFE $$IpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$LR $%W(A)>
IFE <L0$$USE-2>,<PRINTX LPOPD-OPR NESTING ERROR>
$$USE==2u,H: gAD$%W==7
IFg`NB <B>,<$%W==7+<hB>
>
IFE <$$USh E-3>,<LI $$$VAL
h@$$USE==1>
$F $%W(A)R

u
EI7u.:= ^A	
$%W==5
^!IFNB <B>,<$%W==5_Q+<B>>
IFE <$$US_1E-3>,<LI $$$VAL
m$$USE==1>
IFE $$]PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$`B [$ZBUSIZ B(A)`0]-$$RELO($$BAS)>
IFE <$$USE-2>,<P`pRINTX INVALID USEa OF FIELD>
$$USE==2itg^ez`u.= X!
$%W==4
X@IFNB <B>,<$%W==4X`+<B>>
IFE <$$USYE-3>,<LI $$$VAL
Y $$USE==1>
IFE $$Y@USE,<$F $%W(A)>
IFE <$$USE-1>,<$ZR $%W(A)>
IFE <Z $$USE-2>,<PRINTX Z@OPD-OPR NESTING ERROR>
$$USE==2u.\r Zq
IFE <%OP[%-1>,<%OP1 400000[0>
IFE %OP%,<%OP1[P 377777>
IFE <%O[pP%-2>,<$$E(<ILL S\WITCH NAME>)>
IF\0GE <%OP%-3>,<IFB \P<A>,<%OP1 400000\p>
	IFNB <A>,<%O]P1 A,400000>>
I]0FL<%OP%-2>,<%OP3 5(A)>
%OP%==2u.xz dQ7
$%W==6
dpIFNB <B>,<$%W==6e+<B>>
IFE <$$USe0E-3>,<LI $$$VAL
eP$$USE==1>
IFE $$epUSE,<$F $%W(A)>
IFE <$$USE-1>,<$f0R $%W(A)>
IFE <fP$$USE-2>,<PRINTX fpOPD-OPR NESTING ERROR>
$$USE==2u/(Z aa 
$%W==5
bIFNB <B>,<$%W==5b +<B>>
IFE <$$USb@E-3>,<LI $$$VAL
b`$$USE==1>
IFE $$cUSE,<$F $%W(A)>
IFE <$$USE-1>,<$c@R $%W(A)>
IFE <c`$$USE-2>,<PRINTX dOPD-OPR NESTING ERROR>
$$USE==2u4+ 7N
$%W==26
IFNB <B>,<$%W==8)26+<B>>
IFE <$$8	USE-3>,<LI $$$VALn1
$$USE==1>
IFE 6H$$USE,<$F $%W(A)8h>
IFE <$$USE-1>,9<$R $%W(A)>
IFE9( <$$USE-2>,<PRINT9HX OPD-OPR NESTING9h ERROR>
$$USE==2}%u-3|8u4[R  y

	IFE <%O!P%-2>,<$$E(<ILL S!8WITCH NAME>)>
	I!XFN <%OP%-2>,<
	 !xIFE <%OP%-3>,<%OP"3 777777>
	 IFE "H<%OP%-4>,<%OP3>
"h	 IFL <%OP%-2>,<%#OP4 7(A)>
			%OP%==2>XvMPu56 #i
2
$%W==24
IFNB <B>,<$%W==$(24+<B>>
IFE <$$$HUSE-3>,<LI $$$VAL$h
$$USE==1>
IFE %$$USE,<$F $%W(A)%(>
IFE <$$USE-1>,%H<$L $%W(A)>
IFE%h <$$USE-2>,<PRINT&X OPD-OPR NESTING&( ERROR>
$$USE==2PGc&|[W@u5J6 &y
K
$%W==24
IFNB <B>,<$%W=='824+<B>>
IFE <$$'XUSE-3>,<LI $$$VAL'x
$$USE==1>
IFE ($$USE,<$F $%W(A)(8>
IFE <$$USE-1>,(X<$R $%W(A)>
IFE(x <$$USE-2>,<PRINT)X OPD-OPR NESTING)8 ERROR>
$$USE==27g<<wOu5Kq -
}
$%W==25
IFNB <B>,<$%W==-X25+<B>>
IFE <$$-xUSE-3>,<LI $$$VAL.
$$USE==1>
IFE .8$$USE,<$F $%W(A).X>
IFE <$$USE-1>,.x<$R $%W(A)>
IFE/ <$$USE-2>,<PRINT/8X OPD-OPR NESTING/X ERROR>
$$USE==2@qOX`@u5[r 0	
IFE <%OP0)%-1>,<%OP1 4000000H>
IFE %OP%,<%OP10h 377777>
IFE <%O1P%-2>,<$$E(<ILL S1(WITCH NAME>)>
IF1HGE <%OP%-3>,<IFB 1h<A>,<%OP1 4000002>
	IFNB <A>,<%O2(P1 A,400000>>
I2HFL<%OP%-2>,<%OP3 2h26(A)>
%OP%==2E OF FIELD>
$$Uu5}: 3y2
IFE <%OP3Y%-1>,<%OP1 20000039>
IFE %OP%,<%OP14i 577777>
IFE <%O4IP%-2>,<$$E(<ILL SnQWITCH NAME>)>
IF3GE <%OP%-3>,<IFB 5(<A>,<%OP1 2000005H>
	IFNB <A>,<%O5hP1 A,200000>>
I6FL<%OP%-2>,<%OP3 6(26(A)>
%OP%==2E OF FIELD>
$$Uu6xz *	
d
$%W==25
IFNB <B>,<$%W==*H25+<B>>
IFE <$$*hUSE-3>,<LI $$$VAL+
$$USE==1>
IFE +($$USE,<$F $%W(A)+H>
IFE <$$USE-1>,+h<$L $%W(A)>
IFE, <$$USE-2>,<PRINT,(X OPD-OPR NESTING,H ERROR>
$$USE==2PpEPu|{ A v\
	SETZM	XA0,YOCSW(XLOW)
	H@`RLI	X0,YOCSW(XLOWk)
	HRRI	X0,YOCSWk +1(XLOW)
	BLT	X0k@,YOCSW+QSWNO-1(XLOW)
u$I; I1S$%W==YOCFDIP
IFNB <B>,<$%W=Ip=YOCFD+<B>
>
IJFE <$$USE-3>,<LI J0$$$VAL
$$USE==1>
$F $%W(A)j7u$^ Lq{
$%W==YOCMFD+2
IFNB <B>,<M0$%W==YOCFD+2+<B>MP>
IFE <$$USE-3>,Mp<LI $$$VAL
$$USEN==1>
IFE $$USE,<N0$F $%W(A)>
IFE NP<$$USE-1>,<$L $%WNp(A)>
IFE <$$USEO-2>,<PRINTX OPD-OO0PR NESTING ERROR>
$$USE==2cO.

`u$j6 Kb$%W==YOCFDK +1
IFNB <B>,<$%K@W==YOCFD+1+<B>
K`>
IFE <$$USE-3>,L<LI $$$VAL
$$USEL ==1>
$F $%W(A)c&|[W@c&|j u&Z YIV$%W==YOCFDYh+5
IFNB <B>,<$%ZW==YOCFD+5+<B>
Z(>
IFE <$$USE-3>,ZH<LI $$$VAL
$$USEZh==1>
$F$%W(A)@
u&

S VAH
$%W==YOCV`FD+4
IFNB <B>,<W$%W==YOCFD+4+<B>W >
IFE <$$USE-3>,W@<LI $$$VAL
$$USEW`==1>
IFE $$USE,<X$F $%W(A)>
IFE X <$$USE-1>,<$R $%WX@(A)>
IFE <$$USEX`-2>,<PRINTX OPD-OYPR NESTING ERROR>
$$USE==2q^

5@u&

U S1/
$%W==YOCSPFD+4
IFNB <B>,<Sp$%W==YOCFD+4+<B>T>
IFE <$$USE-3>,T0<LI $$$VAL
$$USETP==1>
IFE $$USE,<Tp$F $%W(A)>
IFE U<$$USE-1>,<$L $%WU0(A)>
IFE <$$USEUP-2>,<PRINTX OPD-OUpPR NESTING ERROR>
$$USE==2q
@u&P
$%W==YOCP FD+3
IFNB <B>,<P@$%W==YOCFD+3+<B>P`>
IFE <$$USE-3>,Q<LI $$$VAL
$$USEQ ==1>
IFE $$USE,<Q@$F $%W(A)>
IFE Q`<$$USE-1>,<$B [$ZRFDPT B(A)]-$$RER LO($$BAS)>
IFE <R@$$USE-2>,<PRINTX R`INVALID USE OF FIELD>
$$USE==2u&9R [9e$%W==YOCFD[X+6
IFNB <B>,<$%[xW==YOCFD+6+<B>
\>
IFE <$$USE-3>,\8<LI $$$VAL
$$USE\X==1>
$F $%W(A)@
s>|`@uL Q<
IFE <%OP1%-1>,<%OP1 400>
IFE %OP%,<%OP1 77A7377>
IFE <%OP%-!2>,<$$E(<ILL SWITt1CH NAME>)>
IFGE @<%OP%-3>,<IFB <A`>,<%OP1 400>
	IFNB <A>,<%OP1 A, 400>>
IFL<%OP%-2@>,<%OP3 6(A)>
%OP%==2VALID USEuLS )2$%W==20
IHFNB <B>,<$%W==20h+<B>
>
IFE <$$USE-3>,<LI $$$VAL(
$$USE==1>
$F $%W(A)j5WuL)Y 
Y$%W==23
I
8FNB <B>,<$%W==23
X+<B>
>
IFE <$$
xUSE-3>,<LI $$$VAL
$$USE==1>
$F $%W(A)j5VQuL+[ 0Q
IFE %OP%01-1,<%OP2 40000>
0IFE %OP%,<%OP2 771Y7777737777>
IFE 19<%OP%-2>,<$$E(<ILqQL SWITCH NAME>)>
IFGE <%OP%-3>,<I/`FB <A>,<%OP2 400200>
	IFNB <A>,<28%OP2 A,40000>>
2XIFL <%OP%-2>,<%OP2x3 6(A)>
%OP%==2F FIELD>
$$USEuL-3 7!N
$%W==10
IFNB <B>,<$%W==7`10+<B>>
IFE <$$8USE-3>,<LI $$$VAL8 
$$USE==1>
IFE 8@$$USE,<$F $%W(A)8`>
IFE <$$USE-1>,9<$R $%W(A)>
IFE9  <$$USE-2>,<PRINT9@X OPD-OPR NESTING9` ERROR>
$$USE==2cJ$[W@(cJ46uL: 3i5
$%W==10
IFNB <B>,<$%W==510+<B>>
IFE <$$4qUSE-3>,<LI $$$VALq1
$$USE==1>
IFE 4Q$$USE,<$F $%W(A)3>
IFE <$$USE-1>,5P<$B [$ZFICHN B(5pA)]-$$RELO($$BAS)6>
IFE <$$USE-2>,60<PRINTX INVALID U6PSE OF FIELD>
$$USE==2s]>h6uLD  n!
$%W==16
IFNB <B>,<$%W==n`16+<B>>
IFE <$$oUSE-3>,<LI $$$VALo 
$$USE==1>
IFE o@$$USE,<$F $%W(A)o`>
IFE <$$USE-1>,p<$B [$ZFID1 B(Ap )]-$$RELO($$BAS)>p@
IFE <$$USE-2>,<p`PRINTX INVALID USqE OF FIELD>
$$USE==2W@.cN
$%W==17
IFNB <B>,<$%W==| 17+<B>>
IFE <$$|@USE-3>,<LI $$$VAL|`
$$USE==1>
IFE }$$USE,<$F $%W(A)} >
IFE <$$USE-1>,}@<$B [$ZFID2 B(A}`)]-$$RELO($$BAS)>~
IFE <$$USE-2>,<~ PRINTX INVALID US~@E OF FIELD>
$$USE==2W=uM]uLI  1"
IFE <%OP%-1>,<%OP1 1000>
IFE %OP%,<%OP1 7!76777>
IFE <%OP%-2>,<$$E(<ILL SWItQTCH NAME>)>
IFGE  <%OP%-3>,<IFB <@A>,<%OP1 1000>
	`IFNB <A>,<%OP1 A,1000>>
IFL<%OP %-2>,<%OP3 6(A)>
%OP%==2D USE uLI@ u0:
IFE <%OPu%-1>,<%OP1 20000>tp
IFE %OP%,<%OP1 v 757777>
IFE <%OPv%-2>,<$$E(<ILL SWuPITCH NAME>)>
IFGt E <%OP%-3>,<IFB <t@A>,<%OP1 20000>
	IFNB <A>,<%OP1w A,20000>>
IFL<w %OP%-2>,<%OP3 6(A)>
%OP%==2SE uLJ7 Oq
IFE <%OPOQ%-1>,<%OP1 2>
IFO1E %OP%,<%OP1 7777Q75>
IFE <%OP%-2>Pa,<$$E(<ILL SWITCHPA NAME>)>
IFGE <%NaOP%-3>,<IFB <A>,O<%OP1 2>
	IFNB <Q@A>,<%OP1 A,2>>
IFL<%OP%-2>,<%OPR3 11(A)>
%OP%==2INTX INVALID UuLK7 UaU
$%W==12
IFNB <B>,<$%W==X012+<B>>
IFE <$$XPUSE-3>,<LI $$$VALXp
$$USE==1>
IFE Y$$USE,<$F $%W(A)Y0>
IFE <$$USE-1>,YP<$B [$ZFIDMO B(YpA)]-$$RELO($$BAS)Z>
IFE <$$USE-2>,Z0<PRINTX INVALID UZPSE OF FIELD>
$$USE==2Pj5uLKz S1*
IFE <%OPS%-1>,<%OP1 1>
IFRqE %OP%,<%OP1 7777T!76>
IFE <%OP%-2>T,<$$E(<ILL SWITCHoQ NAME>)>
IFGE <%R OP%-3>,<IFB <A>,R@<%OP1 1>
	IFNB <T`A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OPU 3 11(A)>
%OP%==2INTX INVALID UuLLu Bq(
IFE <%OPBQ%-1>,<%OP1 200000B1>
IFE %OP%,<%OP1Ca 577777>
IFE <%OCAP%-2>,<$$E(<ILL SpqWITCH NAME>)>
IFA`GE <%OP%-3>,<IFB B<A>,<%OP1 200000D >
	IFNB <A>,<%OD@P1 A,200000>>
ID`FL<%OP%-2>,<%OP3 E11(A)>
%OP%==2E OF FIELD>
$$UuLM LQt
IFE <%OPL1%-1>,<%OP1 100>
LIFE %OP%,<%OP1 77MA7677>
IFE <%OP%-M!2>,<$$E(<ILL SWIToqCH NAME>)>
IFGE K@<%OP%-3>,<IFB <AK`>,<%OP1 100>
	IFNNB <A>,<%OP1 A,N 100>>
IFL<%OP%-2N@>,<%OP3 11(A)>
%OP%==2NVALID UuLMW ahvw$%W==13
IaIFNB <B>,<$%W==13c+<B>
>
IFE <$$bqUSE-3>,<LI $$$VALnq
$$USE==1>
$F $%W(A)777777777uLXz

r
IFE <%OPq%-1>,<%OP1 100>
QIFE %OP%,<%OP1 77
IFE,<%OP%-LL SWIT

aCH NAME>)>
IFGE <%OP%-3>,<IFB <A >,<%OP1 100>
	IF<A>,<%OP1 A,100>>
IFL<%OP%-2 >,<%OP3 6(A)>
%OP%==2VALID USEuL[R qV
IFE <%OPQ%-1>,<%OP1 200>
1IFE %OP%,<%OP1 77	a7577>
IFE <%OP%-	A2>,<$$E(<ILL SWITtCH NAME>)>
IFGE `<%OP%-3>,<IFB <A>,<%OP1 200>
	IF
 NB <A>,<%OP1 A,
@200>>
IFL<%OP%-2
`>,<%OP3 6(A)>
%OP%==2VALID USEuL^ km
$%W==16
IFNB <B>,<$%W==kP16+<B>>
IFE <$$kpUSE-3>,<LI $$$VALl
$$USE==1>
IFE l0$$USE,<$F $%W(A)lP>
IFE <$$USE-1>,lp<$L $%W(A)>
IFEm <$$USE-2>,<PRINTm0X OPD-OPR NESTINGmP ERROR>
$$USE==2]>h6tc[WuLj6 iAT$%W==15
Ii`FNB <B>,<$%W==15j+<B>
>
IFE <$$j USE-3>,<LI $$$VALj@
$$USE==1>
$F $%W(A) C@t{uLk `0~
$%W==2
`PIFNB <B>,<$%W==2`p+<B>>
IFE <$$USaE-3>,<LI $$$VAL
a0$$USE==1>
IFE $$aPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$bB [$ZFIFLN B(A)b0]-$$RELO($$BAS)>
IFE <$$USE-2>,<PbpRINTX INVALID USEc OF FIELD>
$$USE==2uLkR &AE
IFE %OP%&!-1,<%OP2 400000>
IFE %OP%,<%OP2 7'177777377777>
IFE' <%OP%-2>,<$$E(<Ir1LL SWITCH NAME>)>%0
IFGE <%OP%-3>,<%PIFB <A>,<%OP2 40'p0000>
	IFNB <A>(,<%OP2 A,400000>(0>
IFL <%OP%-2>,<(P%OP3 6(A)>
%OP%==2IELD>
$$USEuLk` Q


IFE <%OP1%-1>,<%OP1 40>
IFE %OP%,<%OP1 777A737>
IFE <%OP%-2!>,<$$E(<ILL SWITCsqH NAME>)>
IFGE <@%OP%-3>,<IFB <A>`,<%OP1 40>
	IFNB <A>,<%OP1 A,40 >>
IFL<%OP%-2>,<@%OP3 6(A)>
%OP%==2INVALID USE uLm ]}~
$%W==2
] IFNB <B>,<$%W==2]@+<B>>
IFE <$$US]`E-3>,<LI $$$VAL
^$$USE==1>
IFE $$^ USE,<$F $%W(A)>
IFE <$$USE-1>,<$^`B [$ZFIFTR B(A)]-$$RELO($$BAS)>
IFE <$$USE-2>,<P_@RINTX INVALID USE_` OF FIELD>
$$USE==2woP sO<8 uMT f1G
$%W==14
IFNB <B>,<$%W==fp14+<B>>
IFE <$$gUSE-3>,<LI $$$VALg0
$$USE==1>
IFE gP$$USE,<$F $%W(A)gp>
IFE <$$USE-1>,h<$R $%W(A)>
IFEh0 <$$USE-2>,<PRINThPX OPD-OPR NESTINGhp ERROR>
$$USE==2uMx e0~=
$%W==5
ePIFNB <B>,<$%W==5ep+<B>>
IFE <$$USfE-3>,<LI $$$VAL
f0$$USE==1>
IFE $$fPUSE,<$F $%W(A)>
IFE <$$USE-1>,<$gR $%W(A)>
IFE <g0$$USE-2>,<PRINTX gPOPD-OPR NESTING ERROR>
$$USE==2uM@ kp~l
IFE <%OPkP%-1>,<%OP1 200000k0>
IFE %OP%,<%OP1l@ 577777>
IFE <%OvPP%-2>,<$$E(<ILL Sv0WITCH NAME>)>
IFj`GE <%OP%-3>,<IFB k<A>,<%OP1 200000m>
	IFNB <A>,<%Om P1 A,200000>>
Im@FL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM3 c`~&$%W==4
IFdNB <B>,<$%W==4+<d B>
>
IFE <$$USd@E-3>,<LI $$$VAL
d`$$USE==1>
$F $%W(A)uM@ xPT
IFE <%OPx0%-1>,<%OP1 10000>x
IFE %OP%,<%OP1 y@767777>
IFE <%OPy %-2>,<$$E(<ILL SWu0ITCH NAME>)>
IFGw@E <%OP%-3>,<IFB <w`A>,<%OP1 10000>
	IFNB <A>,<%OP1z  A,10000>>
IFL<z@%OP%-2>,<%OP3 6(A)>
%OP%==2SE uM89 :1[$%W==11
I:PFNB <B>,<$%W==11:p+<B>
>
IFE <$$;USE-3>,<LI $$$VAL;0
$$USE==1>
$F $%W(A)sJeK$^uMHW "Q)
IFE <%OP"q%-1>,<%OP1 1>
IF#E %OP%,<%OP1 7777#076>
IFE <%OP%-2>#P,<$$E(<ILL SWITCH#p NAME>)>
IFGE <%$OP%-3>,<IFB <A>,$0<%OP1 1>
	IFNB <$PA>,<%OP1 A,1>>
IFL<%OP%-2>,<%OP%3 6(A)>
%OP%==2NTX INVALID USEuM[r u>
$%W==17
IFNB <B>,<$%W==u@17+<B>>
IFE <$$u`USE-3>,<LI $$$VALv
$$USE==1>
IFE v $$USE,<$F $%W(A)v@>
IFE <$$USE-1>,v`<$B [$ZFIMOD B(wA)]-$$RELO($$BAS)w >
IFE <$$USE-2>,w@<PRINTX INVALID Uw`SE OF FIELD>
$$USE==2@q0uM] ?Q


IFE <%OP?1%-1>,<%OP1 20>
I?FE %OP%,<%OP1 777@A757>
IFE <%OP%-2@!>,<$$E(<ILL SWITCqH NAME>)>
IFGE <>@%OP%-3>,<IFB <A>>`,<%OP1 20>
	IFNBA <A>,<%OP1 A,20A >>
IFL<%OP%-2>,<A@%OP3 11(A)>
%OP%==2X INVALID UuMh6 y?$%W==21
IFNB <B>,<$%W==218+<B>
>
IFE <$$XUSE-3>,<LI $$$VALx
$$USE==1>
$F $%W(A)j5VQ~uMh@ q$
IFE <%OPQ%-1>,<%OP1 20>
I1FE %OP%,<%OP1 777A757>
IFE <%OP%-2sQ>,<$$E(<ILL SWITCs0H NAME>)>
IFGE <`%OP%-3>,<IFB <A>,<%OP1 20>
	IFNB <A>,<%OP1 A,20 >>
IFL<%OP%-2>,<@%OP3 6(A)>
%OP%==2INVALID USE uMk -|
IFE %OP%,y-1,<%OP2 100000>
IFE %OP%,<%OP2 7.!77777677777>
IFE. <%OP%-2>,<$$E(<IqqLL SWITCH NAME>)>-a
IFGE <%OP%-3>,<,(IFB <A>,<%OP2 10.`0000>
	IFNB <A>/,<%OP2 A,100000>/ >
IFL <%OP%-2>,</@%OP3 6(A)>
%OP%==2IELD>
$$USEuMm6 Z
IFE <%OPq%-1>,<%OP1 4>
IFQE %OP%,<%OP1 7777!73>
IFE <%OP%-2>,<$$E(<ILL SWITCHa NAME>)>
IFGE <%OP%-3>,<IFB <A>, <%OP1 4>
	IFNB <`A>,<%OP1 A,4>>
IFL<%OP%-2>,<%OP 3 6(A)>
%OP%==2NTX INVALID USEuMxT `y.
$%W==14
IFNB <B>,<$%W==c`14+<B>>
IFE <$$dUSE-3>,<LI $$$VALd 
$$USE==1>
IFE d@$$USE,<$F $%W(A)d`>
IFE <$$USE-1>,e<$L $%W(A)>
IFEe  <$$USE-2>,<PRINTe@X OPD-OPR NESTINGe` ERROR>
$$USE==2uMy@ np
IFE <%OPnP%-1>,<%OP1 100000n0>
IFE %OP%,<%OP1o` 677777>
IFE <%Oo@P%-2>,<$$E(<ILL SvWITCH NAME>)>
IFm`GE <%OP%-3>,<IFB n<A>,<%OP1 100000p >
	IFNB <A>,<%Op@P1 A,100000>>
Ip`FL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM| h~T
IFE <%OPh %-1>,<%OP1 400000h@>
IFE %OP%,<%OP1h` 377777>
IFE <%OiP%-2>,<$$E(<ILL Si WITCH NAME>)>
IFi@GE <%OP%-3>,<IFB i`<A>,<%OP1 400000j>
	IFNB <A>,<%Oj P1 A,400000>>
Ij@FL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM}: {pn
IFE <%OP{P%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7|`73777>
IFE <%OP%|@-2>,<$$E(<ILL SWIuTCH NAME>)>
IFGEz` <%OP%-3>,<IFB <{A>,<%OP1 4000>
	} IFNB <A>,<%OP1 }@A,4000>>
IFL<%OP}`%-2>,<%OP3 6(A)>
%OP%==2ID USEuN	@ r 
IFE <%OPqp%-1>,<%OP1 40000>qP
IFE %OP%,<%OP1 s737777>
IFE <%OPr`%-2>,<$$E(<ILL SWupITCH NAME>)>
IFGqE <%OP%-3>,<IFB <q A>,<%OP1 40000>
	IFNB <A>,<%OP1s` A,40000>>
IFL<t%OP%-2>,<%OP3 6(A)>
%OP%==2SE uN	z )a`
IFE %OP%)A-1,<%OP2 200000>
IFE %OP%,<%OP2 7*i77777577777>
IFE*I <%OP%-2>,<$$E(<IrLL SWITCH NAME>)>*)
IFGE <%OP%-3>,<(pIFB <A>,<%OP2 20+(0000>
	IFNB <A>+H,<%OP2 A,200000>+h>
IFL <%OP%-2>,<,%OP3 6(A)>
%OP%==2IELD>
$$USEuN

 IL$%W==22
IhFNB <B>,<$%W==22	+<B>
>
IFE <$$	(USE-3>,<LI $$$VAL	H
$$USE==1>
$F $%W(A)j53~ruN

S !&
$%W==20
IFNB <B>,<$%W==`20+<B>>
IFE <$$USE-3>,<LI $$$VAL 
$$USE==1>
IFE @$$USE,<$F $%W(A)`>
IFE <$$USE-1>,<$R $%W(A)>
IFE  <$$USE-2>,<PRINT@X OPD-OPR NESTING` ERROR>
$$USE==2	j5WQ	j5WuN

U
$%W==20
IFNB <B>,<$%W==P20+<B>>
IFE <$$pUSE-3>,<LI $$$VAL
$$USE==1>
IFE 0$$USE,<$F $%W(A)P>
IFE <$$USE-1>,p<$L $%W(A)>
IFE <$$USE-2>,<PRINT0X OPD-OPR NESTINGP ERROR>
$$USE==2u-3|8uI;uN
$%W==17
IFNB <B>,<$%W==r17+<B>>
IFE <$$r0USE-3>,<LI $$$VALrP
$$USE==1>
IFE rp$$USE,<$F $%W(A)s>
IFE <$$USE-1>,s0<$B [$ZFIPT B(AsP)]-$$RELO($$BAS)>sp
IFE <$$USE-2>,<tPRINTX INVALID USt0E OF FIELD>
$$USE==2`v,g_y9uN+w Qt
IFE <%OP1%-1>,<%OP1 2>
IFE %OP%,<%OP1 7777A75>
IFE <%OP%-2>!,<$$E(<ILL SWITCHrq NAME>)>
IFGE <%@OP%-3>,<IFB <A>,`<%OP1 2>
	IFNB <A>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP@3 6(A)>
%OP%==2NTX INVALID USEuN9R 
IFE <%OP~q%-1>,<%OP1 2000>
IFE %OP%,<%OP1 775777>
IFE <%OP%a-2>,<$$E(<ILL SWItpTCH NAME>)>
IFGE~ <%OP%-3>,<IFB <~ A>,<%OP1 2000>
	@IFNB <A>,<%OP1 `A,2000>>
IFL<%OP%-2>,<%OP3 6(A)>
%OP%==2ID USEuN< [0}c$%W==2
IF[PNB <B>,<$%W==2+<[pB>
>
IFE <$$US\E-3>,<LI $$$VAL
\0$$USE==1>
$F $%W(A)vQ|	j6=vuN= V0v{$%W==12
IVFNB <B>,<$%W==12WA+<B>
>
IFE <$$W!USE-3>,<LI $$$VALo1
$$USE==1>
$FN$%W(A)77776>
IFE %OP%^Q-1,<%OP2 40>
IFE^1 %OP%,<%OP2 77777_y7777737>
IFE <%O_YP%-2>,<$$E(<ILL SoWITCH NAME>)>
IF_9GE <%OP%-3>,<IFB ]`<A>,<%OP2 40>
	^IFNB <A>,<%OP2 `8A,40>>
IFL <%OP%`X-2>,<%OP3 12(A)>
%OP%==2ALID UuNH  FB
IFE <%OPEq%-1>,<%OP1 20000>EQ
IFE %OP%,<%OP1 G757777>
IFE <%OPFa%-2>,<$$E(<ILL SWpQITCH NAME>)>
IFGE E <%OP%-3>,<IFB <G@A>,<%OP1 20000>
	IFNB <A>,<%OP1H A,20000>>
IFL<H %OP%-2>,<%OP3 11(A)>
%OP%==2USuNJ6 x1Y
$%W==17
IFNB <B>,<$%W==xp17+<B>>
IFE <$$yUSE-3>,<LI $$$VALy0
$$USE==1>
IFE yP$$USE,<$F $%W(A)yp>
IFE <$$USE-1>,z<$B [$ZFITIM B(z0A)]-$$RELO($$BAS)zP>
IFE <$$USE-2>,zp<PRINTX INVALID U{SE OF FIELD>
$$USE==2@u|{uNM ;ar
IFE <%OP<%-1>,<%OP1 10>
I< FE %OP%,<%OP1 777<@767>
IFE <%OP%-2<`>,<$$E(<ILL SWITC=H NAME>)>
IFGE <= %OP%-3>,<IFB <A>=@,<%OP1 10>
	IFNB=` <A>,<%OP1 A,10>>>
IFL<%OP%-2>,<> %OP3 11(A)>
%OP%==2X INVALID UuNM  IQZ
IFE <%OPI1%-1>,<%OP1 10000>I
IFE %OP%,<%OP1 J!767777>
IFE <%OPp1%-2>,<$$E(<ILL SWpITCH NAME>)>
IFGH@E <%OP%-3>,<IFB <H`A>,<%OP1 10000>
	IFNB <A>,<%OP1K A,10000>>
IFL<K %OP%-2>,<%OP3 11(A)>
%OP%==2USuN]q [l
IFE %OP%[!-1,<%OP2 20>
IFE[@ %OP%,<%OP2 77777[`7777757>
IFE <%O\P%-2>,<$$E(<ILL S\ WITCH NAME>)>
IF\@GE <%OP%-3>,<IFB \`<A>,<%OP2 20>
	]IFNB <A>,<%OP2 ] A,20>>
IFL <%OP%]@-2>,<%OP3 12(A)>
%OP%==2ALID UuNy q>
IFE <%OPQ%-1>,<%OP1 10>
I1FE %OP%,<%OP1 777a767>
IFE <%OP%-2A>,<$$E(<ILL SWITCsH NAME>)>
IFGE <`%OP%-3>,<IFB <A>,<%OP1 10>
	IFNB  <A>,<%OP1 A,10@>>
IFL<%OP%-2>,<`%OP3 6(A)>
%OP%==2 INVALID USEuN{ Q
$%W==6
1IFNB <B>,<$%W==6 a+<B>>
IFE <$$US AE-3>,<LI $$$VAL
rQ$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$! B [$ZFIWLR B(A)!@]-$$RELO($$BAS)>
IFE <$$USE-2>,<P"RINTX INVALID USE"  OF FIELD>
$$USE==2u S }"$%W==7
IFS@NB <B>,<$%W==7+<S`B>
>
IFE <$$USTE-3>,<LI $$$VAL
T $$USE==1>
$F $%W(A)@qJ

4 u / {
IFE %OP%/@-1,<%OP2 1>
IFE /`%OP%,<%OP2 7777770777776>
IFE <%OP0 %-2>,<$$E(<ILL SW0@ITCH NAME>)>
IFG0`E <%OP%-3>,<IFB <1A>,<%OP2 1>
	IF1 NB <A>,<%OP2 A,1@1>>
IFL <%OP%-2>1`,<%OP3 3(A)>
%OP%==2NVALID USEuS Tp}/$%W==10
IUFNB <B>,<$%W==10U0+<B>
>
IFE <$$UPUSE-3>,<LI $$$VALUp
$$USE==1>
$F $%W(A)qcV`u-3 G(|L
$%W==5
GHIFNB <B>,<$%W==5Gh+<B>>
IFE <$$USHE-3>,<LI $$$VAL
H($$USE==1>
IFE $$HHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$IR $%W(A)>
IFE <I($$USE-2>,<PRINTX IHOPD-OPR NESTING ERROR>
$$USE==2uI; "0z$%W==1
IF"PNB <B>,<$%W==1+<"pB>
>
IFE <$$US#E-3>,<LI $$$VAL
#0$$USE==1>
$F $%W(A)u^ D8|5
$%W==5
DXIFNB <B>,<$%W==5Dx+<B>>
IFE <$$USEE-3>,<LI $$$VAL
E8$$USE==1>
IFE $$EXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$FL $%W(A)>
IFE <F8$$USE-2>,<PRINTX FXOPD-OPR NESTING ERROR>
$$USE==2uj6 Bh|$%W==4
IFCNB <B>,<$%W==4+<C(B>
>
IFE <$$USCHE-3>,<LI $$$VAL
Ch$$USE==1>
$F $%W(A)uk ,Pzw
$%W==3
,pIFNB <B>,<$%W==3-+<B>>
IFE <$$US-0E-3>,<LI $$$VAL
-P$$USE==1>
IFE $$-pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$.0R $%W(A)>
IFE <.P$$USE-2>,<PRINTX .pOPD-OPR NESTING ERROR>
$$USE==2u6 )`z`
$%W==3
*IFNB <B>,<$%W==3* +<B>>
IFE <$$US*@E-3>,<LI $$$VAL
*`$$USE==1>
IFE $$+USE,<$F $%W(A)>
IFE <$$USE-1>,<$+@L $%W(A)>
IFE <+`$$USE-2>,<PRINTX ,OPD-OPR NESTING ERROR>
$$USE==2uJ6 &pzI
$%W==2
'IFNB <B>,<$%W==2'0+<B>>
IFE <$$US'PE-3>,<LI $$$VAL
'p$$USE==1>
IFE $$(USE,<$F $%W(A)>
IFE <$$USE-1>,<$(PR $%W(A)>
IFE <(p$$USE-2>,<PRINTX )OPD-OPR NESTING ERROR>
$$USE==2uKU Pz
$%W==-1
IFNB <B>,<$%W==-1+<B>>
IFE <$$0USE-3>,<LI $$$VALP
$$USE==1>
IFE p$$USE,<$F $%W(A)>
IFE <$$USE-1>,0<$L $%W(A)>
IFEP <$$USE-2>,<PRINTpX OPD-OPR NESTING  ERROR>
$$USE==2uh6  `z$%W==0
IF!NB <B>,<$%W==0+<! B>
>
IFE <$$US!@E-3>,<LI $$$VAL
!`$$USE==1>
$F $%W(A)um6 9@{Z
IFE %OP%9 -1,<%OP2 10>
IFE9 %OP%,<%OP2 77777:H7777767>
IFE <%O:(P%-2>,<$$E(<ILL Sw0WITCH NAME>)>
IF:GE <%OP%-3>,<IFB 80<A>,<%OP2 10>
	8PIFNB <A>,<%OP2 ;A,10>>
IFL <%OP%;(-2>,<%OP3 3(A)>
%OP%==2LID USEu

 X}I$%W==12
IX0FNB <B>,<$%W==12XP+<B>
>
IFE <$$XpUSE-3>,<LI $$$VALY
$$USE==1>
$F $%W(A){	j688u

S P8}
$%W==7
PXIFNB <B>,<$%W==7Px+<B>>
IFE <$$USQE-3>,<LI $$$VAL
Q8$$USE==1>
IFE $$QXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$RR $%W(A)>
IFE <R8$$USE-2>,<PRINTX RXOPD-OPR NESTING ERROR>
$$USE==2u

U MH|~
$%W==7
MhIFNB <B>,<$%W==7N+<B>>
IFE <$$USN(E-3>,<LI $$$VAL
NH$$USE==1>
IFE $$NhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$O(L $%W(A)>
IFE <OH$$USE-2>,<PRINTX OhOPD-OPR NESTING ERROR>
$$USE==2u
$%W==6
J8IFNB <B>,<$%W==6JX+<B>>
IFE <$$USJxE-3>,<LI $$$VAL
K$$USE==1>
IFE $$K8USE,<$F $%W(A)>
IFE <$$USE-1>,<$KxB [$ZFSPT B(A)]L-$$RELO($$BAS)>
L8IFE <$$USE-2>,<PRLXINTX INVALID USE LxOF FIELD>
$$USE==21cO,[W@1u+w <X{t
IFE %OP%<8-1,<%OP2 4>
IFE <%OP%,<%OP2 777777=`777773>
IFE <%OP=@%-2>,<$$E(<ILL SWwITCH NAME>)>
IFG= E <%OP%-3>,<IFB <;HA>,<%OP2 4>
	IF;hNB <A>,<%OP2 A,> 4>>
IFL <%OP%-2>>@,<%OP3 3(A)>
%OP%==2NVALID USEu8w V@}<$%W==11
IV`FNB <B>,<$%W==11W+<B>
>
IFE <$$W USE-3>,<LI $$$VALW@
$$USE==1>
$F $%W(A)zcu6u9R Y`}V$%W==13
IZFNB <B>,<$%W==13Z +<B>
>
IFE <$$Z@USE-3>,<LI $$$VALZ`
$$USE==1>
$F $%W(A)z	j6;Pu:= $z2
$%W==2
$ IFNB <B>,<$%W==2$@+<B>>
IFE <$$US$`E-3>,<LI $$$VAL
%$$USE==1>
IFE $$% USE,<$F $%W(A)>
IFE <$$USE-1>,<$%`L $%W(A)>
IFE <&$$USE-2>,<PRINTX & OPD-OPR NESTING ERROR>
$$USE==2u=1 3{'
IFE %OP%2p-1,<%OP2 2>
IFE 2P%OP%,<%OP2 7777774777775>
IFE <%OP3x%-2>,<$$E(<ILL SWwpITCH NAME>)>
IFG3XE <%OP%-3>,<IFB <2A>,<%OP2 2>
	IF2 NB <A>,<%OP2 A,4X2>>
IFL <%OP%-2>4x,<%OP3 3(A)>
%OP%==2NVALID USEuy 6({A
IFE %OP%6-1,<%OP2 20>
IFE5h %OP%,<%OP2 77777707777757>
IFE <%O7P%-2>,<$$E(<ILL SwPWITCH NAME>)>
IF6pGE <%OP%-3>,<IFB 5<A>,<%OP2 20>
	58IFNB <A>,<%OP2 7pA,20>>
IFL <%OP%8-2>,<%OP3 3(A)>
%OP%==2LID USEu{ ?P|
$%W==3
?0IFNB <B>,<$%W==3@x+<B>>
IFE <$$US@XE-3>,<LI $$$VAL
vp$$USE==1>
IFE $$@8USE,<$F $%W(A)>
IFE <$$USE-1>,<$?B [$ZFSWLR B(A)A8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PAxRINTX INVALID USEB OF FIELD>
$$USE==2u&4[R Im
	IFE <%OiP%-2>,<$$E(<ILL S

WITCH NAME>)>
	I

(FN <%OP%-2>,<

HIFE <%OP%-3>,<%OP

h3 777777>
	<IFE%4>,<%OP3>
	PIFL(<%OP%-2>,<%
			%OP%==2>j5xQ}eu>4+ 9	
$%W==24
IFNB <B>,<$%W==x24+<B>>
IFE <$$USE-3>,<LI $$$VAL8
$$USE==1>
IFE X$$USE,<$F $%W(A)x>
IFE <$$USE-1>,<$L $%W(A)>
IFE8 <$$USE-2>,<PRINTXX OPD-OPR NESTINGx ERROR>
$$USE==2|N	j69Qzu>5J6 I	 
$%W==24
IFNB <B>,<$%W==24+<B>>
IFE <$$(USE-3>,<LI $$$VALH
$$USE==1>
IFE h$$USE,<$F $%W(A)>
IFE <$$USE-1>,(<$R $%W(A)>
IFEH <$$USE-2>,<PRINThX OPD-OPR NESTING ERROR>
$$USE==2Q{z	j6<W{zuB5J7 	

$%W==26
IFNB <B>,<$%W==H26+<B>>
IFE <$$hUSE-3>,<LI $$$VAL
$$USE==1>
IFE ($$USE,<$F $%W(A)H>
IFE <$$USE-1>,h<$R $%W(A)>
IFE  <$$USE-2>,<PRINT (X OPD-OPR NESTING H ERROR>
$$USE==2uB5K y	k
$%W==26
IFNB <B>,<$%W==826+<B>>
IFE <$$XUSE-3>,<LI $$$VALx
$$USE==1>
IFE $$USE,<$F $%W(A)8>
IFE <$$USE-1>,X<$L $%W(A)>
IFEx <$$USE-2>,<PRINTX OPD-OPR NESTING8 ERROR>
$$USE==2Pj6<PuB5L i	R
$%W==25
IFNB <B>,<$%W==(25+<B>>
IFE <$$HUSE-3>,<LI $$$VALh
$$USE==1>
IFE $$USE,<$F $%W(A)(>
IFE <$$USE-1>,H<$R $%W(A)>
IFEh <$$USE-2>,<PRINTX OPD-OPR NESTING( ERROR>
$$USE==2Pj5sPuB6< Y	9
$%W==25
IFNB <B>,<$%W==25+<B>>
IFE <$$8USE-3>,<LI $$$VALX
$$USE==1>
IFE x$$USE,<$F $%W(A)>
IFE <$$USE-1>,8<$L $%W(A)>
IFEX <$$USE-2>,<PRINTxX OPD-OPR NESTING ERROR>
$$USE==2Pj5PuO<I; PA

$%W==0
IFP`NB <B>,<$%W==0+<QB>
>
IFE <$$USQ E-3>,<LI $$$VAL
Q@$$USE==1>
$F$%W(A)r{G	j6=vuO<^ Sa
$%W==2
TIFNB <B>,<$%W==2T +<B>>
IFE <$$UST@E-3>,<LI $$$VAL
T`$$USE==1>
IFE $$UUSE,<$F $%W(A)>
IFE <$$USE-1>,<$U@L $%W(A)>
IFE <U`$$USE-2>,<PRINTX VOPD-OPR NESTING ERROR>
$$USE==2uO<j6 R
IFR0NB <B>,<$%W==1+<RPB>
>
IFE <$$USRpE-3>,<LI $$$VAL
S$$USE==1>
$F $%W(A)	T	klxuO>

VQ==4
IFVpNB <B>,<$%W==4+<WB>
>
IFE <$$USW0E-3>,<LI $$$VAL
WP$$USE==1>
$F $%W(A)9stGtVub q$%W==13
IFNB <B>,<$%W==130+<B>
>
IFE <$$PUSE-3>,<LI $$$VALp
$$USE==1>
$F $%W(A)/	j57ubS pq$%W==2
IFqNB <B>,<$%W==2+<q0B>
>
IFE <$$USqPE-3>,<LI $$$VAL
qp$$USE==1>
$F $%W(A)S}%u-3ub^ ua@
$%W==5
vIFNB <B>,<$%W==5v +<B>>
IFE <$$USv@E-3>,<LI $$$VAL
v`$$USE==1>
IFE $$wUSE,<$F $%W(A)>
IFE <$$USE-1>,<$w@L $%W(A)>
IFE <w`$$USE-2>,<PRINTX xOPD-OPR NESTING ERROR>
$$USE==2ubj6 t)$%W==4
IFt0NB <B>,<$%W==4+<tPB>
>
IFE <$$UStpE-3>,<LI $$$VAL
u$$USE==1>
$F $%W(A)	UuB5LubI7 !$%W==12
I@FNB <B>,<$%W==12`+<B>
>
IFE <$$USE-3>,<LI $$$VAL 
$$USE==1>
$F $%W(A)I	j51ubI` n
$%W==1
n IFNB <B>,<$%W==1n@+<B>>
IFE <$$USn`E-3>,<LI $$$VAL
o$$USE==1>
IFE $$o USE,<$F $%W(A)>
IFE <$$USE-1>,<$o`R $%W(A)>
IFE <p$$USE-2>,<PRINTX p OPD-OPR NESTING ERROR>
$$USE==2ubKS }Qu$%W==7
IF}pNB <B>,<$%W==7+<~B>
>
IFE <$$US~0E-3>,<LI $$$VAL
~P$$USE==1>
$F $%W(A)7\	j5<ub@ rA$%W==3
IFr`NB <B>,<$%W==3+<sB>
>
IFE <$$USs E-3>,<LI $$$VAL
s@$$USE==1>
$Fb$%W(A)U|ju

Z xQM$%W==6
IFxpNB <B>,<$%W==6+<yB>
>
IFE <$$USy0E-3>,<LI $$$VAL
yP$$USE==1>
$F$%W(A)7	j$kzub
$%W==6
z@IFNB <B>,<$%W==6z`+<B>>
IFE <$$US{E-3>,<LI $$$VAL
{ $$USE==1>
IFE $${@USE,<$F $%W(A)>
IFE <$$USE-1>,<$|B [$ZXBPT B(A)]| -$$RELO($$BAS)>
|@IFE <$$USE-2>,<PR|`INTX INVALID USE }OF FIELD>
$$USE==25QW	j5ugS iQ$%W==2
IFi0NB <B>,<$%W==2+<iPB>
>
IFE <$$USipE-3>,<LI $$$VAL
j$$USE==1>
$F $%W(A){t

uLug  ja^$%W==4
IFkNB <B>,<$%W==4+<k B>
>
IFE <$$USk@E-3>,<LI $$$VAL
k`$$USE==1>
$F $%W(A)z>uLLuug9R l1k$%W==5
IFlPNB <B>,<$%W==5+<lpB>
>
IFE <$$USmE-3>,<LI $$$VAL
m0$$USE==1>
$F $%W(A)x~)uM@$Y@P $\h _[

IFGE	^K0D17-^D0,<
IFB <GPC>,<DEFINE YDSACTA((ACC)<
IFE <%OP%7h-1>,<%OP1 B>
IF4(E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$_E(<ILL SWITCH NAMWE>)>
IFGE <%OP%-S`3>,<IFB <ACC>,<%OP P1 B>
	IFNB <ACMC>,<%OP1 ACC,B>>J
IFL<%OP%-2>,<%OF@P3 YDSWIT(ACC)>
C %OP%==2>>
IFNB <@C>,<DEFINE YDSAC40T=<
IFE <%OP%-1>0x,<%OP1 B>
IFE %-@OP%,<%OP1 A>
IF*E <%OP%-2>,<$$E(<&pILL SWITCH NAME>)  >
IFGE <%OP%-3>,<%OP1 C,B>
IFL@ <%OP%-2>,<%OP3 Y DSWIT(C)>
%OP%= =2>>>

IFL ^D17-^D0,<
IFB <>,<D

@EFINE YDSACT(ACC)	 <
IFE %OP%-1,<%OP2 B>
IFE %OP%,`<%OP2 A>
IFE <%@OP%-2>,<$$E(<ILL | SWITCH NAME>)>
IyFGE <%OP%-3>,<IFBu` <ACC>,<%OP2 B>
	IFNB <ACC>,<%OPo 2 ACC,B>>
IFL <l %OP%-2>,<%OP3 YDS@WIT(ACC)>
%OP%===2>>
IFNB <>,<DEF9hINE YDSACT=<
IFE6P <%OP%-1>,<%OP2 38B>
IFE %OP%,<%OPxP2 A>
IFE <%OP%-xp2>,<$$E(<ILL SWITyCH NAME>)>
IFGE yP<%OP%-3>,<%OP2 ClP,B>
IFL <%OP%-2lp>,<%OP3 YDSWIT(C;0)>
%OP%==2>>
>
j57Q@	j57	jZQ	jZ	jwQ	jw	jwQ"	jw"	j	YQF	j	YF	jQ$H	j$H	jQD	jD	jH	j^Q H	j$hVQ H	j$hV H	j$i7Q 	j$i7 	j$j6Q $H
	j$j6 $H
	j$kQ H
	j$k H
	j$kQ H
	j$k H
	j$k7Q F	j$k7 F	j$kzQ D	j$kz D	j$mqQ $H
	j$mq $H
	j&.XQ 	j4IQ V	j4I V	j4I<Q $HW	j4I< $HW	j4ITQ V	j4IT V	j4LQ X	j4L X	j4LQ $HX	j4L HX	j4LQ 6$W	j4L 6$W	j4LsQ Y	j4Ls Y	j58Q 4	j58 4	j59Q 	j59 	j5SQ 		j5S 		j5WQ 	j5W 	j5ZQ H	j5Z H	j5tQ .	j5t .	j5Q 0	j5 0	j5	Q 0	j5	 0	j5Q 6	j5 6	j5Q >	j5 >	j5Q &	j5 &	j5Q 	j5 	j5Q $	j5 $	j5Q D	j5 D	j5Q 0	j5 0	j5Q 	j5 	j51Q 0	j51 0	j57Q 2	j57 2	j5<Q $H	j5< $H	j5TQ 	j5T 	j5VQ "D	j5V "D	j5WQ "	j5W "	j5WQ .	j5W .	j5ZQ D	j5Z D	j51Q H	j51 H	j51Q H	j51 H	j53Q D	j53 D	j56Q 	j56 	j57Q <	j57 <	j5pQ 	j5p 	j5Q $	j5 $	j57Q .	j57 .	j5:Q ,	j5: ,	j5PQ 	j5P 	j5QQ ,	j5Q ,	j5VQ 	j5V 	j5ZQ (	j5Z (	j5qQ $H	j5q $H	j5sQ B	j5s B	j5xQ F	j5x F	j5zQ :	j5z :	j5Q @	j5 @	j5Q  	j5  	j5Q 		j5 		j5Q $H	j5 H	j5Q 6$	j5 6$	j5WQ &	j5W &	j5sQ 8	j5s 8	j5xQ 	j5x 	j5zQ 	j5z 	j5|Q 
	j5| 
	j5Q >	j5 >	j5Q 0	j5 0	j5Q *	j5 *	j5Q <	j5 <	j5;Q 	j5; 	j5rQ *	j5r *	j5vQ &

	j5v &

	j682Q 	j682 	j688Q 	j688 	j689Q 	j689 	j68ZQ H	j68Z H	j69Q 	j69 	j69<Q $H	j69< $H	j69TQ 	j69T 	j69VQ H	j69V H	j6:6Q $H	j6:6 $H	j6;Q H	j6; H	j6;Q $H	j6; $H	j6;PQ 	j6;P 	j6;ZQ 	j6;Z 	j6<Q 	j6< 	j6<Q $H	j6< H	j6<Q 6$	j6< 6$	j6<WQ 	j6<W 	j6<qQ 	j6<q 	j6<sQ 	j6<s 	j6<tQ $H	j6<t $H	j6<zQ 	j6<z 	j6=rQ 	j6=r 	j6=vQ

	j6=v

	jLi7Q 	jLi7 	j|hVQ $H
	j|hV $H
	j|kQ H
	j|k H
	kkQ H	kk H	kkQ $H	kk $H	kkQ H
	kk H
	klxQ $H
	klx $H
	kyQ 	ky 	ky<Q $H	ky< $H	kyTQ 	kyT 	k|Q 	k| 	kD(6Q 	kD(6 	kD(9Q 	kD(9 	kD)<Q $H	kD)< $H	kD)TQ 	kD)T 	kD+Q 	kD+ 	kD+Q H	kD+ H	kD+Q 	kD+ 	kD,	Q 	kD,	 	kD,Q 	kD, 	kD,Q 6$	kD, 6$	kN89Q 	kN89 	kN<Q 	kN< 	kN<sQ 	kN<s 
(Q(P j

<{PjZPjwPjwP	j	YPjPjPjQP j$hVP j$i7P j$j6P j$kP j$kP j$k7P j$kzP j$mqP j4IP j4I<P j4ITP j4LP j4LP j4LP j4LsP j58P j59P j5SP j5WP 
j5ZP j5tP j5P j5	P j5P j5P j5P j5P j5P j5P j5P j5P j51P j57P j5<P j5TP j5VP 	j5WP 	j5WP j5ZP j51P j51P j53P j56P j57P j5pP j5P j57P j5:P j5PP j5QP j5VP 
j5ZP j5qP j5sP j5xP j5zP j5P j5P 	j5P j5P j5P j5WP j5sP j5xP j5zP j5|P j5P j5P

j5P j5P j5;P j5rP j5vP j67P j682P j688P j689P j68ZP j69P j69<P j69TP j69VP j6:6P j6;P j6;P j6;PP j6;ZP j6<P j6<P j6<P j6<WP j6<qP j6<sP j6<tP j6<zP j6=rP j6=vP jLi7P j|hVP j|kP kJwP kkP kkP kkP klxP kyP ky<P kyTP k|P k$MP kD(6P kD(9P kD)<P kD)TP kD+P kD+P kD+P kD,	P kD,P kD,P kN89P kN<P kN<sP :pP S@P &|vP &|*7P &|K8P &|LP &}VP &}P &}3P &~
6P *|@ .>}{woP