Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0135/comp/simrpa.unv
There are 6 other files named simrpa.unv in the archive. Click here to see a list.
x
,C@P C@t{@ C@tk{@  C@u@  C@un@ C@v)7@$CO\Z XDGeK{ p0wSETZM	YDSCSW(XLOW),|P G,i9 ppwAOS	YDSCSW(XLOW)knXP GtV q0wSOS	YDSCSW(XLOW)kKVP G~(T qpwHRROS	YDSCSW(XLOW)NXP HMy a	6
	IFG <IOa(DF-400K>,<EXTERN	aHIODF%S,IODF%I,IODahF%M,IODF%Y,IODF%Db>
IFNB <IOFI>,<
	IF1,<IFNDEF .IObHFI,<EXTERN .IOFI>bh>
	Z	.IOFI
>
	cIFB <IOFI>,<Z>
	c(BYTE	(1)(3)QIOFI(cH1)1(13)0(18)IODF%chS	;[63]
	Z	IODF%dI		
	XWD	-2,1
.d(IODF::	XWD	QDFLNGdH,IODF%M	
	XWD	QFdhIEBL,IODF%Y	
	XWeD	,QFIDLE		
	BYTe(E	(1)1(17)0(18)IOeHDF%D	
	IFNB <Z>,eh<
	Z	
	>
IFG <fIODF-400K>,<
IFNf( <<.-.IODF>-<IODFfH%E-IODF>>,<CFAIL fhINCONSIST. PROT. FOR IODF>
>HMyT 4IP
	IFG <IO4hFI-400K>,<EXTERN	5IOFI%S,IOFI%I,IOF5(I%M,IOFI%Y,IOFI%D5H>
IFNB <>,<
	IF5h1,<IFNDEF .,<EXTE6RN .>>
	Z	.
>
6(	IFB <>,<Z>
	BYT6HE	(1)(3)QIOFI(1)16h(13)0(18)IOFI%S	;7[63]
	Z	IOFI%I		7(
	XWD	-2,
.IOFI7H::	XWD	QFILNG,IOF7hI%M	
	XWD	QFIEBL8,IOFI%Y	
	XWD	1,8(QFIDLE		
	BYTE	(8H1)1(17)0(18)IOFI%8hD	
	IFNB <PTX>,<9
	PTX	
	>
IFG 9(<IOFI-400K>,<
IF9HN <<.-.IOFI>-<IOF9hI%E-IOFI>>,<CFAIL: INCONSIST. PROT. FOR IOFI>
>HMz7 ?)(
	IFG <IO?HIN-400K>,<EXTERN	?hIOIN%S,IOIN%I,IOI@N%M,IOIN%Y,IOIN%D@(>
IFNB <IOFI>,<
	IF1,<IFNDEF .IO@hFI,<EXTERN .IOFI>A>
	Z	.IOFI
>
	A(IFB <IOFI>,<Z>
	AHBYTE	(1)(3)QIOFI(Ah1)1(13)0(18)IOIN%BS	;[63]
	Z	IOIN%B(I		
	XWD	-2,1
.BHIOIN::	XWD	QIFLNGBh,IOIN%M	
	XWD	QFCIEBL,IOIN%Y	
	XWC(D	,QFIDLE		
	BYTCHE	(1)1(17)0(18)IOChIN%D	
	IFNB <Z>,D<
	Z	
	>
IFG <D(IOIN-400K>,<
IFNDH <<.-.IOIN>-<IOINDh%E-IOIN>>,<CFAIL EINCONSIST. PROT. FOR IOIN>
> HM{z JI
	IFG <IOJhOU-400K>,<EXTERN	KIOOU%S,IOOU%I,IOOK(U%M,IOOU%Y,IOOU%DKH>
IFNB <IOFI>,<
	IF1,<IFNDEF .IOLFI,<EXTERN .IOFI>L(>
	Z	.IOFI
>
	LHIFB <IOFI>,<Z>
	LhBYTE	(1)(3)QIOFI(M1)1(13)0(18)IOOU%M(S	;[63]
	Z	IOOU%MHI		
	XWD	-2,1
.MhIOOU::	XWD	QOFLNGN,IOOU%M	
	XWD	QFN(IEBL,IOOU%Y	
	XWNHD	,QFIDLE		
	BYTNhE	(1)1(17)0(18)IOOOU%D	
	IFNB <Z>,O(<
	Z	
	>
IFG <OHIOOU-400K>,<
IFNOh <<.-.IOOU>-<IOOUP%E-IOOU>>,<CFAIL P(INCONSIST. PROT. FOR IOOU>
>WHM| Ui\
	IFG <IOVPF-400K>,<EXTERN	V(IOPF%S,IOPF%I,IOPVHF%M,IOPF%Y,IOPF%DVh>
IFNB <IOOU>,<
	IF1,<IFNDEF .IOW(OU,<EXTERN .IOOU>WH>
	Z	.IOOU
>
	WhIFB <IOOU>,<Z>
	XBYTE	(1)(3)QIOFI(X(1)1(13)0(18)IOPF%XHS	;[63]
	Z	IOPF%XhI		
	XWD	-2,2
.YIOPF::	XWD	QPFLNGY(,IOPF%M	
	XWD	QFYHIEBL,IOPF%Y	
	XWYhD	,QFIDLE		
	BYTZE	(1)1(17)0(18)IOZ(PF%D	
	IFNB <Z>,ZH<
	Z	
	>
IFG <ZhIOPF-400K>,<
IFN[ <<.-.IOPF>-<IOPF[(%E-IOPF>>,<CFAIL [HINCONSIST. PROT. FOR IOPF>
>@H: z
	IFG <SSz8HD-400K>,<EXTERN	zXSSHD%S,SSHD%I,SSHzxD%M,SSHD%Y,SSHD%D{>
IFNB <SSLG>,<
	IF1,<IFNDEF .SS{XLG,<EXTERN .SSLG>{x>
	Z	.SSLG
>
	|IFB <SSLG>,<Z>
	|8BYTE	(1)(3)QSSLG(|X1)0(13)0(18)SSHD%|xS	;[63]
	Z	SSHD%}I		
	XWD	.SIMLV,}81
.SSHD::	XWD	ZL}XG%S,SSHD%M	
	XWD}x	.SIMLV-1,SSHD%Y	~
	XWD	,3+.SIMVL	~8	
	BYTE	(1)(17)0~X(18)SSHD%D	
	IFN~xB <>,<
		
	>
IFG <SSHD-400K>,<
IFN <<.-.SSHD>-<XSSHD%E-SSHD>>,<CFxAIL INCONSIST. PROT. FOR SSHD>
>9H; by'
	IFG <SSbYLG-400K>,<EXTERN	b9SSLG%S,SSLG%I,SSLpG%M,SSLG%Y,SSLG%Dp8>
IFNB <>,<
	IFpX1,<IFNDEF .,<EXTEpxRN .>>
	Z	.
>
q	IFB <>,<Z>
	BYTq8E	(1)(3)QSSLG(1)0qX(13)0(18)SSLG%S	;qx[63]
	Z	SSLG%I		r
	XWD	.SIMLV,0
r8.SSLG::	XWD	ZLG%SrX,SSLG%M	
	XWD	.SrxIMLV-1,SSLG%Y	
	sXWD	,3+.SIMVL		
s8	BYTE	(1)(17)0(18sX)SSLG%D	
	IFNB <sx>,<
		
	>
IFG t<SSLG-400K>,<
IFt8N <<.-.SSLG>-<SSLtXG%E-SSLG>>,<CFAILtx INCONSIST. PROT. FOR SSLG>
>z`H; Y]
	IFG <SSxLK-400K>,<EXTERN	SSLK%S,SSLK%I,SSL8K%M,SSLK%Y,SSLK%DX>
IFNB <SSLG>,<
	IF1,<IFNDEF .SSLG,<EXTERN .SSLG>8>
	Z	.SSLG
>
	XIFB <SSLG>,<Z>
	xBYTE	(1)(3)QSSLG(1)0(13)0(18)SSLK%8S	;[63]
	Z	SSLK%XI		
	XWD	.SIMLV,x1
.SSLK::	XWD	ZL	G%S,SSLK%M	
	XWD	8	.SIMLV-1,SSLK%Y		X
	XWD	,3+.SIMVL		x	
	BYTE	(1)(17)0
(18)SSLK%D	
	IFN
8B <>,<
		
	>
I
XFG <SSLK-400K>,<
x
IFN <<.-.SSLK>-<SSLK%E-SSLK>>,<CF8AIL INCONSIST. PRXOT. FOR SSLK>
>
fuB5L
MH<z ey[
	IFG <SSfST-400K>,<EXTERN	f8SSST%S,SSST%I,SSSfXT%M,SSST%Y,SSST%Dfx>
IFNB <>,<
	IFg1,<IFNDEF .,<EXTEg8RN .>>
	Z	.
>
gX	IFB <>,<Z>
	BYTgxE	(1)1(3)(1)1(13)h0(18)SSST%S	;[63]h8
	Z	SSST%I		
	XhXWD	0,0
.SSST::	XhxWD	ZBI%S,SSST%M	
	XWD	.SIMLV,SSSTi8%Y	
	XWD	,3+.SIMiXVL-1		
	BYTE	(1)ix(17)0(18)SSST%D	
	IFNB <>,<
		
j8	>
IFG <SSST-400jXK>,<
IFN <<.-.SSjxST>-<SSST%E-SSST>k>,<CFAIL INCONSISk8T. PROT. FOR SSST>
>KK;r|jH[0 'yo
	IFG <SU(MA-400K>,<EXTERN	(8SUMA%S,SUMA%I,SUM(XA%M,SUMA%Y,SUMA%D(x>
IFNB <SUPS>,<
	IF1,<IFNDEF .SU)8PS,<EXTERN .SUPS>)X>
	Z	.SUPS
>
	)xIFB <SUPS>,<Z>
	*BYTE	(1)(3)QSUPS(*81)0(13)0(18)SUMA%*XS	;[63]
	Z	SUMA%*xI		
	XWD	.SIMLV,+3
.SUMA::	XWD	ZP+8S%S,SUMA%M	
	XWD+X	.SIMLV-1,SUMA%Y	+x
	XWD	,3+.SIMVL	,	
	BYTE	(1)(17)0,8(18)SUMA%D	
	IFN,XB <>,<
		
	>
I,xFG <SUMA-400K>,<
IFN <<.-.SUMA>-<-8SUMA%E-SUMA>>,<CF-XAIL INCONSIST. PR-xOT. FOR SUMA>
>@cY@H\ d
	IFG <SUcYPS-400K>,<EXTERN	c9SUPS%S,SUPS%I,SUPS%M,SUPS%Y,SUPS%D8>
IFNB <SSLK>,<
	IF1,<IFNDEF .SSxLK,<EXTERN .SSLK>>
	Z	.SSLK
>
	8IFB <SSLK>,<Z>
	XBYTE	(1)(3)QSUPS(x1)0(13)0(18)SUPS%S	;[63]
	Z	SUPS%8I		
	XWD	.SIMLV,X2
.SUPS::	XWD	ZPxS%S,SUPS%M	
	XWD 	.SIMLV-1,SUPS%Y	 8
	XWD	,3+.SIMVL	 X	
	BYTE	(1)(17)0 x(18)SUPS%D	
	IFN!B <>,<
		
	>
I!8FG <SUPS-400K>,<
IFN <<.-.SUPS>-<!xSUPS%E-SUPS>>,<CF"AIL INCONSIST. PR"8OT. FOR SUPS>
>%	j682Q5H\t ?
	IFG <SU8SI-400K>,<EXTERN	XSUSI%S,SUSI%I,SUSxI%M,SUSI%Y,SUSI%D>
IFNB <SSST>,<
	IF1,<IFNDEF .SSXST,<EXTERN .SSST>x>
	Z	.SSST
>
	IFB <SSST>,<Z>
	8BYTE	(1)1(3)QSUSIX(1)1(13)0(18)SUSIx%S	;[63]
	Z	SUSI%I		
	XWD	0,1
.8SUSI::	XWD	ZSU%S,XSUSI%M	
	XWD	.SIxMLV,SUSI%Y	
	XWD	,3+.SIMVL-1		
	8BYTE	(1)(17)0(18)XSUSI%D	
	IFNB <>x,<
		
	>
IFG <SUSI-400K>,<
IFN8 <<.-.SUSI>-<SUSIX%E-SUSI>>,<CFAIL xINCONSIST. PROT. FOR SUSI>
>	Idy O9I
DEFINE DOX%A<
	IFG <A-40Ox0K>,<EXTERN	A%S,PA%I,A%M,A%Y,AP8%D>
IFNB <B>,<
	IF1,<IFNDEF .BPx,<EXTERN .B>>
	QZ	.B
>
	IFB <Q8B>,<Z>
	BYTE	(1)QXL(3)C(1)D(13)0Qx(18)A%S	;[63]
	RZ	A%I		
	XWD	HR8,E
.A::	XWD	FRX,A%M	
	XWD	I,RxA%Y	
	XWD	J,G	S	
	BYTE	(1)M(17S8)0(18)A%D	
	IFNSXB <K>,<
	K	
	Sx>
IFG <A-400K>,T<
IFN <<.-.A>-<T8A%E-A>>,<CFAIL TXINCONSIST. PROT. TxFOR A>
>>
DEFIUNE E%A<
IFNB <U8B>,<
	IF1,<IFNDEUXF .B,<EXTERN .BUx>>
	Z	.B
>
	IVFB <B>,<Z>
	BYTV8E	(1)L(3)C(1)DVX(13)0(18)0	
	Z	0Vx	
	XWD	H,E
.WA::	XWD	F,0	
	XW8WD	I,0	
	XWD	JWX,G	
	BYTE	(1)MWx(17)0(18)0 
	IFNXB <K>,<
	K	
	X8>
IFG <A-400K>,XX<
IFN <<.-.A>-<XxA%E-A>>,<CFAIL YINCONSIST. PROT. FOR A>
>>I x{
$$DEF==0
IFE <^DC-^D36>8,<DEFINE A(XB,O)X=
<$%W==B
IFNBx <O>,<$%W==B+<O>
>
IFE <$$USE-38>,<LI $$$VAL
$$UXSE==1>
$F $%W(XBx)>
$$DEF==1>
IFE <^DC-^D18>,<IF8E <^DD-^D17>,
<X
DEFINE A(XB,O)x=<
$%W==B
IFNB <O>,<$%W==B+<O>8>
IFE <$$USE-3>,X<LI $$$VAL
$$USEx==1>
IFE $$USE,<$F $%W(XB)>
IFE 8<$$USE-1>,<$L $%WX(XB)>
IFE <$$USEx-2>,<PRINTX OPD-OPR NESTING ERROR>8
$$USE==2>
$$DEXF==1>
IFE <^DD-x^D35>,
<DEFINE A(XB,O)=<
$%W==8B
IFNB <O>,<$%W=X=B+<O>>
IFE <$$xUSE-3>,<LI $$$VAL	
$$USE==1>
IFE 	8$$USE,<$F $%W(XB)	X>
IFE <$$USE-1>,	x<$R $%W(XB)>
IFE
 <$$USE-2>,<PRINT
8X OPD-OPR NESTING
X ERROR>
$$USE==2
x>
$$DEF==1>
>
IFE $$DEF,<
DEFI8NE A(XB,O)=<
$%XW==B
IFNB <O>,<x$%W==B+<O>>
IFE
 <$$USE-3>,<LI $$
8$VAL
$$USE==1>

XIFE $$USE,<$F $%W
x(XB)>
IFE><$$USEABO(XB
IFEI<$$USE-2>,<USE OF FIELD>
$$US8E==2>
$$DEF==1>
OPDEF $A [POINTx C,B,D]
$A==$A
%A==^DD
I8FE <^DC-1>,<DSW (A,B,D)>
IO8 	

IFL <^8D36-^DC>,<$$E(<TXOO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFIN8E A(ACC)=<
	IFEX <%OP%-2>,<$$E(<IxLL SWITCH NAME>)>
	IFN <%OP%-2>,<8
	 IFE <%OP%-3>,X<%OP3 777777>
	 xIFE <%OP%-4>,<%OP3>
	IFL <%OP%-28>,<%OP4 B(ACC)>
			%OP%==2>>>
 xIFNB <D>,<DEFINE  A=<
	IFE <%OP% 8-2>,<$$E(<ILL SWI XTCH NAME>)>
	IFN x <%OP%-2>,<
	 IF!E <%OP%-3>,<%OP3 !8D,777777>
	 IFE!X <%OP%-4>,<%OP3 !xD,>
	"IFL <%OP%-"2>,<%OP4 B(D)>
		     %OP%==2>>"X>>
IFGE	^D35-^D"xC,<
	VA==1BC
#IFE	^DC,<
	CA=#8=377777777777>
I#XFN	^DC,<
	CA==#x-1*VA-1>
IFGE ^$D17-^DC,<
	CA=$8=CA_-^D18
	VA=$X=VA_-^D18>

DE$xFINE	$$TES1(X,Y,Z%)<

IFGE	^D17-^%8DC,<
IFB <Z>,<D%XEFINE A(ACC)<
I%xFE <%OP%-1>,<%OP1& Y>
IFE %OP%,<%O&8P1 X>
IFE <%OP%-&X2>,<$$E(<ILL SWIT&xCH NAME>)>
IFGE '<%OP%-3>,<IFB <AC'8C>,<%OP1 Y>
	IFN'XB <ACC>,<%OP1 ACC'x,Y>>
IFL<%OP%-2>(,<%OP3 B(ACC)>
(8%OP%==2>>
IFNB <(XZ>,<DEFINE A=<
(xIFE <%OP%-1>,<%OP)1 Y>
IFE %OP%,<%)8OP1 X>
IFE <%OP%)X-2>,<$$E(<ILL SWI)xTCH NAME>)>
IFGE* <%OP%-3>,<%OP1 Z*8,Y>
IFL <%OP%-2>*X,<%OP3 B(Z)>
%O*xP%==2>>>

IFL ^+D17-^DC,<
IFB <+8D>,<DEFINE A(AC+XC)<
IFE %OP%-1,<+x%OP2 Y>
IFE %OP%,,<%OP2 X>
IFE <%,8OP%-2>,<$$E(<ILL ,XSWITCH NAME>)>
I,xFGE <%OP%-3>,<IFB- <ACC>,<%OP2 Y>
-8	IFNB <ACC>,<%OP2-X ACC,Y>>
IFL <%O-xP%-2>,<%OP3 B(AC.C)>
%OP%==2>>
I.8FNB <D>,<DEFINE .XA=<
IFE <%OP%-1.x>,<%OP2 Y>
IFE %/OP%,<%OP2 X>
IFE/8 <%OP%-2>,<$$E(<I/XLL SWITCH NAME>)>/x
IFGE <%OP%-3>,<0%OP2 Z,Y>
IFL <%08OP%-2>,<%OP3 B(Z0X)>
%OP%==2>>
>0x
>
	$$TES1(\CA,1\VA,D)
	PURGE VA,CA
>
Ik@ [Y
	S==0
	[xIFNB	<B>,<S==B>\
	K==QSIMPLE
	I\8FNB	<E>,<K==E>
	M==QDECLARED
	\xIFNB	<D>,<M==D>]
	N==0
	IRPC	A]9,<N==N+1>
	IFG	<]XN-^D12>,<PRINTX ]xA too long>
	Q==^0
	IFG	<N-6>,<Q=^8=1B0>
	Q==Q+<S>B^X<%ZSDSPI>+<C>B<%^xZSDTYP>+<M>B<%ZSD_MOD>+<K>B<%ZSDKND_8>+F
	EXP	Q
	SI_XXBIT/A/
	IFE	<_xC-QREF>,<
	IFB	<`G>,<PRINTX REF q`8uantity should ha`Xve qualif>
	Z	G
>9	j5 IkXv YYY
	SIXBIT/YxA/
	N==0
	IRPCZ	A,<N==N+1>
	IFZ8L	<N-7>,<Z>
	IFNZXB	<C>,<N==C>
	ZxIFB	<C>,<N==.+1>[
B%Y::	<QSYSCL>B<%ZSMTYP>+N
#JMy g)^
IFNB <IOgHFI>,<
	IF1,<IFNDghEF .IOFI,<EXTERN h.IOFI>>
	Z	.IOFIh(
>
	IFB <IOFI>,hH<Z>
	BYTE	(1)(3)hhQIOFI(1)1(13)0(18i)0	
	Z	0	
	XWD	i(-2,1
.IODF::	XWDiH	QDFLNG,0	
	XWD	ihQFIEBL,0	
	XWD	,jQFIDLE	
	BYTE	(1j()1(17)0(18)0 
	IjHFNB <Z>,<
	Z	
	jh>
IFG <IODF-400Kk>,<
IFN <<.-.IODk(F>-<IODF%E-IODF>>kH,<CFAIL INCONSISTkh. PROT. FOR IODF>
>|vaS@QJMyT :Iv
IFNB <>,:h<
	IF1,<IFNDEF .;,<EXTERN .>>
	Z	;(.
>
	IFB <>,<Z>;H
	BYTE	(1)(3)QIO;hFI(1)1(13)0(18)0	<
	Z	0	
	XWD	-2,<(
.IOFI::	XWD	QFI<HLNG,0	
	XWD	QFIE<hBL,0	
	XWD	1,QFI=DLE	
	BYTE	(1)1(=(17)0(18)0 
	IFNB=H <PTX>,<
	PTX	
=h	>
IFG <IOFI-400>K>,<
IFN <<.-.IO>(FI>-<IOFI%E-IOFI>>H>,<CFAIL INCONSIS>hT. PROT. FOR IOFI>
>iu,H:KJMz7 EIP
IFNB <IOEhFI>,<
	IF1,<IFNDFEF .IOFI,<EXTERN F(.IOFI>>
	Z	.IOFIFH
>
	IFB <IOFI>,Fh<Z>
	BYTE	(1)(3)GQIOFI(1)1(13)0(18G()0	
	Z	0	
	XWD	GH-2,1
.IOIN::	XWDGh	QIFLNG,0	
	XWD	HQFIEBL,0	
	XWD	,H(QFIDLE	
	BYTE	(1HH)1(17)0(18)0 
	IHhFNB <Z>,<
	Z	
	I>
IFG <IOIN-400KI(>,<
IFN <<.-.IOIIHN>-<IOIN%E-IOIN>>Ih,<CFAIL INCONSISTJ. PROT. FOR IOIN>
>{uM{z Pi*
IFNB <IOQFI>,<
	IF1,<IFNDQ(EF .IOFI,<EXTERN QH.IOFI>>
	Z	.IOFIQh
>
	IFB <IOFI>,R<Z>
	BYTE	(1)(3)R(QIOFI(1)1(13)0(18RH)0	
	Z	0	
	XWD	Rh-2,1
.IOOU::	XWDS	QOFLNG,0	
	XWD	S(QFIEBL,0	
	XWD	,SHQFIDLE	
	BYTE	(1Sh)1(17)0(18)0 
	ITFNB <Z>,<
	Z	
	T(>
IFG <IOOU-400KTH>,<
IFN <<.-.IOOThU>-<IOOU%E-IOOU>>U,<CFAIL INCONSISTU(. PROT. FOR IOOU>
>H	j5tHJM| \	
IFNB <IO\(OU>,<
	IF1,<IFND\HEF .IOOU,<EXTERN \h.IOOU>>
	Z	.IOOU]
>
	IFB <IOOU>,](<Z>
	BYTE	(1)(3)]HQIOFI(1)1(13)0(18]h)0	
	Z	0	
	XWD	^-2,2
.IOPF::	XWD^(	QPFLNG,0	
	XWD	^HQFIEBL,0	
	XWD	,^hQFIDLE	
	BYTE	(1_)1(17)0(18)0 
	I_(FNB <Z>,<
	Z	
	_H>
IFG <IOPF-400K_h>,<
IFN <<.-.IOP`F>-<IOPF%E-IOPF>>`(,<CFAIL INCONSIST`H. PROT. FOR IOPF>
>		j5|	J: Y)
IFNB <SSxLG>,<
	IF1,<IFNDEF .SSLG,<EXTERN 8.SSLG>>
	Z	.SSLGX
>
	IFB <SSLG>,x<Z>
	BYTE	(1)(3)QSSLG(1)0(13)0(188)0	
	Z	0	
	XWD	X.SIMLV,1
.SSHD::x	XWD	ZLG%S,0	
	XWD	.SIMLV-1,0	
	8XWD	,3+.SIMVL	
	XBYTE	(1)(17)0(18)x0 
	IFNB <>,<
		
	>
IFG <SSHD-8400K>,<
IFN <<.-X.SSHD>-<SSHD%E-SSxHD>>,<CFAIL INCONSIST. PROT. FOR SSHD>
>Mm6J; u9M
IFNB <>,uX<
	IF1,<IFNDEF .ux,<EXTERN .>>
	Z	v.
>
	IFB <>,<Z>v8
	BYTE	(1)(3)QSSvXLG(1)0(13)0(18)0	vx
	Z	0	
	XWD	.SIwMLV,0
.SSLG::	XWw8D	ZLG%S,0	
	XWD	wX.SIMLV-1,0	
	XWDwx	,3+.SIMVL	
	BYTxE	(1)(17)0(18)0 
	IFNB <>,<
		
xX	>
IFG <SSLG-400xxK>,<
IFN <<.-.SSyLG>-<SSLG%E-SSLG>y8>,<CFAIL INCONSISyXT. PROT. FOR SSLG>
>q`@J; 

IFNB <SS
8LG>,<
	IF1,<IFND
XEF .SSLG,<EXTERN 
x.SSLG>>
	Z	.SSLG
>
	IFB <SSLG>,
	BYTE	(1)(3))0(18
	Z	0	
	XWD	.SIMLV,1
.SSLK::8	XWD	ZLG%S,0	
	XXWD	.SIMLV-1,0	
	xXWD	,3+.SIMVL	
	BYTE	(1)(17)0(18)80 
	IFNB <>,<
	X	
	>
IFG <SSLK-x400K>,<
IFN <<.-.SSLK>-<SSLK%E-SS8LK>>,<CFAIL INCONXSIST. PROT. FOR SSLK>
>\tJ<z ky
IFNB <>,l<
	IF1,<IFNDEF .l8,<EXTERN .>>
	Z	lX.
>
	IFB <>,<Z>lx
	BYTE	(1)1(3)(1m)1(13)0(18)0	
	Zm8	0	
	XWD	0,0
.SmXSST::	XWD	ZBI%S,0mx	
	XWD	.SIMLV,0	n
	XWD	,3+.SIMVL-n81	
	BYTE	(1)(17)nX0(18)0 
	IFNB <>nx,<
		
	>
IFG <oSSST-400K>,<
IFNo8 <<.-.SSST>-<SSSToX%E-SSST>>,<CFAIL oxINCONSIST. PROT. FOR SSST>
>GJ[0 .9
IFNB <SU.XPS>,<
	IF1,<IFND.xEF .SUPS,<EXTERN /.SUPS>>
	Z	.SUPS/8
>
	IFB <SUPS>,/X<Z>
	BYTE	(1)(3)/xQSUPS(1)0(13)0(180)0	
	Z	0	
	XWD	08.SIMLV,3
.SUMA::0X	XWD	ZPS%S,0	
	X0xWD	.SIMLV-1,0	
	1XWD	,3+.SIMVL	
	18BYTE	(1)(17)0(18)1X0 
	IFNB <>,<
	1x	
	>
IFG <SUMA-2400K>,<
IFN <<.-28.SUMA>-<SUMA%E-SU2XMA>>,<CFAIL INCON2xSIST. PROT. FOR SUMA>
>[W@1J\ "y;
IFNB <SS#LK>,<
	IF1,<IFND#8EF .SSLK,<EXTERN #X.SSLK>>
	Z	.SSLK#x
>
	IFB <SSLK>,$<Z>
	BYTE	(1)(3)$8QSUPS(1)0(13)0(18$X)0	
	Z	0	
	XWD	$x.SIMLV,2
.SUPS::%	XWD	ZPS%S,0	
	X%8WD	.SIMLV-1,0	
	%XXWD	,3+.SIMVL	
	%xBYTE	(1)(17)0(18)&0 
	IFNB <>,<
	&8	
	>
IFG <SUPS-&X400K>,<
IFN <<.-&x.SUPS>-<SUPS%E-SU'PS>>,<CFAIL INCON'8SIST. PROT. FOR SUPS>
>6<zQ~?J\t 9g
IFNB <SSXST>,<
	IF1,<IFNDxEF .SSST,<EXTERN .SSST>>
	Z	.SSST8
>
	IFB <SSST>,X<Z>
	BYTE	(1)1(3x)QSUSI(1)1(13)0(18)0	
	Z	0	
	XWD8	0,1
.SUSI::	XWDX	ZSU%S,0	
	XWD	.xSIMLV,0	
	XWD	,3+.SIMVL-1	
	BYTE8	(1)(17)0(18)0 
X	IFNB <>,<
		
	x>
IFG <SUSI-400K>,<
IFN <<.-.SUS8I>-<SUSI%E-SUSI>>X,<CFAIL INCONSISTx. PROT. FOR SUSI>
>	j5ZQqKH,P KH-J1P KK;r M@|r..N==0
		M`IFNB <A>,<..N=AN>
		IRP B,<
		N QBENO=..N
		>
		PURGE	..N
		KKX1 hPvYIRP A,<
hp		DEFINE	AERR(N,iMSG)<
			RTSERR	i0<N+QAENO>
			IFiPN	QDEBUG,<NOP	[ASipCIZ/
MSG
/]
	>j>	

		DEFINE	Aj0ERC(C,N,MSG)<
		jP	RTSERR	<C>,<N+QjpAENO>
			IFN	QDEkBUG,<NOP	[ASCIZ/
MSG
/]
	>>>MJ,P 6 S6)2 7 Su{R gPv=CAIN	A,NONEY?< dpv1
		IFNB <eA>,<XLOW=A>
		epIFB  <A>,<XLOW=XfIAC>
		HRRZ	XLOW,.JBOPS
		kN:7]>h6 r0w
		LOWADRrP
		L	A,YDSIAR(XLOW)
	]P ]?$lR 7 _69: (z<$A>&777777aJ|:7 NAw
QOCIN==	@1
QOCIO==	2
QIOU9==	4
QIONF=	10
4QQOCEP=	20	
QALL=4p	QIO+QIONF+QOCEP+5QOCIN+QOCIO	
QRT50SYM=	777
Q==QA	5P
DEFINE X(N,E,D,5pU,O)<
%U==0	
IR6P U,<%U==%U+Q'U>
IFN <QRTSYM-Q'D>6P,<	
	IFN <Q&%U>,6p<IFE <<Q'D>&Q>,<E7XTERN E>>	
	IFN 70<<Q'D>&Q>,<IFN <Q7P'D-%U>,<INTERN E>7p>	
						
>
IF8N <Q&%U>,<	
	IFB80 <O>,<
	OPDEF N 8P[PUSHJ XPDP,E]
	8p>
	IFNB <O>,<
	9OPDEF N [O E]
>	90>
>



X(COP9PYSPEC,.OCIN6,OCIN9p,<OCIN,IONF>)	
X:(CREATEFILE,.IOCF:0,IONF,<OCIN,IONF>:P)	
X(ERRFILE,.IO:pERF,OCIO,<OCIN,IO;>)	
					
X(FIL;0EENTER,.IOENT,ION;PF,<OCIN,IONF>)	
;pX(FILEERROR,.IOFE<R,OCIO,IONF)		
	<0				
X(FILELOOKU<PP,.IOLOK,IONF,<OC<pIN,IONF>)	
X(FIN=DLOGICAL,.OCINJ,O=0CIN,<OCIN,IONF>)	=P
					
X(FIXSWI=pTCH,.OCINF,OCIN,<>OCIN,IONF>)	
			>0		
X(FREEBUFF,.O>PCINC,OCIO,<OCIN,I>pO>)	
X(GETBUFF,.?OCIN7,OCIN,<OCIN,?0IONF>)	
X(GETBYT?PE,.OCING,OCIO,<OC?pIN,OCIO,IONF>)	
@					
X(GETCHANN@0EL,.OCIN8,OCIO,<O@PCIN,IONF>)	
X(GE@pTNAME,.OCIN1,OCIOA,<OCIN,IO,IONF>)	A0
X(GETREST,.OCINAPH,OCIO,OCIN)		
	Ap				
X(GETSPEC,.BOCINB,OCIN,<OCIN,B0IONF>)	
X(LEGAL,BP.OCLA,OCIO,<OCEP,BpOCIO>)		
X(LINKBCUFF,.OCIND,OCIO,<C0OCIN,IONF>)	
X(OCPUTENTER,.OCINI,OCCpIN,<OCIN,IONF>)	
					
X(OUTOCT,D0.OCOO,OCIO,<IONF,DPOCIO,OCEP>)	
X(PDpRINTFILE,.OCIN9,OECIO,<OCIO,OCIN>)	E0
X(PRINTSPEC,.OCEPINE,IONF,<OCIN,IOEpNF>)	
X(REOPEN,OFCINK,RTSYM,IO)		
X(SETUPFILE,IOCOFPM,RTSYM,IO)		
X(FpSPECCOPY,.OCINZ,OGCIN,<OCIN,IONF>)	G0
					
X(TTYSPEGPC,.OCINY,OCIN,<OCGpIN,IONF>)	
X(TYPHENAME,.OCIN2,OCIOH0,ALL)		
					
XHP(TYPESPEC,.IOTYS,HpOCIO,ALL)		
X(TYIPDEC,.OCDT,OCIO,<I0OCIO,OCEP>)	
X(TIPYPOCT,.OC8T,OCIO,Ip<OCIO,OCEP>)	

JOPDEF	OP	[HRLI]
J0OPDEF	OPZ	[HRLZI]JP
QCHN==OFFSET(ZFJpICHN)

DEFINE FKILOP(OP,X,Y)<
IFK0B	<Y>,<HLL X,QCHNKP(XWAC1)>
IFNB	<YKp>,<HLL X,QCHN(Y)>L
	TLO	X,(<OP>)
L0	XCT	X
	>
DEFINLPE	IOCHECK(X,Y,M)<Lp
IFB	<M>,<HRRI XM,740000>
	IFNB	<M0M>,<HRRI	X,M>
	FMPILOP(STATZ,X,Y)
Mp	>

	IFE QDEC20N,<OPDEF PBOUT [OUN0TCHR X1]>	

	PUNPRGE %U,Q,QIO,QIONNpF,QOCIN,QOCIO,QRTSYM
0ubI`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: |&	
	SEARCHp	SIMMAC,SIMMCR
	*@EXTERN	.YFARG,.YF+@ADR		
	SALL
	RT* ITLE	RDA
	ENTRY<`	.RDA
	ERRMAC	R=D
	MACINIT
DEFI= NE XX(N)<
DEFINE=@ ARG'N<N-1(XTAC)>=`
>
	XX	1
	XX	2>
	XX	3
	XX	4
	> XX	5

	SYN	ARG1>@,RESULT

DEFINE>` RAND(N)<
		
	L?	X0,@ARG'N
	SKIP? GE	
	ADD	[377777?@777777]
	TRO	1	
	MUL	X0,[QMULTIP@LIER]
	ST	X1,@AR@ G'N	
	TLZ	X1,400@@K	
>

DEFINE M@`AKEREAL(N<1>)<	
A	FLTR	X0,X1
	FSCA 	X0,N-44
>

DEA@FINE AR(A,B)<OFFSA`ET(ZAR'A)+2(XWAC'BB)>

DEFINE ARTB EST(A,B)<
	HLRZ	B@XWAC'A,OFFSET(ZARB`SUB)(XWAC'B)
	CACIE	XWAC'A,QTSTAR
>

QMULTIPLIERC@==1
REPEAT ^D15,C`<QMULTIPLIER==QMUDLTIPLIER*5>;RESULD T IS 5**15

	QTD@STAR==(<QREAL>B<%D`ZARTYP>+1B<%ZARSUB>)
e&=
	SIZE(Q,kpA)
	IFN <Q-^D18l>,<Q==0>
	IFN <%l0A-^D35>,<Q==0>
lP	IFE <Q>,
	<CFAIlpL A is not right half>
	1P eK$^ J`|h
	IFN QDEKBUG,<
	IFONA	SWGK CT2
	>
	OUTSTR	K@[ASCIZ	/

A/]
	IFN QDEBUG,<
	LIF
		IFOFFA	SWGCL T3
		GOTO	FALSE
	THEN
		LI	X2,[L`ASCIZ	/

A/]
M		EXEC	SAPDTO
	FI
	>
	eR/
	IFN QDEH BUG,<
	IFONA	SWGH@CT2
	>
	OUTSTR	H`[ASCIZ	/
A/]
	IIFN QDEBUG,<
	IFI 
		IFOFFA	SWGCT3I@
		GOTO	FALSE
	I`THEN
		LI	X2,[ASJCIZ	/
A/]
		EXJ EC	SAPDTO
	FI
	>
	eVu@ Kb
	IFDEF .K DIRECTIVE,<.DIRECK@TIVE .NOBIN>
	UNK`IVERSAL	A     DELCsystem-10/20 SIML ULA RTS %4A(310)   RTS %4A(310) g<< , zx
IFE <%OP,@%-1>,<%OP1 400000,`>
IFE %OP%,<%OP1- 377777>
IFE <%O- P%-2>,<$$E(<ILL S-@WITCH NAME>)>
IF-`GE <%OP%-3>,<IFB .<A>,<%OP1 400000. >
	IFNB <A>,<%O.@P1 A,400000>>
I.`FL<%OP%-2>,<%OP3 /YSASW(A)>
%OP%==2g4X6 m0v
	EXCH	X1mP6,.JBOPS
	q==YUUmpOAC
	IFNB <A>,<nq==A>
	ST	X17,qn0+X17(X16)
	LI	X1nP7,q(X16)
	BLT	X1np7,q+X15(X16)
	L	oX17,X16
	EXCH	X1o07,.JBOPS
	ST	X17oP,q+X16(X16)
	L	Xop17,q+X17(X16)
	PURGE	q
JwP g
Ht e9g
	IFE <%OyP%-2>,<$$E(<ILL SWITCH NAME>)>
	I9FN <%OP%-2>,<
	 YIFE <%OP%-3>,<%OPl3 777777>
	 IFE l0<%OP%-4>,<%OP3>
lP	 IFL <%OP%-2>,<%lpOP4 YBATCH(A)>
			%OP%==2>Rg
%%%%%1==W0
IRP A,<
A==W %%%%%1
%%%%%1==<%%%%%1+1>>XEHg; v!B
	IFE <%Ov@P%-2>,<$$E(<ILL Sv`WITCH NAME>)>
	IwFN <%OP%-2>,<
	 w IFE <%OP%-3>,<%OPw@3 777777>
	 IFE w`<%OP%-4>,<%OP3>
x	 IFL <%OP%-2>,<%x OP4 YDSCLOSE(A)>
			%OP%==2>g%K{ fPv9
		IFNB <fpA>,<XLOW=A>
		gIFB  <A>,<XLOW=XIAC>
		gRJ1 3i
	A=	Q
3I	IFB	<B>,<Q==Q+13)>
	IFNB	<B>,<Q==<B>+Q>
`Pg^+ 0y%
	IFE <%OPP%-2>,<$$E(<ILL SpWITCH NAME>)>
	IFN <%OP%-2>,<
	 0IFE <%OP%-3>,<%OPP3 XLOW,777777>
	p IFE <%OP%-4>,<%OP3 XLOW,>
	 IFL 0<%OP%-2>,<%OP4 YOPCSW+13(XLOW)>
		     %OP%==2>g^.,@ Px7
	IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
	I0FN <%OP%-2>,<
	 PIFE <%OP%-3>,<%OPp3 XLOW,777777>
	 IFE <%OP%-4>,<%O0P3 XLOW,>
	 IFL P<%OP%-2>,<%OP4 YOpCSW+6(XLOW)>
		     %OP%==2>g^<0 Pyg
	IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
	I0FN <%OP%-2>,<
	 PIFE <%OP%-3>,<%OPp3 XLOW,777777>
	 IFE <%OP%-4>,<%O0P3 XLOW,>
	 IFL P<%OP%-2>,<%OP4 YOpCSW+16(XLOW)>
		     %OP%==2>g^<=	 3{.
IFE <%OP3 %-1>,<%OP1 1000003@>
IFE %OP%,<%OP13` 677777>
IFE <%O4P%-2>,<$$E(<ILL S4 WITCH NAME>)>
IF4@GE <%OP%-3>,<IFB 4`<A>,<%OP1 1000005>
	IFNB <A>,<%O5 P1 A,100000>>
I5@FL<%OP%-2>,<%OP3 5`YSASW(A)>
%OP%==2tVw	G~(Tg^<=	 60{I
IFE <%OP6P%-1>,<%OP1 40000>6p
IFE %OP%,<%OP1 7737777>
IFE <%OP70%-2>,<$$E(<ILL SW7PITCH NAME>)>
IFG7pE <%OP%-3>,<IFB <8A>,<%OP1 40000>
	IFNB <A>,<%OP18P A,40000>>
IFL<8p%OP%-2>,<%OP3 YSA9SW(A)>
%OP%==2g_ywKg_zg^<=
 9`{d
IFE <%OP:%-1>,<%OP1 20000>: 
IFE %OP%,<%OP1 :@757777>
IFE <%OP:`%-2>,<$$E(<ILL SW;ITCH NAME>)>
IFG; E <%OP%-3>,<IFB <;@A>,<%OP1 20000>
	IFNB <A>,<%OP1< A,20000>>
IFL<< %OP%-2>,<%OP3 YSA<@SW(A)>
%OP%==2q:= /P{
IFE <%OP/p%-1>,<%OP1 2000000>
IFE %OP%,<%OP100 577777>
IFE <%O0PP%-2>,<$$E(<ILL S0pWITCH NAME>)>
IF1GE <%OP%-3>,<IFB 10<A>,<%OP1 2000001P>
	IFNB <A>,<%O1pP1 A,200000>>
I2FL<%OP%-2>,<%OP3 20YSASW(A)>
%OP%==2g^>=` 0xM
	IFE <%OPP%-2>,<$$E(<ILL SpWITCH NAME>)>
	IFN <%OP%-2>,<
	 0IFE <%OP%-3>,<%OPP3 XLOW,777777>
	p IFE <%OP%-4>,<%O	P3 XLOW,>
	 IFL 	0<%OP%-2>,<%OP4 YO	PCSW+7(XLOW)>
		     %OP%==2>g^EL 
pxy
	IFE2<%O$E(<ILL S
	I <%OP%-2>,<
	IE <%OP%-3>,<%OP3 XLOW,777777>
	0 IFE <%OP%-4>,<%OPP3 XLOW,>
	 IFL p<%OP%-2>,<%OP4 YOCSW+11(XLOW)>
		     %OP%==2>g^Mi tw3
	IFE <%Ot0P%-2>,<$$E(<ILL StPWITCH NAME>)>
	ItpFN <%OP%-2>,<
	 uIFE <%OP%-3>,<%OPu03 XLOW,777777>
	uP IFE <%OP%-4>,<%OupP3 XLOW,>
	 IFL v<%OP%-2>,<%OP4 YOv0CSW(XLOW)>
		     %OP%==2>g^d$j sa.
	IFE <%OtP%-2>,<$$E(<ILL St WITCH NAME>)>
	It@FN <%OP%-2>,<
	 t`IFE <%OP%-3>,<%OPu3 777777>
	 IFE u <%OP%-4>,<%OP3>
u@	 IFL <%OP%-2>,<%u`OP4 YDSL35(A)>
			%OP%==2>^<=g^ez` pyQ
	IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
	IPFN <%OP%-2>,<
	 pIFE <%OP%-3>,<%OP3 XLOW,777777>
	0 IFE <%OP%-4>,<%OPP3 XLOW,>
	 IFL p<%OP%-2>,<%OP4 YOCSW+15(XLOW)>
		     %OP%==2>g^uyq n
	IFE <%OmaP%-2>,<$$E(<ILL SqaWITCH NAME>)>
	IrFN <%OP%-2>,<
	 r IFE <%OP%-3>,<%OPr@3 777777>
	 IFE r`<%OP%-4>,<%OP3>
s	 IFL <%OP%-2>,<%s OP4 YDSNOG(A)>
			%OP%==2>Z
xc
	IFE <%O
0P%-2>,<$$E(<ILL S
PWITCH NAME>)>
	I
pFN <%OP%-2>,<
	 IFE <%OP%-3>,<%OP03 XLOW,777777>
	P IFE <%OP%-4>,<%OpP3 XLOW,>
	 IFL 
<%OP%-2>,<%OP4 YO
0CSW+10(XLOW)>
		     %OP%==2>g_r Py
	IFE <%OpP%-2>,<$$E(<ILL SWITCH NAME>)>
	I0FN <%OP%-2>,<
	 PIFE <%OP%-3>,<%OPp3 XLOW,777777>
	 IFE <%OP%-4>,<%O0P3 XLOW,>
	 IFL P<%OP%-2>,<%OP4 YOpCSW+12(XLOW)>
		     %OP%==2>g_r |0wu
	IFE <%O|PP%-2>,<$$E(<ILL S|pWITCH NAME>)>
	I}FN <%OP%-2>,<
	 }0IFE <%OP%-3>,<%OP}P3 XLOW,777777>
	}p IFE <%OP%-4>,<%O~P3 XLOW,>
	 IFL ~0<%OP%-2>,<%OP4 YO~PCSW+3(XLOW)>
		     %OP%==2>V`g_t px!
	IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
	IPFN <%OP%-2>,<
	 pIFE <%OP%-3>,<%OP3 XLOW,777777>
	0 IFE <%OP%-4>,<%OPP3 XLOW,>
	 IFL p<%OP%-2>,<%OP4 YOCSW+5(XLOW)>
		     %OP%==2>g_y yPw_
	IFE <%OypP%-2>,<$$E(<ILL SzWITCH NAME>)>
	Iz0FN <%OP%-2>,<
	 zPIFE <%OP%-3>,<%OPzp3 XLOW,777777>
	{ IFE <%OP%-4>,<%O{0P3 XLOW,>
	 IFL {P<%OP%-2>,<%OP4 YO{pCSW+2(XLOW)>
		     %OP%==2>g_z x
	IFE <%O0P%-2>,<$$E(<ILL SPWITCH NAME>)>
	IpFN <%OP%-2>,<
	 IFE <%OP%-3>,<%OP03 XLOW,777777>
	P IFE <%OP%-4>,<%OpP3 XLOW,>
	 IFL <%OP%-2>,<%OP4 YO0CSW+4(XLOW)>
		     %OP%==2>g_&  y;
	IFE <%O0P%-2>,<$$E(<ILL SPWITCH NAME>)>
	IpFN <%OP%-2>,<
	 IFE <%OP%-3>,<%OP03 XLOW,777777>
	P IFE <%OP%-4>,<%OpP3 XLOW,>
	 IFL <%OP%-2>,<%OP4 YO0CSW+14(XLOW)>
		     %OP%==2>g_&N  vpwI
	IFE <%OwP%-2>,<$$E(<ILL Sw0WITCH NAME>)>
	IwPFN <%OP%-2>,<
	 wpIFE <%OP%-3>,<%OPx3 XLOW,777777>
	x0 IFE <%OP%-4>,<%OxPP3 XLOW,>
	 IFL xp<%OP%-2>,<%OP4 YOyCSW+1(XLOW)>
		g %OP%==2>=
X<CLPB,Sa8USI,SSLG,SUPS,IOFI>	j5siF@ E |<
	IFN QDEE@BUG,<
	IFONA	SWGE`CT2
	>
	OUTSTR	F[ASCIZ	/A/]
	IFF N QDEBUG,<
	IF
F@		IFOFFA	SWGCT3
F`		GOTO	FALSE
	THGEN
		LI	X2,[ASCIG Z	/A/]
		EXEC	SG@APDTO
	FI
	>
	iJM\z hvASUB	XPDP,[1,,1]p ay..N==0
	IbRP A,<QA==..N
	..N==..N+1>	pEP 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 na

IFE <%OPo%-1>,<%OP1 400000o >
IFE %OP%,<%OP1o@ 377777>
IFE <%Oo`P%-2>,<$$E(<ILL SpWITCH NAME>)>
IFp GE <%OP%-3>,<IFB p@<A>,<%OP1 400000p`>
	IFNB <A>,<%OqP1 A,400000>>
Iq FL<%OP%-2>,<%OP3 q@YDSWIT(A)>
%OP%==2K4@cJ$[Ws((@ 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 xaV
	IFE <%OyP%-2>,<$$E(<ILL Sy WITCH NAME>)>
	Iy@FN <%OP%-2>,<
	 y`IFE <%OP%-3>,<%OPz3 777777>
	 IFE z <%OP%-4>,<%OP3>
z@	 IFL <%OP%-2>,<%z`OP4 YDSCRA(A)>
			%OP%==2>J
0s>@ 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 1$%W==2
IFPNB <B>,<$%W==2+<pB>
>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
$F $%W(A)S@
cB%I7u
D;Z $%W==3
IF NB <B>,<$%W==3+<@B>
>
IFE <$$US`E-3>,<LI $$$VAL
$$USE==1>
$Fu$%W(A)W@6cb
D;w uIB
IFE %OP%ui-1,<%OP2 400000>
IFE %OP%,<%OP2 7v(77777377777>
IFEvH <%OP%-2>,<$$E(<IvhLL SWITCH NAME>)>w
IFGE <%OP%-3>,<w(IFB <A>,<%OP2 40wH0000>
	IFNB <A>wh,<%OP2 A,400000>x>
IFL <%OP%-2>,<x(%OP3 0(A)>
%OP%==2IELD>
$$USEu
DlR o
IFE <%OPo9%-1>,<%OP1 400000oX>
IFE %OP%,<%OP1ox 377777>
IFE <%OpP%-2>,<$$E(<ILL Sp8WITCH NAME>)>
IFpXGE <%OP%-3>,<IFB px<A>,<%OP1 400000q>
	IFNB <A>,<%Oq8P1 A,400000>>
IqXFL<%OP%-2>,<%OP3 0(A)>
%OP%==2u
EI7 lIv
$%W==0
lhIFNB <B>,<$%W==0m+<B>>
IFE <$$USm(E-3>,<LI $$$VAL
mH$$USE==1>
IFE $$mhUSE,<$F $%W(A)>
IFE <$$USE-1>,<$n(L $%W(A)>
IFE <nH$$USE-2>,<PRINTX nhOPD-OPR NESTING ERROR>
$$USE==2u
EKU ri)
$%W==0
rIIFNB <B>,<$%W==0sY+<B>>
IFE <$$US !E-3>,<LI $$$VAL
 $$USE==1>
IFE $$qxUSE,<$F $%W(A)>
IFE <$$USE-1>,<$tB [$ZBHLNK B(A)t8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PtxRINTX INVALID USEu OF FIELD>
$$USE==2j5Pu
F\r y9^
IFE <%OPy%-1>,<%OP1 400000xy>
IFE %OP%,<%OP1za 377777>
IFE <%OzAP%-2>,<$$E(<ILL SzWITCH NAME>)>
IFz!GE <%OP%-3>,<IFB xH<A>,<%OP1 400000{ >
	IFNB <A>,<%O{@P1 A,400000>>
I{`FL<%OP%-2>,<%OP3 1(A)>
%OP%==2u
G(Z |qv
$%W==1
|QIFNB <B>,<$%W==1}a+<B>>
IFE <$$USaE-3>,<LI $$$VAL
@$$USE==1>
IFE $$|USE,<$F $%W(A)>
IFE <$$USE-1>,<$~ R $%W(A)>
IFE <~@$$USE-2>,<PRINTX ~`OPD-OPR NESTING ERROR>
$$USE==2u,H: QU$%W==7
IFpNB <B>,<$%W==7+<B>
>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
$Fj$%W(A)Q
$%W==5
1IFNB <B>,<$%W==5a+<B>>
IFE <$$USAE-3>,<LI $$$VAL
!$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$ B [$ZBUSIZ B(A)@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PRINTX INVALID USE  OF FIELD>
$$USE==2+wuN9Ru.= 
1e
$%W==4

PIFNB <B>,<$%W==4
p+<B>>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
IFE $$PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$
R $%W(A)>
IFE <
0$$USE-2>,<PRINTX 
POPD-OPR NESTING ERROR>
$$USE==2u.\r 
IFE1<%OPP1 400000
IFE7%OP%,<%OP1
IFE <%OP%-2>,<$$E(<ILL S WITCH NAME>)>
IF@GE <%OP%-3>,<IFB `<A>,<%OP1 400000>
	IFNB <A>,<%O P1 A,400000>>
I@FL<%OP%-2>,<%OP3 5(A)>
%OP%==2u.xz aH
$%W==6
IFNB <B>,<$%W==6 +<B>>
IFE <$$US@E-3>,<LI $$$VAL
`$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$@R $%W(A)>
IFE <`$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2u/(Z q1
$%W==5
IFNB <B>,<$%W==50+<B>>
IFE <$$USPE-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==2u4+ i)_
$%W==26
IFNB <B>,<$%W==j926+<B>>
IFE <$$jUSE-3>,<LI $$$VAL A
$$USE==1>
IFE hX$$USE,<$F $%W(A)jx>
IFE <$$USE-1>,k<$R $%W(A)>
IFEk8 <$$USE-2>,<PRINTkXX OPD-OPR NESTINGkx ERROR>
$$USE==2		j5QYu4[R S	
	IFE <%OS)P%-2>,<$$E(<ILL SSHWITCH NAME>)>
	IShFN <%OP%-2>,<
	 TIFE <%OP%-3>,<%OPT(3 777777>
	 IFE TX<%OP%-4>,<%OP3>
Tx	 IFL <%OP%-2>,<%UOP4 7(A)>
			%OP%==2>LI Gu56 Uy
$%W==24
IFNB <B>,<$%W==V824+<B>>
IFE <$$VXUSE-3>,<LI $$$VALVx
$$USE==1>
IFE W$$USE,<$F $%W(A)W8>
IFE <$$USE-1>,WX<$L $%W(A)>
IFEWx <$$USE-2>,<PRINTXX OPD-OPR NESTINGX8 ERROR>
$$USE==2FuMh@Iu5J6 Y	
$%W==24
IFNB <B>,<$%W==YH24+<B>>
IFE <$$YhUSE-3>,<LI $$$VALZ
$$USE==1>
IFE Z($$USE,<$F $%W(A)ZH>
IFE <$$USE-1>,Zh<$R $%W(A)>
IFE[ <$$USE-2>,<PRINT[(X OPD-OPR NESTING[H ERROR>
$$USE==2u)u5Kq _)
$%W==25
IFNB <B>,<$%W==_h25+<B>>
IFE <$$`USE-3>,<LI $$$VAL`(
$$USE==1>
IFE `H$$USE,<$F $%W(A)`h>
IFE <$$USE-1>,a<$R $%W(A)>
IFEa( <$$USE-2>,<PRINTaHX OPD-OPR NESTINGah ERROR>
$$USE==2Q'	j5'u5[r b'
IFE <%OPb9%-1>,<%OP1 400000bX>
IFE %OP%,<%OP1bx 377777>
IFE <%OcP%-2>,<$$E(<ILL Sc8WITCH NAME>)>
IFcXGE <%OP%-3>,<IFB cx<A>,<%OP1 400000d>
	IFNB <A>,<%Od8P1 A,400000>>
IdXFL<%OP%-2>,<%OP3 dx26(A)>
%OP%==2E OF FIELD>
$$Uu5}: f	C
IFE <%OPei%-1>,<%OP1 200000eI>
IFE %OP%,<%OP1fy 577777>
IFE <%OfYP%-2>,<$$E(<ILL S aWITCH NAME>)>
IFeGE <%OP%-3>,<IFB g8<A>,<%OP1 200000gX>
	IFNB <A>,<%OgxP1 A,200000>>
IhFL<%OP%-2>,<%OP3 h826(A)>
%OP%==2E OF FIELD>
$$Uu6xz \
$%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<$L $%W(A)>
IFE^ <$$USE-2>,<PRINT^8X OPD-OPR NESTING^X ERROR>
$$USE==2|zu>4+
u|{ s0ym
	SETZM	Xs0,YOCSW(XLOW)
	HrpRLI	X0,YOCSW(XLOW)
	HRRI	X0,YOCSW0+1(XLOW)
	BLT	X0P,YOCSW+QSWNO-1(XLOW)
u$I; {Ad$%W==YOCFD{`
IFNB <B>,<$%W=|=YOCFD+<B>
>
I| FE <$$USE-3>,<LI |@$$$VAL
$$USE==1>
$F $%W(A)V`u$^  

$%W==YOC FD+2
IFNB <B>,<@$%W==YOCFD+2+<B>`>
IFE <$$USE-3>,<LI $$$VAL
$$USE ==1>
IFE $$USE,<@$F $%W(A)>
IFE `<$$USE-1>,<$L $%W(A)>
IFE <$$USE -2>,<PRINTX OPD-O@PR NESTING ERROR>
$$USE==2uLJ7u$j6 }s$%W==YOCFD}0+1
IFNB <B>,<$%}PW==YOCFD+1+<B>
}p>
IFE <$$USE-3>,~<LI $$$VAL
$$USE~0==1>
$F $%W(A)u
G(Ziu,H:u&Z Y g$%W==YOCFDx+5
IFNB <B>,<$%
W==YOCFD+5+<B>

8>
IFE <$$USE-3>,
X<LI $$$VAL
$$USE
x==1>
$F $%W(A)|ub@#u&
S Q Y
$%W==YOCpFD+4
IFNB <B>,<	$%W==YOCFD+4+<B>	0>
IFE <$$USE-3>,	P<LI $$$VAL
$$USE	p==1>
IFE $$USE,<
$F $%W(A)>
IFE 
0<$$USE-1>,<$R $%W
P(A)>
IFE <$$USE
p-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uB5Ku&
U A @
$%W==YOC`FD+4
IFNB <B>,<$%W==YOCFD+4+<B> >
IFE <$$USE-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-3u&
$%W==YOC0FD+3
IFNB <B>,<P$%W==YOCFD+3+<B>p>
IFE <$$USE-3>,<LI $$$VAL
$$USE0==1>
IFE $$USE,<P$F $%W(A)>
IFE p<$$USE-1>,<$B [$ZFDPT B(A)]-$$RE0LO($$BAS)>
IFE <P$$USE-2>,<PRINTX pINVALID USE OF FIELD>
$$USE==2Tu&9R
IFNB <B>,<$%W==YOCFD+6+<B>
(>
IFE <$$USE-3>,H<LI $$$VAL
$$USEh==1>
$F $%W(A)Q	j	YuL 7aM
IFE <%OP7A%-1>,<%OP1 400>
7!IFE %OP%,<%OP1 778Q7377>
IFE <%OP%-812>,<$$E(<ILL SWIT&ACH NAME>)>
IFGE 6P<%OP%-3>,<IFB <A6p>,<%OP1 400>
	IF9NB <A>,<%OP1 A,90400>>
IFL<%OP%-29P>,<%OP3 6(A)>
%OP%==2VALID USEuLS 79C$%W==20
I7XFNB <B>,<$%W==207x+<B>
>
IFE <$$8USE-3>,<LI $$$VAL88
$$USE==1>
$F $%W(A)j5ZPuL)Y <)j$%W==23
I<HFNB <B>,<$%W==23<h+<B>
>
IFE <$$=USE-3>,<LI $$$VAL=(
$$USE==1>
$F $%W(A)j6<PuL+[ ba(
IFE %OP%bA-1,<%OP2 40000>
b!IFE %OP%,<%OP2 77ci7777737777>
IFE cI<%OP%-2>,<$$E(<IL#aL SWITCH NAME>)>
IFGE <%OP%-3>,<IapFB <A>,<%OP2 400d(00>
	IFNB <A>,<dH%OP2 A,40000>>
dhIFL <%OP%-2>,<%OPe3 6(A)>
%OP%==2F FIELD>
$$USEuL-3 i1_
$%W==10
IFNB <B>,<$%W==ip10+<B>>
IFE <$$jUSE-3>,<LI $$$VALj0
$$USE==1>
IFE jP$$USE,<$F $%W(A)jp>
IFE <$$USE-1>,k<$R $%W(A)>
IFEk0 <$$USE-2>,<PRINTkPX OPD-OPR NESTINGkp ERROR>
$$USE==2u eyF
$%W==10
IFNB <B>,<$%W==g!10+<B>>
IFE <$$gUSE-3>,<LI $$$VAL#A
$$USE==1>
IFE fa$$USE,<$F $%W(A)e(>
IFE <$$USE-1>,g`<$B [$ZFICHN B(hA)]-$$RELO($$BAS)h >
IFE <$$USE-2>,h@<PRINTX INVALID Uh`SE OF FIELD>
$$USE==2+uM|uLD   1

$%W==16
IFNB <B>,<$%W== p16+<B>>
IFE <$$!USE-3>,<LI $$$VAL!0
$$USE==1>
IFE !P$$USE,<$F $%W(A)!p>
IFE <$$USE-1>,"<$B [$ZFID1 B(A"0)]-$$RELO($$BAS)>"P
IFE <$$USE-2>,<"pPRINTX INVALID US#E OF FIELD>
$$USE==2)uuLD@ -q
$%W==17
IFNB <B>,<$%W==.017+<B>>
IFE <$$.PUSE-3>,<LI $$$VAL.p
$$USE==1>
IFE /$$USE,<$F $%W(A)/0>
IFE <$$USE-1>,/P<$B [$ZFID2 B(A/p)]-$$RELO($$BAS)>0
IFE <$$USE-2>,<00PRINTX INVALID US0PE OF FIELD>
$$USE==22Q5	j682uLI  4A3
IFE <%OP4!%-1>,<%OP1 1000>
IFE %OP%,<%OP1 75176777>
IFE <%OP%5-2>,<$$E(<ILL SWI&aTCH NAME>)>
IFGE30 <%OP%-3>,<IFB <3PA>,<%OP1 1000>
	5pIFNB <A>,<%OP1 6A,1000>>
IFL<%OP60%-2>,<%OP3 6(A)>
%OP%==2D USE uLI@ 'AK
IFE <%OP'!%-1>,<%OP1 20000>'
IFE %OP%,<%OP1 (1757777>
IFE <%OP(%-2>,<$$E(<ILL SW'aITCH NAME>)>
IFG&0E <%OP%-3>,<IFB <&PA>,<%OP1 20000>
	IFNB <A>,<%OP1) A,20000>>
IFL<)0%OP%-2>,<%OP3 6(A)>
%OP%==2SE uLJ7 !
IFE <%OPa%-1>,<%OP1 2>
IFAE %OP%,<%OP1 777775>
IFE <%OP%-2>q,<$$E(<ILL SWITCHQ NAME>)>
IFGE <%qOP%-3>,<IFB <A>,<%OP1 2>
	IFNB <PA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP3 11(A)>
%OP%==2INTX INVALID UuLK7 qf
$%W==12
 
IFNB <B>,<$%W==
@12+<B>>
IFE <$$
`USE-3>,<LI $$$VAL
$$USE==1>
IFE  $$USE,<$F $%W(A)@>
IFE <$$USE-1>,`<$B [$ZFIDMO B(
A)]-$$RELO($$BAS)
 >
IFE <$$USE-2>,
@<PRINTX INVALID U
`SE OF FIELD>
$$USE==2uLKz A;
IFE <%OP!%-1>,<%OP1 1>
IFE %OP%,<%OP1 7777176>
IFE <%OP%-2>,<$$E(<ILL SWITCH!a NAME>)>
IFGE <%0OP%-3>,<IFB <A>,P<%OP1 1>
	IFNB <pA>,<%OP1 A,1>>
IFL<%OP%-2>,<%OP03 11(A)>
%OP%==2INTX INVALID UuLLu u9
IFE <%OPta%-1>,<%OP1 200000tA>
IFE %OP%,<%OP1uq 577777>
IFE <%OuQP%-2>,<$$E(<ILL S#WITCH NAME>)>
IFspGE <%OP%-3>,<IFB t<A>,<%OP1 200000v0>
	IFNB <A>,<%OvPP1 A,200000>>
IvpFL<%OP%-2>,<%OP3 w11(A)>
%OP%==2E OF FIELD>
$$UuLM ~a
IFE <%OP~A%-1>,<%OP1 100>
~!IFE %OP%,<%OP1 77Q7677>
IFE <%OP%-12>,<$$E(<ILL SWIT"CH NAME>)>
IFGE }P<%OP%-3>,<IFB <A}p>,<%OP1 100>
	IFNB <A>,<%OP1 A,0100>>
IFL<%OP%-2P>,<%OP3 11(A)>
%OP%==2NVALID UuLMW xz$%W==13
IYFNB <B>,<$%W==13!+<B>
>
IFE <$$USE-3>,<LI $$$VAL!
$$USE==1>
$F $%W(A)777777777uLXz >!
IFE <%OP>%-1>,<%OP1 100>
=aIFE %OP%,<%OP1 77?17677>
IFE <%OP%-?2>,<$$E(<ILL SWIT>qCH NAME>)>
IFGE =<%OP%-3>,<IFB <A=0>,<%OP1 100>
	IF?pNB <A>,<%OP1 A,@100>>
IFL<%OP%-2@0>,<%OP3 6(A)>
%OP%==2VALID USEuL[R ;g
IFE <%OP:a%-1>,<%OP1 200>
:AIFE %OP%,<%OP1 77;q7577>
IFE <%OP%-;Q2>,<$$E(<ILL SWIT&!CH NAME>)>
IFGE 9p<%OP%-3>,<IFB <A:>,<%OP1 200>
	IF<0NB <A>,<%OP1 A,<P200>>
IFL<%OP%-2<p>,<%OP3 6(A)>
%OP%==2VALID USEuL^ !	~
$%W==16
IFNB <B>,<$%W==`16+<B>>
IFE <$$USE-3>,<LI $$$VAL 
$$USE==1>
IFE @$$USE,<$F $%W(A)`>
IFE <$$USE-1>,<$L $%W(A)>
IFE  <$$USE-2>,<PRINT@X OPD-OPR NESTING` ERROR>
$$USE==2uLk`/uLmuLj6 Q	e$%W==15
IpFNB <B>,<$%W==15+<B>
>
IFE <$$0USE-3>,<LI $$$VALP
$$USE==1>
$F $%W(A)qcT* uLk A*
$%W==2
`IFNB <B>,<$%W==2+<B>>
IFE <$$US E-3>,<LI $$$VAL
@$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$ B [$ZFIFLN B(A)@]-$$RELO($$BAS)>
IFE <$$USE-2>,<PRINTX INVALID USE  OF FIELD>
$$USE==2uLkR XQV
IFE %OP%X1-1,<%OP2 400000>
IFE %OP%,<%OP2 7YA77777377777>
IFEY! <%OP%-2>,<$$E(<I$ALL SWITCH NAME>)>W@
IFGE <%OP%-3>,<W`IFB <A>,<%OP2 40Z0000>
	IFNB <A>Z ,<%OP2 A,400000>Z@>
IFL <%OP%-2>,<Z`%OP3 6(A)>
%OP%==2IELD>
$$USEuLk` Aa
IFE <%OPAA%-1>,<%OP1 40>
IA!FE %OP%,<%OP1 777BQ737>
IFE <%OP%-2B1>,<$$E(<ILL SWITC&H NAME>)>
IFGE <@P%OP%-3>,<IFB <A>@p,<%OP1 40>
	IFNBC <A>,<%OP1 A,40C0>>
IFL<%OP%-2>,<CP%OP3 6(A)>
%OP%==2INVALID USE uLm 
$%W==2
0IFNB <B>,<$%W==2P+<B>>
IFE <$$USpE-3>,<LI $$$VAL
$$USE==1>
IFE $$0USE,<$F $%W(A)>
IFE <$$USE-1>,<$pB [$ZFIFTR B(A)]-$$RELO($$BAS)>
IFE <$$USE-2>,<PPRINTX INVALID USEp OF FIELD>
$$USE==2uMT A	X
$%W==14
IFNB <B>,<$%W==14+<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==2q?.@@qJ
0uMx AN
$%W==5
`IFNB <B>,<$%W==5+<B>>
IFE <$$US E-3>,<LI $$$VAL
@$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$ R $%W(A)>
IFE <@$$USE-2>,<PRINTX `OPD-OPR NESTING ERROR>
$$USE==2uM@ }
IFE <%OPa%-1>,<%OP1 200000A>
IFE %OP%,<%OP1Q 577777>
IFE <%O(aP%-2>,<$$E(<ILL S(@WITCH NAME>)>
IFpGE <%OP%-3>,<IFB <A>,<%OP1 200000>
	IFNB <A>,<%O0P1 A,200000>>
IPFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM3 q7$%W==4
IFNB <B>,<$%W==4+<0B>
>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
$F $%W(A)uM@ *ae
IFE <%OP*A%-1>,<%OP1 10000>*!
IFE %OP%,<%OP1 +Q767777>
IFE <%OP+1%-2>,<$$E(<ILL SW'AITCH NAME>)>
IFG)PE <%OP%-3>,<IFB <)pA>,<%OP1 10000>
	IFNB <A>,<%OP1,0 A,10000>>
IFL<,P%OP%-2>,<%OP3 6(A)>
%OP%==2SE uM89 lAl$%W==11
Il`FNB <B>,<$%W==11m+<B>
>
IFE <$$m USE-3>,<LI $$$VALm@
$$USE==1>
$F $%W(A)9	j5uMHW Ta:
IFE <%OPU%-1>,<%OP1 1>
IFU E %OP%,<%OP1 7777U@76>
IFE <%OP%-2>U`,<$$E(<ILL SWITCHV NAME>)>
IFGE <%V OP%-3>,<IFB <A>,V@<%OP1 1>
	IFNB <V`A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OPW 3 6(A)>
%OP%==2NTX INVALID USEuM[r '
O
$%W==17
IFNB <B>,<$%W=='P17+<B>>
IFE <$$'pUSE-3>,<LI $$$VAL(
$$USE==1>
IFE (0$$USE,<$F $%W(A)(P>
IFE <$$USE-1>,(p<$B [$ZFIMOD B()A)]-$$RELO($$BAS))0>
IFE <$$USE-2>,)P<PRINTX INVALID U)pSE OF FIELD>
$$USE==2QZ	j5WuM] qa
IFE <%OPqA%-1>,<%OP1 20>
Iq!FE %OP%,<%OP1 777rQ757>
IFE <%OP%-2r1>,<$$E(<ILL SWITC#!H NAME>)>
IFGE <pP%OP%-3>,<IFB <A>pp,<%OP1 20>
	IFNBs <A>,<%OP1 A,20s0>>
IFL<%OP%-2>,<sP%OP3 11(A)>
%OP%==2X INVALID UuMh6 9	P$%W==21
I9(FNB <B>,<$%W==219H+<B>
>
IFE <$$9hUSE-3>,<LI $$$VAL:
$$USE==1>
$F $%W(A)j5zPuMh@ E5
IFE <%OPDa%-1>,<%OP1 20>
IDAFE %OP%,<%OP1 777EQ757>
IFE <%OP%-2%a>,<$$E(<ILL SWITC%@H NAME>)>
IFGE <Cp%OP%-3>,<IFB <A>D,<%OP1 20>
	IFNBF <A>,<%OP1 A,20F0>>
IFL<%OP%-2>,<FP%OP3 6(A)>
%OP%==2INVALID USE uMk )
IFE %OP%	-1,<%OP2 100000>
IFE %OP%,<%OP2 7`177777677777>
IFE` <%OP%-2>,<$$E(<I$LL SWITCH NAME>)>_q
IFGE <%OP%-3>,<^8IFB <A>,<%OP2 10`p0000>
	IFNB <A>a,<%OP2 A,100000>a0>
IFL <%OP%-2>,<aP%OP3 6(A)>
%OP%==2IELD>
$$USEuMm6 K!k
IFE <%OPK%-1>,<%OP1 4>
IFJaE %OP%,<%OP1 7777L173>
IFE <%OP%-2>L,<$$E(<ILL SWITCHKq NAME>)>
IFGE <%JOP%-3>,<IFB <A>,J0<%OP1 4>
	IFNB <LpA>,<%OP1 A,4>>
IFL<%OP%-2>,<%OPM03 6(A)>
%OP%==2NTX INVALID USEuMxT 		?
$%W==14
IFNB <B>,<$%W==p14+<B>>
IFE <$$USE-3>,<LI $$$VAL0
$$USE==1>
IFE P$$USE,<$F $%W(A)p>
IFE <$$USE-1>,<$L $%W(A)>
IFE0 <$$USE-2>,<PRINTPX OPD-OPR NESTINGp ERROR>
$$USE==2g_&N w5iF@uMy@ !
IFE <%OP a%-1>,<%OP1 100000 A>
IFE %OP%,<%OP1!q 677777>
IFE <%O!QP%-2>,<$$E(<ILL S(!WITCH NAME>)>
IFpGE <%OP%-3>,<IFB  <A>,<%OP1 100000"0>
	IFNB <A>,<%O"PP1 A,100000>>
I"pFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM| e
IFE <%OP1%-1>,<%OP1 400000P>
IFE %OP%,<%OP1p 377777>
IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
IFPGE <%OP%-3>,<IFB p<A>,<%OP1 400000>
	IFNB <A>,<%O0P1 A,400000>>
IPFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM}: .
IFE <%OP-a%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7.q73777>
IFE <%OP%.Q-2>,<$$E(<ILL SWI'!TCH NAME>)>
IFGE,p <%OP%-3>,<IFB <-A>,<%OP1 4000>
	/0IFNB <A>,<%OP1 /PA,4000>>
IFL<%OP/p%-2>,<%OP3 6(A)>
%OP%==2ID USEuN	@ $!1
IFE <%OP$%-1>,<%OP1 40000>#a
IFE %OP%,<%OP1 %737777>
IFE <%OP$q%-2>,<$$E(<ILL SW(ITCH NAME>)>
IFG#E <%OP%-3>,<IFB <#0A>,<%OP1 40000>
	IFNB <A>,<%OP1%p A,40000>>
IFL<&%OP%-2>,<%OP3 6(A)>
%OP%==2SE uN	z [qq
IFE %OP%[Q-1,<%OP2 200000>
IFE %OP%,<%OP2 7\y77777577777>
IFE\Y <%OP%-2>,<$$E(<I$!LL SWITCH NAME>)>\9
IFGE <%OP%-3>,<[IFB <A>,<%OP2 20]80000>
	IFNB <A>]X,<%OP2 A,200000>]x>
IFL <%OP%-2>,<^%OP3 6(A)>
%OP%==2IELD>
$$USEuN
 :Y]$%W==22
I:xFNB <B>,<$%W==22;+<B>
>
IFE <$$;8USE-3>,<LI $$$VAL;X
$$USE==1>
$F $%W(A)j688PuN
S 417
$%W==20
IFNB <B>,<$%W==4p20+<B>>
IFE <$$5USE-3>,<LI $$$VAL50
$$USE==1>
IFE 5P$$USE,<$F $%W(A)5p>
IFE <$$USE-1>,6<$R $%W(A)>
IFE60 <$$USE-2>,<PRINT6PX OPD-OPR NESTING6p ERROR>
$$USE==2j5tPj5uN
U 1!
$%W==20
IFNB <B>,<$%W==1`20+<B>>
IFE <$$2USE-3>,<LI $$$VAL2 
$$USE==1>
IFE 2@$$USE,<$F $%W(A)2`>
IFE <$$USE-1>,3<$L $%W(A)>
IFE3  <$$USE-2>,<PRINT3@X OPD-OPR NESTING3` ERROR>
$$USE==2	j6;Z~q	j6<uN
4
$%W==17
IFNB <B>,<$%W==$ 17+<B>>
IFE <$$$@USE-3>,<LI $$$VAL$`
$$USE==1>
IFE %$$USE,<$F $%W(A)% >
IFE <$$USE-1>,%@<$B [$ZFIPT B(A%`)]-$$RELO($$BAS)>&
IFE <$$USE-2>,<& PRINTX INVALID US&@E OF FIELD>
$$USE==28S	j5WuN+w Na
IFE <%OPNA%-1>,<%OP1 2>
IFN!E %OP%,<%OP1 7777OQ75>
IFE <%OP%-2>O1,<$$E(<ILL SWITCH% NAME>)>
IFGE <%MPOP%-3>,<IFB <A>,Mp<%OP1 2>
	IFNB <PA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OPPP3 6(A)>
%OP%==2NTX INVALID USEuN9R 1!
IFE <%OP1%-1>,<%OP1 2000>
IFE %OP%,<%OP1 7275777>
IFE <%OP%1q-2>,<$$E(<ILL SWI'TCH NAME>)>
IFGE0 <%OP%-3>,<IFB <00A>,<%OP1 2000>
	2PIFNB <A>,<%OP1 2pA,2000>>
IFL<%OP3%-2>,<%OP3 6(A)>
%OP%==2ID=USEuN< 
IF <B>,<$%W==2+<B>
>
IFE <$$US E-3>,<LI $$$VAL
@$$USE==1>
$F $%W(A)uN= @z
$%W==12
I!FNB <B>,<$%W==12	Q+<B>
>
IFE <$$	1USE-3>,<LI $$$VAL!A
$$USE==1>
$FN$%W(A)77776>
IFE %OP%a-1,<%OP2 40>
IFEA %OP%,<%OP2 77777	7777737>
IFE <%OiP%-2>,<$$E(<ILL S!!WITCH NAME>)>
IFIGE <%OP%-3>,<IFB p<A>,<%OP2 40>
	IFNB <A>,<%OP2 HA,40>>
IFL <%OP%h-2>,<%OP3 12(A)>
%OP%==2ALID UuNH  x!S
IFE <%OPx%-1>,<%OP1 20000>wa
IFE %OP%,<%OP1 y757777>
IFE <%OPxq%-2>,<$$E(<ILL SW"aITCH NAME>)>
IFGw0E <%OP%-3>,<IFB <yPA>,<%OP1 20000>
	IFNB <A>,<%OP1z A,20000>>
IFL<z0%OP%-2>,<%OP3 11(A)>
%OP%==2USuNJ6 *A
j
$%W==17
IFNB <B>,<$%W==+17+<B>>
IFE <$$+ USE-3>,<LI $$$VAL+@
$$USE==1>
IFE +`$$USE,<$F $%W(A),>
IFE <$$USE-1>,, <$B [$ZFITIM B(,@A)]-$$RELO($$BAS),`>
IFE <$$USE-2>,-<PRINTX INVALID U- SE OF FIELD>
$$USE==2	j5xuNM mq
IFE <%OPn%-1>,<%OP1 10>
In0FE %OP%,<%OP1 777nP767>
IFE <%OP%-2np>,<$$E(<ILL SWITCoH NAME>)>
IFGE <o0%OP%-3>,<IFB <A>oP,<%OP1 10>
	IFNBop <A>,<%OP1 A,10p>>
IFL<%OP%-2>,<p0%OP3 11(A)>
%OP%==2X INVALID UuNM  {ak
IFE <%OP{A%-1>,<%OP1 10000>{!
IFE %OP%,<%OP1 |1767777>
IFE <%OP"A%-2>,<$$E(<ILL SW" ITCH NAME>)>
IFGzPE <%OP%-3>,<IFB <zpA>,<%OP1 10000>
	IFNB <A>,<%OP1} A,10000>>
IFL<}0%OP%-2>,<%OP3 11(A)>
%OP%==2USuN]q 
IFE,%OP% 20>
IFEP%,<%OP2 77777
IFE <%OP%-2>,<$$E(<ILL S0WITCH NAME>)>
IFPGE <%OP%-3>,<IFB p<A>,<%OP2 20>
	IFNB <A>,<%OP2 0A,20>>
IFL <%OP%P-2>,<%OP3 12(A)>
%OP%==2ALID UuNy HO
IFE <%OPGa%-1>,<%OP1 10>
IGAFE %OP%,<%OP1 777Hq767>
IFE <%OP%-2HQ>,<$$E(<ILL SWITC%!H NAME>)>
IFGE <Fp%OP%-3>,<IFB <A>G,<%OP1 10>
	IFNBI0 <A>,<%OP1 A,10IP>>
IFL<%OP%-2>,<Ip%OP3 6(A)>
%OP%==2 INVALID USEuN{ Qa#
$%W==6
QAIFNB <B>,<$%W==6Rq+<B>>
IFE <$$USRQE-3>,<LI $$$VAL
$a$$USE==1>
IFE $$PpUSE,<$F $%W(A)>
IFE <$$USE-1>,<$S0B [$ZFIWLR B(A)SP]-$$RELO($$BAS)>
IFE <$$USE-2>,<PTRINTX INVALID USET0 OF FIELD>
$$USE==2u 13$%W==7
IFPNB <B>,<$%W==7+<pB>
>
IFE <$$USE-3>,<LI $$$VAL
0$$USE==1>
$F $%W(A)u a0~
IFE %OP%aP-1,<%OP2 1>
IFE ap%OP%,<%OP2 777777b777776>
IFE <%OPb0%-2>,<$$E(<ILL SWbPITCH NAME>)>
IFGbpE <%OP%-3>,<IFB <cA>,<%OP2 1>
	IFc0NB <A>,<%OP2 A,cP1>>
IFL <%OP%-2>cp,<%OP3 3(A)>
%OP%==2NVALID USEuS @$%W==10
I FNB <B>,<$%W==10@+<B>
>
IFE <$$`USE-3>,<LI $$$VAL
$$USE==1>
$F $%W(A)u-3 y8]
$%W==5
yXIFNB <B>,<$%W==5yx+<B>>
IFE <$$USzE-3>,<LI $$$VAL
z8$$USE==1>
IFE $$zXUSE,<$F $%W(A)>
IFE <$$USE-1>,<${R $%W(A)>
IFE <{8$$USE-2>,<PRINTX {XOPD-OPR NESTING ERROR>
$$USE==2uI; T@},$%W==1
IFT`NB <B>,<$%W==1+<UB>
>
IFE <$$USU E-3>,<LI $$$VAL
U@$$USE==1>
$F $%W(A)u^ vHF
$%W==5
vhIFNB <B>,<$%W==5w+<B>>
IFE <$$USw(E-3>,<LI $$$VAL
wH$$USE==1>
IFE $$whUSE,<$F $%W(A)>
IFE <$$USE-1>,<$x(L $%W(A)>
IFE <xH$$USE-2>,<PRINTX xhOPD-OPR NESTING ERROR>
$$USE==2uj6 tx/$%W==4
IFuNB <B>,<$%W==4+<u8B>
>
IFE <$$USuXE-3>,<LI $$$VAL
ux$$USE==1>
$F $%W(A)q,@uk ^`~
$%W==3
_IFNB <B>,<$%W==3_ +<B>>
IFE <$$US_@E-3>,<LI $$$VAL
_`$$USE==1>
IFE $$`USE,<$F $%W(A)>
IFE <$$USE-1>,<$`@R $%W(A)>
IFE <``$$USE-2>,<PRINTX aOPD-OPR NESTING ERROR>
$$USE==2u6 [p}q
$%W==3
\IFNB <B>,<$%W==3\0+<B>>
IFE <$$US\PE-3>,<LI $$$VAL
\p$$USE==1>
IFE $$]USE,<$F $%W(A)>
IFE <$$USE-1>,<$]PL $%W(A)>
IFE <]p$$USE-2>,<PRINTX ^OPD-OPR NESTING ERROR>
$$USE==2uJ6 Y}Z
$%W==2
Y IFNB <B>,<$%W==2Y@+<B>>
IFE <$$USY`E-3>,<LI $$$VAL
Z$$USE==1>
IFE $$Z USE,<$F $%W(A)>
IFE <$$USE-1>,<$Z`R $%W(A)>
IFE <[$$USE-2>,<PRINTX [ OPD-OPR NESTING ERROR>
$$USE==2uKU O`}
$%W==-1
IFNB <B>,<$%W==P -1+<B>>
IFE <$$P@USE-3>,<LI $$$VALP`
$$USE==1>
IFE Q$$USE,<$F $%W(A)Q >
IFE <$$USE-1>,Q@<$L $%W(A)>
IFEQ` <$$USE-2>,<PRINTRX OPD-OPR NESTINGR  ERROR>
$$USE==2uh6 Rp}$%W==0
IFSNB <B>,<$%W==0+<S0B>
>
IFE <$$USSPE-3>,<LI $$$VAL
Sp$$USE==1>
$F $%W(A)um6 kP~k
IFE %OP%k0-1,<%OP2 10>
IFEk %OP%,<%OP2 77777lX7777767>
IFE <%Ol8P%-2>,<$$E(<ILL S)@WITCH NAME>)>
IFlGE <%OP%-3>,<IFB j@<A>,<%OP2 10>
	j`IFNB <A>,<%OP2 mA,10>>
IFL <%OP%m8-2>,<%OP3 3(A)>
%OP%==2LID USEu
 
!Z$%W==12
I
@FNB <B>,<$%W==12
`+<B>
>
IFE <$$USE-3>,<LI $$$VAL 
$$USE==1>
$F $%W(A)u
S I&
$%W==7
hIFNB <B>,<$%W==7+<B>>
IFE <$$US(E-3>,<LI $$$VAL
H$$USE==1>
IFE $$hUSE,<$F $%W(A)>
IFE <$$USE-1>,<$(R $%W(A)>
IFE <H$$USE-2>,<PRINTX hOPD-OPR NESTING ERROR>
$$USE==2u
U Y
$%W==7
xIFNB <B>,<$%W==7+<B>>
IFE <$$US8E-3>,<LI $$$VAL
X$$USE==1>
IFE $$xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$8L $%W(A)>
IFE <X$$USE-2>,<PRINTX xOPD-OPR NESTING ERROR>
$$USE==2u
$%W==6
|HIFNB <B>,<$%W==6|h+<B>>
IFE <$$US}E-3>,<LI $$$VAL
}($$USE==1>
IFE $$}HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$~B [$ZFSPT B(A)]~(-$$RELO($$BAS)>
~HIFE <$$USE-2>,<PR~hINTX INVALID USE OF FIELD>
$$USE==2&}VPu+w nh
IFE %OP%nH-1,<%OP2 4>
IFE n(%OP%,<%OP2 777777op777773>
IFE <%OPoP%-2>,<$$E(<ILL SW) ITCH NAME>)>
IFGo0E <%OP%-3>,<IFB <mXA>,<%OP2 4>
	IFmxNB <A>,<%OP2 A,p04>>
IFL <%OP%-2>pP,<%OP3 3(A)>
%OP%==2NVALID USEu8w QM$%W==11
IpFNB <B>,<$%W==11	+<B>
>
IFE <$$	0USE-3>,<LI $$$VAL	P
$$USE==1>
$F $%W(A)u9R qg$%W==13
I
FNB <B>,<$%W==13
0+<B>
>
IFE <$$
PUSE-3>,<LI $$$VAL
p
$$USE==1>
$F $%W(A)u:= V}C
$%W==2
V0IFNB <B>,<$%W==2VP+<B>>
IFE <$$USVpE-3>,<LI $$$VAL
W$$USE==1>
IFE $$W0USE,<$F $%W(A)>
IFE <$$USE-1>,<$WpL $%W(A)>
IFE <X$$USE-2>,<PRINTX X0OPD-OPR NESTING ERROR>
$$USE==2u=1 e ~8
IFE %OP%e-1,<%OP2 2>
IFE d`%OP%,<%OP2 777777f(777775>
IFE <%OPf%-2>,<$$E(<ILL SW*ITCH NAME>)>
IFGehE <%OP%-3>,<IFB <dA>,<%OP2 2>
	IFd0NB <A>,<%OP2 A,fh2>>
IFL <%OP%-2>g,<%OP3 3(A)>
%OP%==2NVALID USEuy h8~R
IFE %OP%h-1,<%OP2 20>
IFEgx %OP%,<%OP2 77777i@7777757>
IFE <%Oi P%-2>,<$$E(<ILL S)`WITCH NAME>)>
IFiGE <%OP%-3>,<IFB g(<A>,<%OP2 20>
	gHIFNB <A>,<%OP2 jA,20>>
IFL <%OP%j -2>,<%OP3 3(A)>
%OP%==2LID USEu{ q`"
$%W==3
q@IFNB <B>,<$%W==3s+<B>>
IFE <$$USrhE-3>,<LI $$$VAL
)$$USE==1>
IFE $$rHUSE,<$F $%W(A)>
IFE <$$USE-1>,<$qB [$ZFSWLR B(A)sH]-$$RELO($$BAS)>
IFE <$$USE-2>,<PtRINTX INVALID USEt( OF FIELD>
$$USE==2pEPu&4[R =Y~
	IFE <%O=yP%-2>,<$$E(<ILL S>WITCH NAME>)>
	I>8FN <%OP%-2>,<
	 >XIFE <%OP%-3>,<%OP>x3 777777>
	 IFE ?(<%OP%-4>,<%OP3>
?H	 IFL <%OP%-2>,<%?hOP4 7(A)>
			%OP%==2>u>4+ @I

$%W==24
IFNB <B>,<$%W==A24+<B>>
IFE <$$A(USE-3>,<LI $$$VALAH
$$USE==1>
IFE Ah$$USE,<$F $%W(A)B>
IFE <$$USE-1>,B(<$L $%W(A)>
IFEBH <$$USE-2>,<PRINTBhX OPD-OPR NESTINGC ERROR>
$$USE==2u>5J6 CY
1
$%W==24
IFNB <B>,<$%W==D24+<B>>
IFE <$$D8USE-3>,<LI $$$VALDX
$$USE==1>
IFE Dx$$USE,<$F $%W(A)E>
IFE <$$USE-1>,E8<$R $%W(A)>
IFEEX <$$USE-2>,<PRINTExX OPD-OPR NESTINGF ERROR>
$$USE==2v%]>h6wuB5J7 P
$%W==26
IFNB <B>,<$%W==PX26+<B>>
IFE <$$PxUSE-3>,<LI $$$VALQ
$$USE==1>
IFE Q8$$USE,<$F $%W(A)QX>
IFE <$$USE-1>,Qx<$R $%W(A)>
IFER <$$USE-2>,<PRINTR8X OPD-OPR NESTINGRX ERROR>
$$USE==2Pq`@uB5K M	
|
$%W==26
IFNB <B>,<$%W==MH26+<B>>
IFE <$$MhUSE-3>,<LI $$$VALN
$$USE==1>
IFE N($$USE,<$F $%W(A)NH>
IFE <$$USE-1>,Nh<$L $%W(A)>
IFEO <$$USE-2>,<PRINTO(X OPD-OPR NESTINGOH ERROR>
$$USE==2@q,`@uB5L Iy
c
$%W==25
IFNB <B>,<$%W==J825+<B>>
IFE <$$JXUSE-3>,<LI $$$VALJx
$$USE==1>
IFE K$$USE,<$F $%W(A)K8>
IFE <$$USE-1>,KX<$R $%W(A)>
IFEKx <$$USE-2>,<PRINTLX OPD-OPR NESTINGL8 ERROR>
$$USE==2{g^<=	{1uB6< Fi
J
$%W==25
IFNB <B>,<$%W==G(25+<B>>
IFE <$$GHUSE-3>,<LI $$$VALGh
$$USE==1>
IFE H$$USE,<$F $%W(A)H(>
IFE <$$USE-1>,HH<$L $%W(A)>
IFEHh <$$USE-2>,<PRINTIX OPD-OPR NESTINGI( ERROR>
$$USE==2@ cB}K4@uO<I; Q$%W==0
IFpNB <B>,<$%W==0+<B>
>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
$F $%W(A)@x#g^<0uO<^ qA
$%W==2
IFNB <B>,<$%W==20+<B>>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$PL $%W(A)>
IFE <p$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uO<j6 !*$%W==1
IF@NB <B>,<$%W==1+<`B>
>
IFE <$$USE-3>,<LI $$$VAL
 $$USE==1>
$F$%W(A)tx
 aN$%W==4
IF	NB <B>,<$%W==4+<	 B>
>
IFE <$$US	@E-3>,<LI $$$VAL
	`$$USE==1>
$F $%W(A)@q^
4 ub 3 $%W==13
I3 FNB <B>,<$%W==133@+<B>
>
IFE <$$3`USE-3>,<LI $$$VAL4
$$USE==1>
$F $%W(A)
c&eM:ubS # $%W==2
IF# NB <B>,<$%W==2+<#@B>
>
IFE <$$US#`E-3>,<LI $$$VAL
$$$USE==1>
$F $%W(A):#	j5Pub^ 'qQ
$%W==5
(IFNB <B>,<$%W==5(0+<B>>
IFE <$$US(PE-3>,<LI $$$VAL
(p$$USE==1>
IFE $$)USE,<$F $%W(A)>
IFE <$$USE-1>,<$)PL $%W(A)>
IFE <)p$$USE-2>,<PRINTX *OPD-OPR NESTING ERROR>
$$USE==2ubj6 &!:$%W==4
IF&@NB <B>,<$%W==4+<&`B>
>
IFE <$$US'E-3>,<LI $$$VAL
' $$USE==1>
$F $%W(A)
6	j5WubI7 11$%W==12
I1PFNB <B>,<$%W==121p+<B>
>
IFE <$$2USE-3>,<LI $$$VAL20
$$USE==1>
$F $%W(A)cQubI`  
$%W==1
 0IFNB <B>,<$%W==1 P+<B>>
IFE <$$US pE-3>,<LI $$$VAL
!$$USE==1>
IFE $$!0USE,<$F $%W(A)>
IFE <$$USE-1>,<$!pR $%W(A)>
IFE <"$$USE-2>,<PRINTX "0OPD-OPR NESTING ERROR>
$$USE==2ubKS /a$%W==7
IF0NB <B>,<$%W==7+<0 B>
>
IFE <$$US0@E-3>,<LI $$$VAL
0`$$USE==1>
$F8$%W(A)$%W==3
IF$pNB <B>,<$%W==3+<%B>
>
IFE <$$US%0E-3>,<LI $$$VAL
%P$$USE==1>
$F $%W(A)xQk	j5xub
Z *a^$%W==6
IF+NB <B>,<$%W==6+<+ B>
>
IFE <$$US+@E-3>,<LI $$$VAL
+`$$USE==1>
$F$%W(A)<H	j69Tub
$%W==6
,PIFNB <B>,<$%W==6,p+<B>>
IFE <$$US-E-3>,<LI $$$VAL
-0$$USE==1>
IFE $$-PUSE,<$F $%W(A)>
IFE <$$USE-1>,<$.B [$ZXBPT B(A)].0-$$RELO($$BAS)>
.PIFE <$$USE-2>,<PR.pINTX INVALID USE /OF FIELD>
$$USE==26<tQ}E	j6<tugS !b$%W==2
IF@NB <B>,<$%W==2+<`B>
>
IFE <$$USE-3>,<LI $$$VAL
 $$USE==1>
$F $%W(A)9E	j5Sug  qo$%W==4
IFNB <B>,<$%W==4+<0B>
>
IFE <$$USPE-3>,<LI $$$VAL
p$$USE==1>
$F $%W(A)Q9	j5ug9R A|$%W==5
IF`NB <B>,<$%W==5+<B>
>
IFE <$$US E-3>,<LI $$$VAL
@$$USE==1>
$F $%W(A)	j5$Y@P $\h !l

IFGE	^}@D17-^D0,<
IFB <y`C>,<DEFINE YDSACTs8(ACC)<
IFE <%OP%ix-1>,<%OP1 B>
IFf8E %OP%,<%OP1 A>
IFE <%OP%-2>,<$$(E(<ILL SWITCH NAM	E>)>
IFGE <%OP%-p3>,<IFB <ACC>,<%O0P1 B>
	IFNB <ACC>,<%OP1 ACC,B>>|
IFL<%OP%-2>,<%OxPP3 YDSWIT(ACC)>
u0%OP%==2>>
IFNB <rC>,<DEFINE YDSACf@T=<
IFE <%OP%-1>c,<%OP1 B>
IFE %_POP%,<%OP1 A>
IF\E <%OP%-2>,<$$E(<YILL SWITCH NAME>)R0>
IFGE <%OP%-3>,O<%OP1 C,B>
IFLKP <%OP%-2>,<%OP3 YH0DSWIT(C)>
%OP%=E0=2>>>

IFL ^D17B-^D0,<
IFB <>,<D>PEFINE YDSACT(ACC);0<
IFE %OP%-1,<%O8P2 B>
IFE %OP%,4p<%OP2 A>
IFE <%1POP%-2>,<$$E(<ILL .0SWITCH NAME>)>
I+FGE <%OP%-3>,<IFB'p <ACC>,<%OP2 B>
	IFNB <ACC>,<%OP!02 ACC,B>>
IFL <0%OP%-2>,<%OP3 YDSr(WIT(ACC)>
%OP%==o2>>
IFNB <>,<DEFkxINE YDSACT=<
IFEh` <%OP%-1>,<%OP2 eHB>
IFE %OP%,<%OP*`2 A>
IFE <%OP%-+2>,<$$E(<ILL SWIT+ CH NAME>)>
IFGE +`<%OP%-3>,<%OP2 C`,B>
IFL <%OP%-2>,<%OP3 YDSWIT(Cm@)>
%OP%==2>>
>
I`@cIp	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