Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0078/rts/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 GeK{ rYSETZM	YDSCSW(XLOW),|P G,i9 sAOS	YDSCSW(XLOW)knXP GtV sYSOS	YDSCSW(XLOW)kKVP G~(T t!HRROS	YDSCSW(XLOW)NXP HMy c1.I
	IFG <IOcPDF-400K>,<EXTERN	cpIODF%S,IODF%I,IODdF%M,IODF%Y,IODF%Dd0>
IFNB <IOFI>,<
	IF1,<IFNDEF .IOdpFI,<EXTERN .IOFI>e>
	Z	.IOFI
>
	e0IFB <IOFI>,<Z>
	ePBYTE	(1)(3)QIOFI(ep1)1(13)0(18)IODF%fS	;[63]
	Z	IODF%f0I		
	XWD	-2,1
.fPIODF::	XWD	QDFLNGfp,IODF%M	
	XWD	QFgIEBL,IODF%Y	
	XWg0D	,QFIDLE		
	BYTgPE	(1)1(17)0(18)IOgpDF%D	
	IFNB <Z>,h<
	Z	
	>
IFG <h0IODF-400K>,<
IFNhP <<.-.IODF>-<IODFhp%E-IODF>>,<CFAIL iINCONSIST. PROT. FOR IODF>
>M{zHMyT 6q+c
	IFG <IO7FI-400K>,<EXTERN	70IOFI%S,IOFI%I,IOF7PI%M,IOFI%Y,IOFI%D7p>
IFNB <>,<
	IF81,<IFNDEF .,<EXTE80RN .>>
	Z	.
>
8P	IFB <>,<Z>
	BYT8pE	(1)(3)QIOFI(1)19(13)0(18)IOFI%S	;90[63]
	Z	IOFI%I		9P
	XWD	-2,
.IOFI9p::	XWD	QFILNG,IOF:I%M	
	XWD	QFIEBL:0,IOFI%Y	
	XWD	1,:PQFIDLE		
	BYTE	(:p1)1(17)0(18)IOFI%;D	
	IFNB <PTX>,<;0
	PTX	
	>
IFG ;P<IOFI-400K>,<
IF;pN <<.-.IOFI>-<IOF<I%E-IOFI>>,<CFAIL<0 INCONSIST. PROT. FOR IOFI>
>HMz7 AQ,;
	IFG <IOApIN-400K>,<EXTERN	BIOIN%S,IOIN%I,IOIB0N%M,IOIN%Y,IOIN%DBP>
IFNB <IOFI>,<
	IF1,<IFNDEF .IOCFI,<EXTERN .IOFI>C0>
	Z	.IOFI
>
	CPIFB <IOFI>,<Z>
	CpBYTE	(1)(3)QIOFI(D1)1(13)0(18)IOIN%D0S	;[63]
	Z	IOIN%DPI		
	XWD	-2,1
.DpIOIN::	XWD	QIFLNGE,IOIN%M	
	XWD	QFE0IEBL,IOIN%Y	
	XWEPD	,QFIDLE		
	BYTEpE	(1)1(17)0(18)IOFIN%D	
	IFNB <Z>,F0<
	Z	
	>
IFG <FPIOIN-400K>,<
IFNFp <<.-.IOIN>-<IOING%E-IOIN>>,<CFAIL G0INCONSIST. PROT. FOR IOIN>
>NMHM{z Lq-
	IFG <IOMOU-400K>,<EXTERN	M0IOOU%S,IOOU%I,IOOMPU%M,IOOU%Y,IOOU%DMp>
IFNB <IOFI>,<
	IF1,<IFNDEF .ION0FI,<EXTERN .IOFI>NP>
	Z	.IOFI
>
	NpIFB <IOFI>,<Z>
	OBYTE	(1)(3)QIOFI(O01)1(13)0(18)IOOU%OPS	;[63]
	Z	IOOU%OpI		
	XWD	-2,1
.PIOOU::	XWD	QOFLNGP0,IOOU%M	
	XWD	QFPPIEBL,IOOU%Y	
	XWPpD	,QFIDLE		
	BYTQE	(1)1(17)0(18)IOQ0OU%D	
	IFNB <Z>,QP<
	Z	
	>
IFG <QpIOOU-400K>,<
IFNR <<.-.IOOU>-<IOOUR0%E-IOOU>>,<CFAIL RPINCONSIST. PROT. FOR IOOU>
>$kHM| X-o
	IFG <IOX0PF-400K>,<EXTERN	XPIOPF%S,IOPF%I,IOPXpF%M,IOPF%Y,IOPF%DY>
IFNB <IOOU>,<
	IF1,<IFNDEF .IOYPOU,<EXTERN .IOOU>Yp>
	Z	.IOOU
>
	ZIFB <IOOU>,<Z>
	Z0BYTE	(1)(3)QIOFI(ZP1)1(13)0(18)IOPF%ZpS	;[63]
	Z	IOPF%[I		
	XWD	-2,2
.[0IOPF::	XWD	QPFLNG[P,IOPF%M	
	XWD	QF[pIEBL,IOPF%Y	
	XW\D	,QFIDLE		
	BYT\0E	(1)1(17)0(18)IO\PPF%D	
	IFNB <Z>,\p<
	Z	
	>
IFG <]IOPF-400K>,<
IFN]0 <<.-.IOPF>-<IOPF]P%E-IOPF>>,<CFAIL ]pINCONSIST. PROT. FOR IOPF>
>5zH: |A(
	IFG <SS|`HD-400K>,<EXTERN	}SSHD%S,SSHD%I,SSH} D%M,SSHD%Y,SSHD%D}@>
IFNB <SSLG>,<
	IF1,<IFNDEF .SS~LG,<EXTERN .SSLG>~ >
	Z	.SSLG
>
	~@IFB <SSLG>,<Z>
	~`BYTE	(1)(3)QSSLG(1)0(13)0(18)SSHD% S	;[63]
	Z	SSHD%@I		
	XWD	.SIMLV,`1
.SSHD::	XWD	ZLG%S,SSHD%M	
	XWD 	.SIMLV-1,SSHD%Y	@
	XWD	,3+.SIMVL	`	
	BYTE	(1)(17)0(18)SSHD%D	
	IFN B <>,<
		
	>
I@FG <SSHD-400K>,<
IFN <<.-.SSHD>-<SSHD%E-SSHD>>,<CF AIL INCONSIST. PR@OT. FOR SSHD>
>uLM-uLMWH; e!':
	IFG <SSeLG-400K>,<EXTERN	daSSLG%S,SSLG%I,SSLrAG%M,SSLG%Y,SSLG%Dr`>
IFNB <>,<
	IFs1,<IFNDEF .,<EXTEs RN .>>
	Z	.
>
s@	IFB <>,<Z>
	BYTs`E	(1)(3)QSSLG(1)0t(13)0(18)SSLG%S	;t [63]
	Z	SSLG%I		t@
	XWD	.SIMLV,0
t`.SSLG::	XWD	ZLG%Su,SSLG%M	
	XWD	.Su IMLV-1,SSLG%Y	
	u@XWD	,3+.SIMVL		
u`	BYTE	(1)(17)0(18v)SSLG%D	
	IFNB <v >,<
		
	>
IFG v@<SSLG-400K>,<
IFv`N <<.-.SSLG>-<SSLwG%E-SSLG>>,<CFAILw  INCONSIST. PROT. FOR SSLG>
>yH; (p
	IFG <SS LK-400K>,<EXTERN	@SSLK%S,SSLK%I,SSL`K%M,SSLK%Y,SSLK%D	>
IFNB <SSLG>,<
	IF1,<IFNDEF .SS	@LG,<EXTERN .SSLG>	`>
	Z	.SSLG
>
	
IFB <SSLG>,<Z>
	
 BYTE	(1)(3)QSSLG(
@1)0(13)0(18)SSLK%
`S	;[63]
	Z	SSLK%I		
	XWD	.SIMLV, 1
.SSLK::	XWD	ZL@G%S,SSLK%M	
	XWD`	.SIMLV-1,SSLK%Y	


	XWD	,3+.SIMVL	

 	
	BYTE	(1)(17)0

@(18)SSLK%D	
	IFN

`B <>,<
		
	>
IG <SSLK-400K>,<
IFNL<<.-.SSLK>-<FOT. FOR SSLK>
>ug9R"$Y@H<z h!&n
	IFG <SSh@ST-400K>,<EXTERN	h`SSST%S,SSST%I,SSSiT%M,SSST%Y,SSST%Di >
IFNB <>,<
	IFi@1,<IFNDEF .,<EXTEi`RN .>>
	Z	.
>
j	IFB <>,<Z>
	BYTj E	(1)1(3)(1)1(13)j@0(18)SSST%S	;[63]j`
	Z	SSST%I		
	XkWD	0,0
.SSST::	Xk WD	ZBI%S,SSST%M	
	XWD	.SIMLV,SSSTk`%Y	
	XWD	,3+.SIMlVL-1		
	BYTE	(1)l (17)0(18)SSST%D	
	IFNB <>,<
		
l`	>
IFG <SSST-400mK>,<
IFN <<.-.SSm ST>-<SSST%E-SSST>m@>,<CFAIL INCONSISm`T. PROT. FOR SSST>
>R@cTH[0 *!+
	IFG <SU*@MA-400K>,<EXTERN	*`SUMA%S,SUMA%I,SUM+A%M,SUMA%Y,SUMA%D+ >
IFNB <SUPS>,<
	IF1,<IFNDEF .SU+`PS,<EXTERN .SUPS>,>
	Z	.SUPS
>
	, IFB <SUPS>,<Z>
	,@BYTE	(1)(3)QSUPS(,`1)0(13)0(18)SUMA%-S	;[63]
	Z	SUMA%- I		
	XWD	.SIMLV,-@3
.SUMA::	XWD	ZP-`S%S,SUMA%M	
	XWD.	.SIMLV-1,SUMA%Y	. 
	XWD	,3+.SIMVL	.@	
	BYTE	(1)(17)0.`(18)SUMA%D	
	IFN/B <>,<
		
	>
I/ FG <SUMA-400K>,<
IFN <<.-.SUMA>-</`SUMA%E-SUMA>>,<CF0AIL INCONSIST. PR0 OT. FOR SUMA>
>c&t^Pc&|[WH\ fA*&
	IFG <SUfPS-400K>,<EXTERN	eaSUPS%S,SUPS%I,SUPAS%M,SUPS%Y,SUPS%D`>
IFNB <SSLK>,<
	IF1,<IFNDEF .SS  LK,<EXTERN .SSLK> @>
	Z	.SSLK
>
	 `IFB <SSLK>,<Z>
	!BYTE	(1)(3)QSUPS(! 1)0(13)0(18)SUPS%!@S	;[63]
	Z	SUPS%!`I		
	XWD	.SIMLV,"2
.SUPS::	XWD	ZP" S%S,SUPS%M	
	XWD"@	.SIMLV-1,SUPS%Y	"`
	XWD	,3+.SIMVL	#	
	BYTE	(1)(17)0# (18)SUPS%D	
	IFN#@B <>,<
		
	>
I#`FG <SUPS-400K>,<
IFN <<.-.SUPS>-<$ SUPS%E-SUPS>>,<CF$@AIL INCONSIST. PR$`OT. FOR SUPS>
>	j6;QA)R
	IFG <SU`SI-400K>,<EXTERN	SUSI%S,SUSI%I,SUS I%M,SUSI%Y,SUSI%D@>
IFNB <SSST>,<
	IF1,<IFNDEF .SSST,<EXTERN .SSST> >
	Z	.SSST
>
	@IFB <SSST>,<Z>
	`BYTE	(1)1(3)QSUSI(1)1(13)0(18)SUSI %S	;[63]
	Z	SUSI@%I		
	XWD	0,1
.`SUSI::	XWD	ZSU%S,SUSI%M	
	XWD	.SI MLV,SUSI%Y	
	XWD@	,3+.SIMVL-1		
	`BYTE	(1)(17)0(18)SUSI%D	
	IFNB <> ,<
		
	>
IFG <@SUSI-400K>,<
IFN` <<.-.SUSI>-<SUSI%E-SUSI>>,<CFAIL  INCONSIST. PROT. FOR SUSI>
>51Idy Qa%\
DEFINE DR%A<
	IFG <A-40R 0K>,<EXTERN	A%S,R@A%I,A%M,A%Y,AR`%D>
IFNB <B>,<
	IF1,<IFNDEF .BS ,<EXTERN .B>>
	S@Z	.B
>
	IFB <S`B>,<Z>
	BYTE	(1)TL(3)C(1)D(13)0T (18)A%S	;[63]
	T@Z	A%I		
	XWD	HT`,E
.A::	XWD	FU,A%M	
	XWD	I,U A%Y	
	XWD	J,G	U@	
	BYTE	(1)M(17U`)0(18)A%D	
	IFNVB <K>,<
	K	
	V >
IFG <A-400K>,V@<
IFN <<.-.A>-<V`A%E-A>>,<CFAIL WINCONSIST. PROT. W FOR A>
>>
DEFIW@NE E%A<
IFNB <W`B>,<
	IF1,<IFNDEXF .B,<EXTERN .BX >>
	Z	.B
>
	IX@FB <B>,<Z>
	BYTX`E	(1)L(3)C(1)DY(13)0(18)0	
	Z	0Y 	
	XWD	H,E
.Y@A::	XWD	F,0	
	XY`WD	I,0	
	XWD	JZ,G	
	BYTE	(1)MZ (17)0(18)0 
	IFNZ@B <K>,<
	K	
	Z`>
IFG <A-400K>,[<
IFN <<.-.A>-<[ A%E-A>>,<CFAIL [@INCONSIST. PROT. FOR A>
>>j5ZI   ~
$$DEF==0@
IFE <^DC-^D36>`,<DEFINE A(XB,O)=
<$%W==B
IFNB  <O>,<$%W==B+<O>@
>
IFE <$$USE-3`>,<LI $$$VAL
$$USE==1>
$F $%W(XB )>
$$DEF==1>
IF@E <^DC-^D18>,<IF`E <^DD-^D17>,
<
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>,<$L $%W(XB)>
IFE <$$USE -2>,<PRINTX OPD-O@PR NESTING ERROR>`
$$USE==2>
$$DEF==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
IFE><$$USEABO(XB
IFE <$$USE-2>,< PRINTX INVALID US@E OF FIELD>
$$US`E==2>
$$DEF==1>
OPDEF $A [POINT  C,B,D]
$A==@$A
%A==^DD
I`FE <^DC-1>,<DSW (A,B,D)>
IO8 #

IFL <^ D36-^DC>,<$$E(<T@OO BIG BIT NO>)>
IFE ^D36-^DC,<
 IFB <D>,<DEFIN E A(ACC)=<
	IFE@ <%OP%-2>,<$$E(<I`LL SWITCH NAME>)>
	IFN <%OP%-2>,< 
	 IFE <%OP%-3>,@<%OP3 777777>
	 `IFE <%OP%-4>,<%OP 3>
	 IFL <%OP%-2  >,<%OP4 B(ACC)>
			%OP%==2>>>
  `IFNB <D>,<DEFINE! A=<
	IFE <%OP%! -2>,<$$E(<ILL SWI!@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 SWIT'`CH NAME>)>
IFGE (<%OP%-3>,<IFB <AC( C>,<%OP1 Y>
	IFN(@B <ACC>,<%OP1 ACC(`,Y>>
IFL<%OP%-2>),<%OP3 B(ACC)>
) %OP%==2>>
IFNB <)@Z>,<DEFINE A=<
)`IFE <%OP%-1>,<%OP*1 Y>
IFE %OP%,<%* OP1 X>
IFE <%OP%*@-2>,<$$E(<ILL SWI*`TCH NAME>)>
IFGE+ <%OP%-3>,<%OP1 Z+ ,Y>
IFL <%OP%-2>+@,<%OP3 B(Z)>
%O+`P%==2>>>

IFL ^,D17-^DC,<
IFB <, D>,<DEFINE A(AC,@C)<
IFE %OP%-1,<,`%OP2 Y>
IFE %OP%-,<%OP2 X>
IFE <%- OP%-2>,<$$E(<ILL -@SWITCH NAME>)>
I-`FGE <%OP%-3>,<IFB. <ACC>,<%OP2 Y>
. 	IFNB <ACC>,<%OP2.@ ACC,Y>>
IFL <%O.`P%-2>,<%OP3 B(AC/C)>
%OP%==2>>
I/ FNB <D>,<DEFINE /@A=<
IFE <%OP%-1/`>,<%OP2 Y>
IFE %0OP%,<%OP2 X>
IFE0  <%OP%-2>,<$$E(<I0@LL SWITCH NAME>)>0`
IFGE <%OP%-3>,<1%OP2 Z,Y>
IFL <%1 OP%-2>,<%OP3 B(Z1@)>
%OP%==2>>
>1`
>
	$$TES1(\CA,2\VA,D)
	PURGE VA,CA
>
IXtJ9P IXtLuP"IXtMP  IXu]P IXvMP  IXvMP IXvMP Ik@ ^&
	S==0
	^ IFNB	<B>,<S==B>^@
	K==QSIMPLE
	I^`FNB	<E>,<K==E>
	M==QDECLARED
	_ IFNB	<D>,<M==D>_@
	N==0
	IRPC	A_a,<N==N+1>
	IFG	<`N-^D12>,<PRINTX ` A too long>
	Q==`A0
	IFG	<N-6>,<Q=``=1B0>
	Q==Q+<S>Ba<%ZSDSPI>+<C>B<%a ZSDTYP>+<M>B<%ZSDa@MOD>+<K>B<%ZSDKNDa`>+F
	EXP	Q
	SIbXBIT/A/
	IFE	<b C-QREF>,<
	IFB	<b@G>,<PRINTX REF qb`uantity should hacve qualif>
	Z	G
>Q	j5IkXv \%l
	SIXBIT/\ A/
	N==0
	IRPC\@	A,<N==N+1>
	IF\`L	<N-7>,<Z>
	IFN]B	<C>,<N==C>
	] IFB	<C>,<N==.+1>]@
B%Y::	<QSYSCL>B<%ZSMTYP>+N
7JMy iQ.q
IFNB <IOipFI>,<
	IF1,<IFNDjEF .IOFI,<EXTERN j0.IOFI>>
	Z	.IOFIjP
>
	IFB <IOFI>,jp<Z>
	BYTE	(1)(3)kQIOFI(1)1(13)0(18k0)0	
	Z	0	
	XWD	kP-2,1
.IODF::	XWDkp	QDFLNG,0	
	XWD	lQFIEBL,0	
	XWD	,l0QFIDLE	
	BYTE	(1lP)1(17)0(18)0 
	IlpFNB <Z>,<
	Z	
	m>
IFG <IODF-400Km0>,<
IFN <<.-.IODmPF>-<IODF%E-IODF>>mp,<CFAIL INCONSISTn. PROT. FOR IODF>
>XVQ%cMKSJMyT <q,	
IFNB <>,=<
	IF1,<IFNDEF .=0,<EXTERN .>>
	Z	=P.
>
	IFB <>,<Z>=p
	BYTE	(1)(3)QIO>FI(1)1(13)0(18)0	>0
	Z	0	
	XWD	-2,>P
.IOFI::	XWD	QFI>pLNG,0	
	XWD	QFIE?BL,0	
	XWD	1,QFI?0DLE	
	BYTE	(1)1(?P17)0(18)0 
	IFNB?p <PTX>,<
	PTX	
@	>
IFG <IOFI-400@0K>,<
IFN <<.-.IO@PFI>-<IOFI%E-IOFI>@p>,<CFAIL INCONSISAT. PROT. FOR IOFI>
>[NuL-3JMz7 Gq,c
IFNB <IOHFI>,<
	IF1,<IFNDH0EF .IOFI,<EXTERN HP.IOFI>>
	Z	.IOFIHp
>
	IFB <IOFI>,I<Z>
	BYTE	(1)(3)I0QIOFI(1)1(13)0(18IP)0	
	Z	0	
	XWD	Ip-2,1
.IOIN::	XWDJ	QIFLNG,0	
	XWD	J0QFIEBL,0	
	XWD	,JPQFIDLE	
	BYTE	(1Jp)1(17)0(18)0 
	IKFNB <Z>,<
	Z	
	K0>
IFG <IOIN-400KKP>,<
IFN <<.-.IOIKpN>-<IOIN%E-IOIN>>L,<CFAIL INCONSISTL0. PROT. FOR IOIN>
>

 VubJM{z S-=
IFNB <IOS0FI>,<
	IF1,<IFNDSPEF .IOFI,<EXTERN Sp.IOFI>>
	Z	.IOFIT
>
	IFB <IOFI>,T0<Z>
	BYTE	(1)(3)TPQIOFI(1)1(13)0(18Tp)0	
	Z	0	
	XWD	U-2,1
.IOOU::	XWDU0	QOFLNG,0	
	XWD	UPQFIEBL,0	
	XWD	,UpQFIDLE	
	BYTE	(1V)1(17)0(18)0 
	IV0FNB <Z>,<
	Z	
	VP>
IFG <IOOU-400KVp>,<
IFN <<.-.IOOWU>-<IOOU%E-IOOU>>W0,<CFAIL INCONSISTWP. PROT. FOR IOOU>
>	j5JM| ^1.
IFNB <IO^POU>,<
	IF1,<IFND^pEF .IOOU,<EXTERN _.IOOU>>
	Z	.IOOU_0
>
	IFB <IOOU>,_P<Z>
	BYTE	(1)(3)_pQIOFI(1)1(13)0(18`)0	
	Z	0	
	XWD	`0-2,2
.IOPF::	XWD`P	QPFLNG,0	
	XWD	`pQFIEBL,0	
	XWD	,aQFIDLE	
	BYTE	(1a0)1(17)0(18)0 
	IaPFNB <Z>,<
	Z	
	ap>
IFG <IOPF-400Kb>,<
IFN <<.-.IOPb0F>-<IOPF%E-IOPF>>bP,<CFAIL INCONSISTbp. PROT. FOR IOPF>
>887	j689J: (<
IFNB <SS LG>,<
	IF1,<IFND@EF .SSLG,<EXTERN `.SSLG>>
	Z	.SSLG
>
	IFB <SSLG>, <Z>
	BYTE	(1)(3)@QSSLG(1)0(13)0(18`)0	
	Z	0	
	XWD	.SIMLV,1
.SSHD:: 	XWD	ZLG%S,0	
	X@WD	.SIMLV-1,0	
	`XWD	,3+.SIMVL	
	BYTE	(1)(17)0(18) 0 
	IFNB <>,<
	@	
	>
IFG <SSHD-`400K>,<
IFN <<.-.SSHD>-<SSHD%E-SS HD>>,<CFAIL INCON@SIST. PROT. FOR SSHD>
>)uNM J; wa'`
IFNB <>,x<
	IF1,<IFNDEF .x ,<EXTERN .>>
	Z	x@.
>
	IFB <>,<Z>x`
	BYTE	(1)(3)QSSyLG(1)0(13)0(18)0	y 
	Z	0	
	XWD	.SIy@MLV,0
.SSLG::	XWy`D	ZLG%S,0	
	XWD	z.SIMLV-1,0	
	XWDz 	,3+.SIMVL	
	BYTz@E	(1)(17)0(18)0 
	IFNB <>,<
		
{	>
IFG <SSLG-400{ K>,<
IFN <<.-.SS{@LG>-<SSLG%E-SSLG>{`>,<CFAIL INCONSIS|T. PROT. FOR SSLG>
> Pq^

5J; A)
IFNB <SS`LG>,<
	IF1,<IFNDEF .SSLG,<EXTERN  .SSLG>>
	Z	.SSLG@
>
	IFB <SSLG>,`<Z>
	BYTE	(1)(3)QSSLG(1)0(13)0(18 )0	
	Z	0	
	XWD	@.SIMLV,1
.SSLK::`	XWD	ZLG%S,0	
	XWD	.SIMLV-1,0	
	 XWD	,3+.SIMVL	
	@BYTE	(1)(17)0(18)`0 
	IFNB <>,<
		
	>
IFG <SSLK- 400K>,<
IFN <<.-@.SSLK>-<SSLK%E-SS`LK>>,<CFAIL INCONSIST. PROT. FOR SSLK>
>#	j$k7J<z n!'
IFNB <>,n@<
	IF1,<IFNDEF .n`,<EXTERN .>>
	Z	o.
>
	IFB <>,<Z>o 
	BYTE	(1)1(3)(1o@)1(13)0(18)0	
	Zo`	0	
	XWD	0,0
.SpSST::	XWD	ZBI%S,0p 	
	XWD	.SIMLV,0	p@
	XWD	,3+.SIMVL-p`1	
	BYTE	(1)(17)q0(18)0 
	IFNB <>q ,<
		
	>
IFG <q@SSST-400K>,<
IFNq` <<.-.SSST>-<SSSTr%E-SSST>>,<CFAIL r INCONSIST. PROT. FOR SSST>
>$[WJ[0 0a+*
IFNB <SU1PS>,<
	IF1,<IFND1 EF .SUPS,<EXTERN [email protected]>>
	Z	.SUPS1`
>
	IFB <SUPS>,2<Z>
	BYTE	(1)(3)2 QSUPS(1)0(13)0(182@)0	
	Z	0	
	XWD	2`.SIMLV,3
.SUMA::3	XWD	ZPS%S,0	
	X3 WD	.SIMLV-1,0	
	3@XWD	,3+.SIMVL	
	3`BYTE	(1)(17)0(18)40 
	IFNB <>,<
	4 	
	>
IFG <SUMA-4@400K>,<
IFN <<.-4`.SUMA>-<SUMA%E-SU5MA>>,<CFAIL INCON5 SIST. PROT. FOR SUMA>
>-Jg%K{J\ %!*N
IFNB <SS%@LK>,<
	IF1,<IFND%`EF .SSLK,<EXTERN &.SSLK>>
	Z	.SSLK& 
>
	IFB <SSLK>,&@<Z>
	BYTE	(1)(3)&`QSUPS(1)0(13)0(18')0	
	Z	0	
	XWD	' .SIMLV,2
.SUPS::'@	XWD	ZPS%S,0	
	X'`WD	.SIMLV-1,0	
	(XWD	,3+.SIMVL	
	( BYTE	(1)(17)0(18)(@0 
	IFNB <>,<
	(`	
	>
IFG <SUPS-)400K>,<
IFN <<.-) .SUPS>-<SUPS%E-SU)@PS>>,<CFAIL INCON)`SIST. PROT. FOR SUPS>
>IXvMJ\t a)z
IFNB <SSST>,<
	IF1,<IFND EF .SSST,<EXTERN @.SSST>>
	Z	.SSST`
>
	IFB <SSST>,<Z>
	BYTE	(1)1(3 )QSUSI(1)1(13)0(1@8)0	
	Z	0	
	XWD`	0,1
.SUSI::	XWD	ZSU%S,0	
	XWD	. SIMLV,0	
	XWD	,3@+.SIMVL-1	
	BYTE`	(1)(17)0(18)0 
	IFNB <>,<
		
	 >
IFG <SUSI-400K@>,<
IFN <<.-.SUS`I>-<SUSI%E-SUSI>>,<CFAIL INCONSIST . PROT. FOR SUSI>
>QI	j5KH,P KH-J1P KK;r Oi
		PIFNB <A>,<..N=AP(>
		IRP B,<
		PHQBENO=..N
		>
		PURGE	..N
		KKX1 jykIRP A,<
k		DEFINE	AERR(N,k8MSG)<
			RTSERR	kX<N+QAENO>
			IFkxN	QDEBUG,<NOP	[ASlCIZ/
MSG
/]
	>l8>	

		DEFINE	AlXERC(C,N,MSG)<
		lx	RTSERR	<C>,<N+QmAENO>
			IFN	QDEm8BUG,<NOP	[ASCIZ/
MSG
/]
	>>>MJ,P 6 S6)2 7 Su{R iyOCAIN	A,NONEY?< gC
		IFNB <g8A>,<XLOW=A>
		hIFB  <A>,<XLOW=Xh8IAC>
		HRRZ	XLOW,.JBOPS
		kN:7]>h6 tY'
		LOWADRtx
		L	A,YDSIAR(XLOW)
	]PA]?$lR7769:!P* Pi%	
QOCIN==	B11
QOCIO==	2
QIOWa==	4
QIONF=	10
6yQOCEP=	20	
QALL=7	QIO+QIONF+QOCEP+78QOCIN+QOCIO	
QRT7XSYM=	777
Q==QA	7x
DEFINE X(N,E,D,8U,O)<
%U==0	
IR88P U,<%U==%U+Q'U>
IFN <QRTSYM-Q'D>8x,<	
	IFN <Q&%U>,9<IFE <<Q'D>&Q>,<E98XTERN E>>	
	IFN 9X<<Q'D>&Q>,<IFN <Q9x'D-%U>,<INTERN E>:>	
						
>
IF:8N <Q&%U>,<	
	IFB:X <O>,<
	OPDEF N :x[PUSHJ XPDP,E]
	;>
	IFNB <O>,<
	;8OPDEF N [O E]
>	;X>
>



X(COP;xYSPEC,.OCIN6,OCIN<,<OCIN,IONF>)	
X<8(CREATEFILE,.IOCF<X,IONF,<OCIN,IONF><x)	
X(ERRFILE,.IO=ERF,OCIO,<OCIN,IO=8>)	
					
X(FIL=XEENTER,.IOENT,ION=xF,<OCIN,IONF>)	
>X(FILEERROR,.IOFE>8R,OCIO,IONF)		
	>X				
X(FILELOOKU>xP,.IOLOK,IONF,<OC?IN,IONF>)	
X(FIN?8DLOGICAL,.OCINJ,O?XCIN,<OCIN,IONF>)	?x
					
X(FIXSWI@TCH,.OCINF,OCIN,<@8OCIN,IONF>)	
			@X		
X(FREEBUFF,.O@xCINC,OCIO,<OCIN,IAO>)	
X(GETBUFF,.A8OCIN7,OCIN,<OCIN,AXIONF>)	
X(GETBYTAxE,.OCING,OCIO,<OCBIN,OCIO,IONF>)	
B8					
X(GETCHANNBXEL,.OCIN8,OCIO,<OBxCIN,IONF>)	
X(GECTNAME,.OCIN1,OCIOC8,<OCIN,IO,IONF>)	CX
X(GETREST,.OCINCxH,OCIO,OCIN)		
	D				
X(GETSPEC,.D8OCINB,OCIN,<OCIN,DXIONF>)	
X(LEGAL,Dx.OCLA,OCIO,<OCEP,EOCIO>)		
X(LINKBE8UFF,.OCIND,OCIO,<EXOCIN,IONF>)	
X(OExUTENTER,.OCINI,OCFIN,<OCIN,IONF>)	
					
X(OUTOCT,FX.OCOO,OCIO,<IONF,FxOCIO,OCEP>)	
X(PGRINTFILE,.OCIN9,OG8CIO,<OCIO,OCIN>)	GX
X(PRINTSPEC,.OCGxINE,IONF,<OCIN,IOHNF>)	
X(REOPEN,OH8CINK,RTSYM,IO)		
X(SETUPFILE,IOCOHxM,RTSYM,IO)		
X(ISPECCOPY,.OCINZ,OI8CIN,<OCIN,IONF>)	IX
					
X(TTYSPEIxC,.OCINY,OCIN,<OCJIN,IONF>)	
X(TYPJ8ENAME,.OCIN2,OCIOJX,ALL)		
					
XJx(TYPESPEC,.IOTYS,KOCIO,ALL)		
X(TYK8PDEC,.OCDT,OCIO,<KXOCIO,OCEP>)	
X(TKxYPOCT,.OC8T,OCIO,L<OCIO,OCEP>)	

L8OPDEF	OP	[HRLI]
LXOPDEF	OPZ	[HRLZI]Lx
QCHN==OFFSET(ZFMICHN)

DEFINE FM8ILOP(OP,X,Y)<
IFMXB	<Y>,<HLL X,QCHNMx(XWAC1)>
IFNB	<YN>,<HLL X,QCHN(Y)>N8
	TLO	X,(<OP>)
NX	XCT	X
	>
DEFINNxE	IOCHECK(X,Y,M)<O
IFB	<M>,<HRRI XO8,740000>
	IFNB	<OXM>,<HRRI	X,M>
	FOxILOP(STATZ,X,Y)
P	>

	IFE QDEC20P8,<OPDEF PBOUT [OUPXTCHR X1]>	

	PUPxRGE %U,Q,QIO,QIONQF,QOCIN,QOCIO,QRTSYM
	jQaS@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:  9

8	
	SEARCH 	SIMMAC,SIMMCR
	,iEXTERN	.YFARG,.YF-iADR		
	SALL
	RT,IITLE	RDA
	ENTRY?		.RDA
	ERRMAC	R?(D
	MACINIT
DEFI?HNE XX(N)<
DEFINE?h ARG'N<N-1(XTAC)>@
>
	XX	1
	XX	2@(
	XX	3
	XX	4
	@HXX	5

	SYN	ARG1@h,RESULT

DEFINEA RAND(N)<
		
	LA(	X0,@ARG'N
	SKIPAHGE	
	ADD	[377777Ah777777]
	TRO	1	
	MUL	X0,[QMULTIPB(LIER]
	ST	X1,@ARBHG'N	
	TLZ	X1,400BhK	
>

DEFINE MCAKEREAL(N<1>)<	
C(	FLTR	X0,X1
	FSCCH	X0,N-44
>

DEChFINE AR(A,B)<OFFSDET(ZAR'A)+2(XWAC'D(B)>

DEFINE ARTDHEST(A,B)<
	HLRZ	DhXWAC'A,OFFSET(ZARESUB)(XWAC'B)
	CAE(IE	XWAC'A,QTSTAR
>

QMULTIPLIEREh==1
REPEAT ^D15,F<QMULTIPLIER==QMUF(LTIPLIER*5>;RESULFHT IS 5**15

	QTFhSTAR==(<QREAL>B<%GZARTYP>+1B<%ZARSUB>)
e&=
	SIZE(Q,nA)
	IFN <Q-^D18n8>,<Q==0>
	IFN <%nXA-^D35>,<Q==0>
nx	IFE <Q>,
	<CFAIoL A is not right half>
	1P eK$^ M	

z
	IFN QDEM(BUG,<
	IFONA	SWGMHCT2
	>
	OUTSTR	Mh[ASCIZ	/

A/]
	IFN QDEBUG,<
	N(IF
		IFOFFA	SWGCNHT3
		GOTO	FALSE
	THEN
		LI	X2,[OASCIZ	/

A/]
O(		EXEC	SAPDTO
	FI
	>
	eR/

d
	IFN QDEJHBUG,<
	IFONA	SWGJhCT2
	>
	OUTSTR	K[ASCIZ	/
A/]
	K(IFN QDEBUG,<
	IFKH
		IFOFFA	SWGCT3Kh
		GOTO	FALSE
	LTHEN
		LI	X2,[ASL(CIZ	/
A/]
		EXLHEC	SAPDTO
	FI
	>
	eVu@ Mh,x
	IFDEF .NDIRECTIVE,<.DIRECN(TIVE .NOBIN>
	UNNHIVERSAL	A     DENhCsystem-10/20 SIMOULA RTS %4A(310)   RTS %4A(310) g<< .I

IFE <%OP.h%-1>,<%OP1 400000/>
IFE %OP%,<%OP1/( 377777>
IFE <%O/HP%-2>,<$$E(<ILL S/hWITCH NAME>)>
IF0GE <%OP%-3>,<IFB 0(<A>,<%OP1 4000000H>
	IFNB <A>,<%O0hP1 A,400000>>
I1FL<%OP%-2>,<%OP3 1(YSASW(A)>
%OP%==2g4X6 oY
	EXCH	X1ox6,.JBOPS
	q==YUUpOAC
	IFNB <A>,<p8q==A>
	ST	X17,qpX+X17(X16)
	LI	X1px7,q(X16)
	BLT	X1q7,q+X15(X16)
	L	q8X17,X16
	EXCH	X1qX7,.JBOPS
	ST	X17qx,q+X16(X16)
	L	Xr17,q+X17(X16)
	PURGE	q
JwP g
Ht ga.y
	IFE <%O!P%-2>,<$$E(<ILL SAWITCH NAME>)>
	IaFN <%OP%-2>,<
	 IFE <%OP%-3>,<%OPn93 777777>
	 IFE nX<%OP%-4>,<%OP3>
nx	 IFL <%OP%-2>,<%oOP4 YBATCH(A)>
			%OP%==2>Gg
%%%%%1==Yh0
IRP A,<
A==Z%%%%%1
%%%%%1==<%%%%%1+1>>g; xI/T
	IFE <%OxhP%-2>,<$$E(<ILL SyWITCH NAME>)>
	Iy(FN <%OP%-2>,<
	 yHIFE <%OP%-3>,<%OPyh3 777777>
	 IFE z<%OP%-4>,<%OP3>
z(	 IFL <%OP%-2>,<%zHOP4 YDSCLOSE(A)>
			%OP%==2>g%K{ hyK
		IFNB <iA>,<XLOW=A>
		i8IFB  <A>,<XLOW=XIAC>
		gRJ1 6+-
	A=	Q
5q	IFB	<B>,<Q==Q+15Q>
	IFNB	<B>,<Q==<B>+Q>5g^<0g^+ Y	7
	IFE <%OxP%-2>,<$$E(<ILL SWITCH NAME>)>
	I8FN <%OP%-2>,<
	 XIFE <%OP%-3>,<%OPx3 XLOW,777777>
	 IFE <%OP%-4>,<%O8P3 XLOW,>
	 IFL X<%OP%-2>,<%OP4 YOxCSW+13(XLOW)>
		     %OP%==2>g^.,@ yI
	IFE <%OP%-2>,<$$E(<ILL S8WITCH NAME>)>
	IXFN <%OP%-2>,<
	 xIFE <%OP%-3>,<%OP3 XLOW,777777>
	8 IFE <%OP%-4>,<%OXP3 XLOW,>
	 IFL x<%OP%-2>,<%OP4 YO	CSW+6(XLOW)>
		     %OP%==2>g^<0 y	y
	IFE <%OP%-2>,<$$E(<ILL S8WITCH NAME>)>
	IXFN <%OP%-2>,<
	 xIFE <%OP%-3>,<%OP3 XLOW,777777>
	8 IFE <%OP%-4>,<%OXP3 XLOW,>
	 IFL x<%OP%-2>,<%OP4 YOCSW+16(XLOW)>
		     %OP%==2>g^<=	 5)@
IFE <%OP5H%-1>,<%OP1 1000005h>
IFE %OP%,<%OP16 677777>
IFE <%O6(P%-2>,<$$E(<ILL S6HWITCH NAME>)>
IF6hGE <%OP%-3>,<IFB 7<A>,<%OP1 1000007(>
	IFNB <A>,<%O7HP1 A,100000>>
I7hFL<%OP%-2>,<%OP3 8YSASW(A)>
%OP%==2	 8Y[
IFE <%OP8x%-1>,<%OP1 40000>9
IFE %OP%,<%OP1 98737777>
IFE <%OP9X%-2>,<$$E(<ILL SW9xITCH NAME>)>
IFG:E <%OP%-3>,<IFB <:8A>,<%OP1 40000>
	IFNB <A>,<%OP1:x A,40000>>
IFL<;%OP%-2>,<%OP3 YSA;8SW(A)>
%OP%==2@q&

0@g^<=
 <	v
IFE <%OP<(%-1>,<%OP1 20000><H
IFE %OP%,<%OP1 <h757777>
IFE <%OP=%-2>,<$$E(<ILL SW=(ITCH NAME>)>
IFG=HE <%OP%-3>,<IFB <=hA>,<%OP1 20000>
	IFNB <A>,<%OP1>( A,20000>>
IFL<>H%OP%-2>,<%OP3 YSA>hSW(A)>
%OP%==2@qj@g^<= 1y%
IFE <%OP2%-1>,<%OP1 20000028>
IFE %OP%,<%OP12X 577777>
IFE <%O2xP%-2>,<$$E(<ILL S3WITCH NAME>)>
IF38GE <%OP%-3>,<IFB 3X<A>,<%OP1 2000003x>
	IFNB <A>,<%O4P1 A,200000>>
I48FL<%OP%-2>,<%OP3 4XYSASW(A)>
%OP%==2g^>=` 	Y_
	IFE <%O	xP%-2>,<$$E(<ILL S
WITCH NAME>)>
	I
8FN <%OP%-2>,<
	 
XIFE <%OP%-3>,<%OP
x3 XLOW,777777>
	 IFE <%OP%-4>,<%O8P3 XLOW,>
	 IFL X<%OP%-2>,<%OP4 YOxCSW+7(XLOW)>
		     %OP%==2>g^EL 	
	IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
	IxFN <%OP%-2>,<
	 IFE <%OP%-3>,<%OP83 XLOW,777777>
	X IFE <%OP%-4>,<%OxP3 XLOW,>
	 IFL <%OP%-2>,<%OP4 YO8CSW+11(XLOW)>
		     %OP%==2>g^Mi v9E
	IFE <%OvXP%-2>,<$$E(<ILL SvxWITCH NAME>)>
	IwFN <%OP%-2>,<
	 w8IFE <%OP%-3>,<%OPwX3 XLOW,777777>
	wx IFE <%OP%-4>,<%OxP3 XLOW,>
	 IFL x8<%OP%-2>,<%OP4 YOxXCSW(XLOW)>
		     %OP%==2>!fg^d$j v	/@
	IFE <%Ov(P%-2>,<$$E(<ILL SvHWITCH NAME>)>
	IvhFN <%OP%-2>,<
	 wIFE <%OP%-3>,<%OPw(3 777777>
	 IFE wH<%OP%-4>,<%OP3>
wh	 IFL <%OP%-2>,<%xOP4 YDSL35(A)>
			%OP%==2>g^ez` 	c
	IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
	IxFN <%OP%-2>,<
	 IFE <%OP%-3>,<%OP83 XLOW,777777>
	X IFE <%OP%-4>,<%OxP3 XLOW,>
	 IFL <%OP%-2>,<%OP4 YO8CSW+15(XLOW)>
		     %OP%==2>g^uyq p)/,
	IFE <%Op	P%-2>,<$$E(<ILL St	WITCH NAME>)>
	It(FN <%OP%-2>,<
	 tHIFE <%OP%-3>,<%OPth3 777777>
	 IFE u<%OP%-4>,<%OP3>
u(	 IFL <%OP%-2>,<%uHOP4 YDSNOG(A)>
			%OP%==2>Cg_y9 

9u
	IFE <%O

XP%-2>,<$$E(<ILL S

xWITCH NAME>)>
	I <%OP%-2>,<
	IEL<%OP%-3>,<%OP
	IFE <%OP%-4>,<%OP3 XLOW,>
	 IFL 8<%OP%-2>,<%OP4 YOXCSW+10(XLOW)>
		     %OP%==2>g_r y	!
	IFE <%OP%-2>,<$$E(<ILL S8WITCH NAME>)>
	IXFN <%OP%-2>,<
	 xIFE <%OP%-3>,<%OP3 XLOW,777777>
	8 IFE <%OP%-4>,<%OXP3 XLOW,>
	 IFL x<%OP%-2>,<%OP4 YOCSW+12(XLOW)>
		     %OP%==2>g_r ~Y
	IFE <%O~xP%-2>,<$$E(<ILL SWITCH NAME>)>
	I8FN <%OP%-2>,<
	 XIFE <%OP%-3>,<%OPx3 XLOW,777777>
	 IFE <%OP%-4>,<%O8P3 XLOW,>
	 IFL X<%OP%-2>,<%OP4 YOxCSW+3(XLOW)>
		     %OP%==2>g_t 3
	IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
	IxFN <%OP%-2>,<
	 IFE <%OP%-3>,<%OP83 XLOW,777777>
	X IFE <%OP%-4>,<%OxP3 XLOW,>
	 IFL <%OP%-2>,<%OP4 YO8CSW+5(XLOW)>
		     %OP%==2>g_y {yq
	IFE <%O|P%-2>,<$$E(<ILL S|8WITCH NAME>)>
	I|XFN <%OP%-2>,<
	 |xIFE <%OP%-3>,<%OP}3 XLOW,777777>
	}8 IFE <%OP%-4>,<%O}XP3 XLOW,>
	 IFL }x<%OP%-2>,<%OP4 YO~CSW+2(XLOW)>
		     %OP%==2>g_z 9
	IFE <%OXP%-2>,<$$E(<ILL SxWITCH NAME>)>
	IFN <%OP%-2>,<
	 8IFE <%OP%-3>,<%OPX3 XLOW,777777>
	x IFE <%OP%-4>,<%OP3 XLOW,>
	 IFL 8<%OP%-2>,<%OP4 YOXCSW+4(XLOW)>
		     %OP%==2>g_&  9	M
	IFE <%OXP%-2>,<$$E(<ILL SxWITCH NAME>)>
	IFN <%OP%-2>,<
	 8IFE <%OP%-3>,<%OPX3 XLOW,777777>
	x IFE <%OP%-4>,<%OP3 XLOW,>
	 IFL 8<%OP%-2>,<%OP4 YOXCSW+14(XLOW)>
		     %OP%==2>g_&N  y[
	IFE <%Oy8P%-2>,<$$E(<ILL SyXWITCH NAME>)>
	IyxFN <%OP%-2>,<
	 zIFE <%OP%-3>,<%OPz83 XLOW,777777>
	zX IFE <%OP%-4>,<%OzxP3 XLOW,>
	 IFL {<%OP%-2>,<%OP4 YO{8CSW+1(XLOW)>
		     %OP%==2>gg; cA&
X<CLPB,Sc`USI,SSLG,SUPS,IOFI>5rQh	j5riF@ GI

N
	IFN QDEGhBUG,<
	IFONA	SWGHCT2
	>
	OUTSTR	H([ASCIZ	/A/]
	IFHHN QDEBUG,<
	IF
Hh		IFOFFA	SWGCT3
I		GOTO	FALSE
	THI(EN
		LI	X2,[ASCIIHZ	/A/]
		EXEC	SIhAPDTO
	FI
	>
	iJM\z j9SSUB	XPDP,[1,,1]p d!&$..N==0
	Id@RP A,<QA==..N
	..N==..N+1>688pEP 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 <%OPq(%-1>,<%OP1 400000qH>
IFE %OP%,<%OP1qh 377777>
IFE <%OrP%-2>,<$$E(<ILL Sr(WITCH NAME>)>
IFrHGE <%OP%-3>,<IFB rh<A>,<%OP1 400000s>
	IFNB <A>,<%Os(P1 A,400000>>
IsHFL<%OP%-2>,<%OP3 shYDSWIT(A)>
%OP%==2cj.+W@s((@ 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 {	/h
	IFE <%O{(P%-2>,<$$E(<ILL S{HWITCH NAME>)>
	I{hFN <%OP%-2>,<
	 |IFE <%OP%-3>,<%OP|(3 777777>
	 IFE |H<%OP%-4>,<%OP3>
|h	 IFL <%OP%-2>,<%}OP4 YDSCRA(A)>
			%OP%==2>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 Y $%W==2
IFxNB <B>,<$%W==2+<B>
>
IFE <$$US8E-3>,<LI $$$VAL
X$$USE==1>
$F $%W(A)cj.+@u
D;Z ) "$%W==3
IFHNB <B>,<$%W==3+<hB>
>
IFE <$$USE-3>,<LI $$$VAL
($$USE==1>
$F $%W(A)eg^<=	(u
D;w wqU
IFE %OP%x-1,<%OP2 400000>
IFE %OP%,<%OP2 7xP77777377777>
IFExp <%OP%-2>,<$$E(<IyLL SWITCH NAME>)>y0
IFGE <%OP%-3>,<yPIFB <A>,<%OP2 40yp0000>
	IFNB <A>z,<%OP2 A,400000>z0>
IFL <%OP%-2>,<zP%OP3 0(A)>
%OP%==2IELD>
$$USEu
DlR qA 
IFE <%OPqa%-1>,<%OP1 400000r>
IFE %OP%,<%OP1r  377777>
IFE <%Or@P%-2>,<$$E(<ILL Sr`WITCH NAME>)>
IFsGE <%OP%-3>,<IFB s <A>,<%OP1 400000s@>
	IFNB <A>,<%Os`P1 A,400000>>
ItFL<%OP%-2>,<%OP3 0(A)>
%OP%==2u
EI7 nq	
$%W==0
oIFNB <B>,<$%W==0o0+<B>>
IFE <$$USoPE-3>,<LI $$$VAL
op$$USE==1>
IFE $$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$pPL $%W(A)>
IFE <pp$$USE-2>,<PRINTX qOPD-OPR NESTING ERROR>
$$USE==2u
EKU u<
$%W==0
tqIFNB <B>,<$%W==0v+<B>>
IFE <$$US"IE-3>,<LI $$$VAL
")$$USE==1>
IFE $$t!USE,<$F $%W(A)>
IFE <$$USE-1>,<$v@B [$ZBHLNK B(A)v`]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pw RINTX INVALID USEw@ OF FIELD>
$$USE==23Pj56u
F\r {ap
IFE <%OP{A%-1>,<%OP1 400000{!>
IFE %OP%,<%OP1}	 377777>
IFE <%O|iP%-2>,<$$E(<ILL S|)WITCH NAME>)>
IF|IGE <%OP%-3>,<IFB zp<A>,<%OP1 400000}H>
	IFNB <A>,<%O}hP1 A,400000>>
I~FL<%OP%-2>,<%OP3 1(A)>
%OP%==2u
G(Z  
$%W==1
~yIFNB <B>,<$%W==1	+<B>>
IFE <$$US"	E-3>,<LI $$$VAL
!i$$USE==1>
IFE $$~)USE,<$F $%W(A)>
IFE <$$USE-1>,<$HR $%W(A)>
IFE <h$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2u,H: y!g$%W==7
IFNB <B>,<$%W==7+<8B>
>
IFE <$$USXE-3>,<LI $$$VAL
x$$USE==1>
$F $%W(A)?	j5ZQtu.:= y!,
$%W==5
YIFNB <B>,<$%W==5	+<B>>
IFE <$$USiE-3>,<LI $$$VAL
!I$$USE==1>
IFE $$	USE,<$F $%W(A)>
IFE <$$USE-1>,<$HB [$ZBUSIZ B(A)h]-$$RELO($$BAS)>
IFE <$$USE-2>,<P(RINTX INVALID USEH OF FIELD>
$$USE==2\uI;

Y w
$%W==4


xIFNB><B>,<$%W==4
IFE3<$$US$$$VAL
$$USE==1>
IFEE$$F $%W(A)>
IFE <$$USE-1>,<$8R $%W(A)>
IFE <X$$USE-2>,<PRINTX xOPD-OPR NESTING ERROR>
$$USE==2u.\r )!
IFE <%OPI%-1>,<%OP1 400000h>
IFE %OP%,<%OP1 377777>
IFE <%O(P%-2>,<$$E(<ILL SHWITCH NAME>)>
IFhGE <%OP%-3>,<IFB <A>,<%OP1 400000(>
	IFNB <A>,<%OHP1 A,400000>>
IhFL<%OP%-2>,<%OP3 5(A)>
%OP%==2u.xz 	!Z
$%W==6
(IFNB <B>,<$%W==6H+<B>>
IFE <$$UShE-3>,<LI $$$VAL
$$USE==1>
IFE $$(USE,<$F $%W(A)>
IFE <$$USE-1>,<$hR $%W(A)>
IFE <$$USE-2>,<PRINTX (OPD-OPR NESTING ERROR>
$$USE==2u/(Z !C
$%W==5
8IFNB <B>,<$%W==5X+<B>>
IFE <$$USxE-3>,<LI $$$VAL
$$USE==1>
IFE $$8USE,<$F $%W(A)>
IFE <$$USE-1>,<$xR $%W(A)>
IFE <$$USE-2>,<PRINTX 8OPD-OPR NESTING ERROR>
$$USE==2u4+ kQr
$%W==26
IFNB <B>,<$%W==la26+<B>>
IFE <$$lAUSE-3>,<LI $$$VAL"i
$$USE==1>
IFE k$$USE,<$F $%W(A)m >
IFE <$$USE-1>,m@<$R $%W(A)>
IFEm` <$$USE-2>,<PRINTnX OPD-OPR NESTINGn  ERROR>
$$USE==2	j682G	j688u4[R U1<
	IFE <%OUQP%-2>,<$$E(<ILL SUpWITCH NAME>)>
	IVFN <%OP%-2>,<
	 V0IFE <%OP%-3>,<%OPVP3 777777>
	 IFE W<%OP%-4>,<%OP3>
W 	 IFL <%OP%-2>,<%W@OP4 7(A)>
			%OP%==2>AuLmu56 X!V
$%W==24
IFNB <B>,<$%W==X`24+<B>>
IFE <$$YUSE-3>,<LI $$$VALY 
$$USE==1>
IFE Y@$$USE,<$F $%W(A)Y`>
IFE <$$USE-1>,Z<$L $%W(A)>
IFEZ  <$$USE-2>,<PRINTZ@X OPD-OPR NESTINGZ` ERROR>
$$USE==2uN9R?uN<u5J6 [1o
$%W==24
IFNB <B>,<$%W==[p24+<B>>
IFE <$$\USE-3>,<LI $$$VAL\0
$$USE==1>
IFE \P$$USE,<$F $%W(A)\p>
IFE <$$USE-1>,]<$R $%W(A)>
IFE]0 <$$USE-2>,<PRINT]PX OPD-OPR NESTING]p ERROR>
$$USE==2u

S%u

Uu5Kq aQ!
$%W==25
IFNB <B>,<$%W==b25+<B>>
IFE <$$b0USE-3>,<LI $$$VALbP
$$USE==1>
IFE bp$$USE,<$F $%W(A)c>
IFE <$$USE-1>,c0<$R $%W(A)>
IFEcP <$$USE-2>,<PRINTcpX OPD-OPR NESTINGd ERROR>
$$USE==2	j5<Q	j5<u5[r dA:
IFE <%OPda%-1>,<%OP1 400000e>
IFE %OP%,<%OP1e  377777>
IFE <%Oe@P%-2>,<$$E(<ILL Se`WITCH NAME>)>
IFfGE <%OP%-3>,<IFB f <A>,<%OP1 400000f@>
	IFNB <A>,<%Of`P1 A,400000>>
IgFL<%OP%-2>,<%OP3 g 26(A)>
%OP%==2E OF FIELD>
$$Uu5}: h1V
IFE <%OPh%-1>,<%OP1 200000gq>
IFE %OP%,<%OP1i! 577777>
IFE <%OiP%-2>,<$$E(<ILL S#	WITCH NAME>)>
IFgAGE <%OP%-3>,<IFB i`<A>,<%OP1 200000j>
	IFNB <A>,<%Oj P1 A,200000>>
Ij@FL<%OP%-2>,<%OP3 j`26(A)>
%OP%==2E OF FIELD>
$$Uu6xz ^A
$%W==25
IFNB <B>,<$%W==_25+<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 NESTINGa ERROR>
$$USE==2	j5tZ	j5u|{ uY	
	SETZM	Xu90,YOCSW(XLOW)
	HuRLI	X0,YOCSW(XLOW9)
	HRRI	X0,YOCSWX+1(XLOW)
	BLT	X0x,YOCSW+QSWNO-1(XLOW)
u$I; }i/v$%W==YOCFD~
IFNB <B>,<$%W=~(=YOCFD+<B>
>
I~HFE <$$USE-3>,<LI ~h$$$VAL
$$USE==1>
$F $%W(A)!"u$^ )0
$%W==YOCHFD+2
IFNB <B>,<h$%W==YOCFD+2+<B>>
IFE <$$USE-3>,(<LI $$$VAL
$$USEH==1>
IFE $$USE,<h$F $%W(A)>
IFE <$$USE-1>,<$L $%W((A)>
IFE <$$USEH-2>,<PRINTX OPD-OhPR NESTING ERROR>
$$USE==2u$j6 90$%W==YOCFDX+1
IFNB <B>,<$%xW==YOCFD+1+<B>
>
IFE <$$USE-3>,8<LI $$$VAL
$$USEX==1>
$F $%W(A)suL+[Nu&Z 0z$%W==YOCFD +5
IFNB <B>,<$%@W==YOCFD+5+<B>
`>
IFE <$$USE-3>,<LI $$$VAL
$$USE ==1>
$F $%W(A)C@tk{@ C@uu&

S 
y0k
$%W==YOCFD+4
IFNB <B>,<8$%W==YOCFD+4+<B>X>
IFE <$$USE-3>,x<LI $$$VAL
$$USE

==1>
IFE $$USE,<

8$F $%W(A)>
IFE 

X<$$USE-1>,<$R $%W

x(A)>
IFE><$$USEXEOPD-O
$$USE==2!wu&

U i0R
$%W==YOCFD+4
IFNB <B>,<($%W==YOCFD+4+<B>H>
IFE <$$USE-3>,h<LI $$$VAL
$$USE	==1>
IFE $$USE,<	($F $%W(A)>
IFE 	H<$$USE-1>,<$L $%W	h(A)>
IFE <$$USE
-2>,<PRINTX OPD-O
(PR NESTING ERROR>
$$USE==2`u&
$%W==YOCXFD+3
IFNB <B>,<x$%W==YOCFD+3+<B>>
IFE <$$USE-3>,8<LI $$$VAL
$$USEX==1>
IFE $$USE,<x$F $%W(A)>
IFE <$$USE-1>,<$B [$Z8FDPT B(A)]-$$REXLO($$BAS)>
IFE <x$$USE-2>,<PRINTX INVALID USE OF FIELD>
$$USE==2u&9R q1	$%W==YOCFD+6
IFNB <B>,<$%0W==YOCFD+6+<B>
P>
IFE <$$USE-3>,p<LI $$$VAL
$$USE==1>
$F $%W(A)H;&,H;uL :	_
IFE <%OP9i%-1>,<%OP1 400>
9IIFE %OP%,<%OP1 77:y7377>
IFE <%OP%-:Y2>,<$$E(<ILL SWIT(iCH NAME>)>
IFGE 8y<%OP%-3>,<IFB <A9>,<%OP1 400>
	IF;8NB <A>,<%OP1 A,;X400>>
IFL<%OP%-2;x>,<%OP3 6(A)>
%OP%==2VALID USEuLS 9aV$%W==20
I:FNB <B>,<$%W==20: +<B>
>
IFE <$$:@USE-3>,<LI $$$VAL:`
$$USE==1>
$F $%W(A)j5zuL)Y >Q}$%W==23
I>pFNB <B>,<$%W==23?+<B>
>
IFE <$$?0USE-3>,<LI $$$VAL?P
$$USE==1>
$F $%W(A).>}{wouL+[ e	;
IFE %OP%di-1,<%OP2 40000>
dIIFE %OP%,<%OP2 77f7777737777>
IFE eq<%OP%-2>,<$$E(<IL&	L SWITCH NAME>)>
IFGE <%OP%-3>,<IdFB <A>,<%OP2 400fP00>
	IFNB <A>,<fp%OP2 A,40000>>
gIFL <%OP%-2>,<%OPg03 6(A)>
%OP%==2F FIELD>
$$USEuL-3 kYq
$%W==10
IFNB <B>,<$%W==l10+<B>>
IFE <$$l8USE-3>,<LI $$$VALlX
$$USE==1>
IFE lx$$USE,<$F $%W(A)m>
IFE <$$USE-1>,m8<$R $%W(A)>
IFEmX <$$USE-2>,<PRINTmxX OPD-OPR NESTINGn ERROR>
$$USE==2c	j51QuL: h!X
$%W==10
IFNB <B>,<$%W==iI10+<B>>
IFE <$$i)USE-3>,<LI $$$VAL%i
$$USE==1>
IFE i	$$USE,<$F $%W(A)gP>
IFE <$$USE-1>,j<$B [$ZFICHN B(j(A)]-$$RELO($$BAS)jH>
IFE <$$USE-2>,jh<PRINTX INVALID UkSE OF FIELD>
$$USE==2ukuLD  "Y+
$%W==16
IFNB <B>,<$%W==#16+<B>>
IFE <$$#8USE-3>,<LI $$$VAL#X
$$USE==1>
IFE #x$$USE,<$F $%W(A)$>
IFE <$$USE-1>,$8<$B [$ZFID1 B(A$X)]-$$RELO($$BAS)>$x
IFE <$$USE-2>,<%PRINTX INVALID US%8E OF FIELD>
$$USE==2u0
$%W==17
IFNB <B>,<$%W==0X17+<B>>
IFE <$$0xUSE-3>,<LI $$$VAL1
$$USE==1>
IFE 18$$USE,<$F $%W(A)1X>
IFE <$$USE-1>,1x<$B [$ZFID2 B(A2)]-$$RELO($$BAS)>28
IFE <$$USE-2>,<2XPRINTX INVALID US2xE OF FIELD>
$$USE==2	j6;Q
IFE <%OP6I%-1>,<%OP1 1000>
IFE %OP%,<%OP1 77Y76777>
IFE <%OP%79-2>,<$$E(<ILL SWI)	TCH NAME>)>
IFGE5Y <%OP%-3>,<IFB <5xA>,<%OP1 1000>
	8IFNB <A>,<%OP1 88A,1000>>
IFL<%OP8X%-2>,<%OP3 6(A)>
%OP%==2D USE uLI@ )i]
IFE <%OP)I%-1>,<%OP1 20000>))
IFE %OP%,<%OP1 *Y757777>
IFE <%OP*9%-2>,<$$E(<ILL SW*	ITCH NAME>)>
IFG(YE <%OP%-3>,<IFB <(xA>,<%OP1 20000>
	IFNB <A>,<%OP1+8 A,20000>>
IFL<+X%OP%-2>,<%OP3 6(A)>
%OP%==2SE uLJ7 )3
IFE <%OP	%-1>,<%OP1 2>
IFiE %OP%,<%OP1 7777975>
IFE <%OP%-2>,<$$E(<ILL SWITCHy NAME>)>
IFGE <%OP%-3>,<IFB <A>,8<%OP1 2>
	IFNB <xA>,<%OP1 A,2>>
IFL<%OP%-2>,<%OP83 11(A)>
%OP%==2INTX INVALID UuLK7 
x
$%W==12

H
IFNB <B>,<$%W==

h12+<B>>
IFEE<$$<LI $$$VAL
$$USE==1>
IFEUE,<$F $%W(A)
IFE <$$USE-1>,<$B [$ZFIDMO B((A)]-$$RELO($$BAS)H>
IFE <$$USE-2>,h<PRINTX INVALID USE OF FIELD>
$$USE==2IXtLuPuLKz iM
IFE <%OPI%-1>,<%OP1 1>
IF)E %OP%,<%OP1 7777Y76>
IFE <%OP%-2>9,<$$E(<ILL SWITCH$	 NAME>)>
IFGE <%YOP%-3>,<IFB <A>,x<%OP1 1>
	IFNB <	A>,<%OP1 A,1>>
IFL<%OP%-2>,<%OP	X3 11(A)>
%OP%==2INTX INVALID UuLLu w)K
IFE <%OPw	%-1>,<%OP1 200000vi>
IFE %OP%,<%OP1x 577777>
IFE <%OwyP%-2>,<$$E(<ILL S%)WITCH NAME>)>
IFvGE <%OP%-3>,<IFB v8<A>,<%OP1 200000xX>
	IFNB <A>,<%OxxP1 A,200000>>
IyFL<%OP%-2>,<%OP3 y811(A)>
%OP%==2E OF FIELD>
$$UuLM 	
IFE <%OPi%-1>,<%OP1 100>
IIFE %OP%,<%OP1 77y7677>
IFE <%OP%-Y2>,<$$E(<ILL SWIT$)CH NAME>)>
IFGE y<%OP%-3>,<IFB <A>,<%OP1 100>
	IF8NB <A>,<%OP1 A,X100>>
IFL<%OP%-2x>,<%OP3 11(A)>
%OP%==2NVALID UuLMW !
$%W==13
IFNB <B>,<$%W==13I+<B>
>
IFE <$$)USE-3>,<LI $$$VAL#)
$$USE==1>
$F $%W(A)777777777uLXz @I
IFE <%OP@)%-1>,<%OP1 100>
@	IFE %OP%,<%OP1 77AY7677>
IFE <%OP%-A92>,<$$E(<ILL SWITACH NAME>)>
IFGE ?9<%OP%-3>,<IFB <A?X>,<%OP1 100>
	IFBNB <A>,<%OP1 A,B8100>>
IFL<%OP%-2BX>,<%OP3 6(A)>
%OP%==2VALID USEuL[R =)y
IFE <%OP=	%-1>,<%OP1 200>
<iIFE %OP%,<%OP1 77>7577>
IFE <%OP%-=y2>,<$$E(<ILL SWIT(ICH NAME>)>
IFGE <<%OP%-3>,<IFB <A<8>,<%OP1 200>
	IF>XNB <A>,<%OP1 A,>x200>>
IFL<%OP%-2?>,<%OP3 6(A)>
%OP%==2VALID USEuL^ I
$%W==16
IFNB <B>,<$%W== 16+<B>>
IFE <$$ (USE-3>,<LI $$$VAL H
$$USE==1>
IFE  h$$USE,<$F $%W(A)!>
IFE <$$USE-1>,!(<$L $%W(A)>
IFE!H <$$USE-2>,<PRINT!hX OPD-OPR NESTING" ERROR>
$$USE==2%uN	@WuLj6 yw$%W==15
IFNB <B>,<$%W==158+<B>
>
IFE <$$XUSE-3>,<LI $$$VALx
$$USE==1>
$F $%W(A)LI@quLk i<
$%W==2
IFNB <B>,<$%W==2(+<B>>
IFE <$$USHE-3>,<LI $$$VAL
h$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$HB [$ZFIFLN B(A)h]-$$RELO($$BAS)>
IFE <$$USE-2>,<P(RINTX INVALID USEH OF FIELD>
$$USE==2uLkR Zyh
IFE %OP%ZY-1,<%OP2 400000>
IFE %OP%,<%OP2 7[i77777377777>
IFE[I <%OP%-2>,<$$E(<I&iLL SWITCH NAME>)>Yi
IFGE <%OP%-3>,<ZIFB <A>,<%OP2 40\(0000>
	IFNB <A>\H,<%OP2 A,400000>\h>
IFL <%OP%-2>,<]%OP3 6(A)>
%OP%==2IELD>
$$USEuLk` D	/
IFE <%OPCi%-1>,<%OP1 40>
ICIFE %OP%,<%OP1 777Dy737>
IFE <%OP%-2DY>,<$$E(<ILL SWITC()H NAME>)>
IFGE <By%OP%-3>,<IFB <A>C,<%OP1 40>
	IFNBE8 <A>,<%OP1 A,40EX>>
IFL<%OP%-2>,<Ex%OP3 6(A)>
%OP%==2INVALID USE uLm 9!
$%W==2
XIFNB <B>,<$%W==2x+<B>>
IFE <$$USE-3>,<LI $$$VAL
8$$USE==1>
IFE $$XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$B [$ZFIFTR B(A)8]-$$RELO($$BAS)>
IFE <$$USE-2>,<PxRINTX INVALID USE OF FIELD>
$$USE==2uMT ij
$%W==14
IFNB <B>,<$%W==(14+<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==2@qcV`@uMx i`
$%W==5
IFNB <B>,<$%W==5(+<B>>
IFE <$$USHE-3>,<LI $$$VAL
h$$USE==1>
IFE $$USE,<$F $%W(A)>
IFE <$$USE-1>,<$HR $%W(A)>
IFE <h$$USE-2>,<PRINTX OPD-OPR NESTING ERROR>
$$USE==2uM@  )
IFE <%OP 	%-1>,<%OP1 200000i>
IFE %OP%,<%OP1 y 577777>
IFE <%O+	P%-2>,<$$E(<ILL S*iWITCH NAME>)>
IFGE <%OP%-3>,<IFB 8<A>,<%OP1 200000!8>
	IFNB <A>,<%O!XP1 A,200000>>
I!xFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM3 I$%W==4
IF8NB <B>,<$%W==4+<XB>
>
IFE <$$USxE-3>,<LI $$$VAL
$$USE==1>
$F $%W(A)uM@ -	w
IFE <%OP,i%-1>,<%OP1 10000>,I
IFE %OP%,<%OP1 -y767777>
IFE <%OP-Y%-2>,<$$E(<ILL SW)iITCH NAME>)>
IFG+yE <%OP%-3>,<IFB <,A>,<%OP1 10000>
	IFNB <A>,<%OP1.X A,10000>>
IFL<.x%OP%-2>,<%OP3 6(A)>
%OP%==2SE uM89 ni~$%W==11
IoFNB <B>,<$%W==11o(+<B>
>
IFE <$$oHUSE-3>,<LI $$$VALoh
$$USE==1>
$F $%W(A)j53uMHW W	L
IFE <%OPW)%-1>,<%OP1 1>
IFWHE %OP%,<%OP1 7777Wh76>
IFE <%OP%-2>X,<$$E(<ILL SWITCHX( NAME>)>
IFGE <%XHOP%-3>,<IFB <A>,Xh<%OP1 1>
	IFNB <YA>,<%OP1 A,1>>
IFL<%OP%-2>,<%OPYH3 6(A)>
%OP%==2NTX INVALID USEuM[r )9a
$%W==17
IFNB <B>,<$%W==)x17+<B>>
IFE <$$*USE-3>,<LI $$$VAL*8
$$USE==1>
IFE *X$$USE,<$F $%W(A)*x>
IFE <$$USE-1>,+<$B [$ZFIMOD B(+8A)]-$$RELO($$BAS)+X>
IFE <$$USE-2>,+x<PRINTX INVALID U,SE OF FIELD>
$$USE==2	j5:Q6uM] t	/
IFE <%OPsi%-1>,<%OP1 20>
IsIFE %OP%,<%OP1 777ty757>
IFE <%OP%-2tY>,<$$E(<ILL SWITC%IH NAME>)>
IFGE <ry%OP%-3>,<IFB <A>s,<%OP1 20>
	IFNBu8 <A>,<%OP1 A,20uX>>
IFL<%OP%-2>,<ux%OP3 11(A)>
%OP%==2X INVALID UuMh6 ;1c$%W==21
I;PFNB <B>,<$%W==21;p+<B>
>
IFE <$$<USE-3>,<LI $$$VAL<0
$$USE==1>
$F $%W(A)j69VuMh@ G)G
IFE <%OPG	%-1>,<%OP1 20>
IFiFE %OP%,<%OP1 777Gy757>
IFE <%OP%-2(	>,<$$E(<ILL SWITC'iH NAME>)>
IFGE <F%OP%-3>,<IFB <A>F8,<%OP1 20>
	IFNBH8 <A>,<%OP1 A,20HX>>
IFL<%OP%-2>,<Hx%OP3 6(A)>
%OP%==2INVALID USE uMk aQ
IFE %OP%a1-1,<%OP2 100000>
IFE %OP%,<%OP2 7bY77777677777>
IFEb9 <%OP%-2>,<$$E(<I&)LL SWITCH NAME>)>b
IFGE <%OP%-3>,<``IFB <A>,<%OP2 10c0000>
	IFNB <A>c8,<%OP2 A,100000>cX>
IFL <%OP%-2>,<cx%OP3 6(A)>
%OP%==2IELD>
$$USEuMm6 MI}
IFE <%OPM)%-1>,<%OP1 4>
IFM	E %OP%,<%OP1 7777NY73>
IFE <%OP%-2>N9,<$$E(<ILL SWITCHN NAME>)>
IFGE <%L9OP%-3>,<IFB <A>,LX<%OP1 4>
	IFNB <OA>,<%OP1 A,4>>
IFL<%OP%-2>,<%OPOX3 6(A)>
%OP%==2NTX INVALID USEuMxT 1Q
$%W==14
IFNB <B>,<$%W==14+<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==2@q$@uMy@ #))
IFE <%OP#	%-1>,<%OP1 100000"i>
IFE %OP%,<%OP1$ 677777>
IFE <%O#yP%-2>,<$$E(<ILL S*IWITCH NAME>)>
IF"GE <%OP%-3>,<IFB "8<A>,<%OP1 100000$X>
	IFNB <A>,<%O$xP1 A,100000>>
I%FL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM| 9w
IFE <%OPY%-1>,<%OP1 400000x>
IFE %OP%,<%OP1 377777>
IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
IFxGE <%OP%-3>,<IFB <A>,<%OP1 4000008>
	IFNB <A>,<%OXP1 A,400000>>
IxFL<%OP%-2>,<%OP3 6(A)>
%OP%==2uM}: 0)
IFE <%OP0	%-1>,<%OP1 4000>
IFE %OP%,<%OP1 7173777>
IFE <%OP%0y-2>,<$$E(<ILL SWI)ITCH NAME>)>
IFGE/ <%OP%-3>,<IFB </8A>,<%OP1 4000>
	1XIFNB <A>,<%OP1 1xA,4000>>
IFL<%OP2%-2>,<%OP3 6(A)>
%OP%==2ID USEuN	@ &IC
IFE <%OP&)%-1>,<%OP1 40000>&	
IFE %OP%,<%OP1 '9737777>
IFE <%OP'%-2>,<$$E(<ILL SW*)ITCH NAME>)>
IFG%9E <%OP%-3>,<IFB <%XA>,<%OP1 40000>
	IFNB <A>,<%OP1( A,40000>>
IFL<(8%OP%-2>,<%OP3 6(A)>
%OP%==2SE uN	z ^
IFE %OP%]y-1,<%OP2 200000>
IFE %OP%,<%OP2 7_!77777577777>
IFE_ <%OP%-2>,<$$E(<I&ILL SWITCH NAME>)>^a
IFGE <%OP%-3>,<](IFB <A>,<%OP2 20_`0000>
	IFNB <A>`,<%OP2 A,200000>` >
IFL <%OP%-2>,<`@%OP3 6(A)>
%OP%==2IELD>
$$USEuN

 =p$%W==22
I= FNB <B>,<$%W==22=@+<B>
>
IFE <$$=`USE-3>,<LI $$$VAL>
$$USE==1>
$F $%W(A)j6<zuN

S 6YI
$%W==20
IFNB <B>,<$%W==720+<B>>
IFE <$$78USE-3>,<LI $$$VAL7X
$$USE==1>
IFE 7x$$USE,<$F $%W(A)8>
IFE <$$USE-1>,88<$R $%W(A)>
IFE8X <$$USE-2>,<PRINT8xX OPD-OPR NESTING9 ERROR>
$$USE==2Pj5PuN

U 3I0
$%W==20
IFNB <B>,<$%W==420+<B>>
IFE <$$4(USE-3>,<LI $$$VAL4H
$$USE==1>
IFE 4h$$USE,<$F $%W(A)5>
IFE <$$USE-1>,5(<$L $%W(A)>
IFE5H <$$USE-2>,<PRINT5hX OPD-OPR NESTING6 ERROR>
$$USE==2Qk	j6=rjuN
$%W==17
IFNB <B>,<$%W==&H17+<B>>
IFE <$$&hUSE-3>,<LI $$$VAL'
$$USE==1>
IFE '($$USE,<$F $%W(A)'H>
IFE <$$USE-1>,'h<$B [$ZFIPT B(A()]-$$RELO($$BAS)>((
IFE <$$USE-2>,<(HPRINTX INVALID US(hE OF FIELD>
$$USE==2P	j5OuN+w Q	
IFE <%OPPi%-1>,<%OP1 2>
IFPIE %OP%,<%OP1 7777Qy75>
IFE <%OP%-2>QY,<$$E(<ILL SWITCH') NAME>)>
IFGE <%OyOP%-3>,<IFB <A>,P<%OP1 2>
	IFNB <R8A>,<%OP1 A,2>>
IFL<%OP%-2>,<%OPRx3 6(A)>
%OP%==2NTX INVALID USEuN9R 3I+
IFE <%OP3)%-1>,<%OP1 2000>
IFE %OP%,<%OP1 74975777>
IFE <%OP%4-2>,<$$E(<ILL SWI))TCH NAME>)>
IFGE29 <%OP%-3>,<IFB <2XA>,<%OP1 2000>
	4xIFNB <A>,<%OP1 5A,2000>>
IFL<%OP58%-2>,<%OP3 6(A)>
%OP%==2ID USEuN< i$%W==2
IFNB <B>,<$%W==2+<(B>
>
IFE <$$USHE-3>,<LI $$$VAL
h$$USE==1>
$F $%W(A)uN= 
i
$%W==12
I
IFNB <B>,<$%W==12y+<B>
>
IFE <$$YUSE-3>,<LI $$$VAL#i
$$USE==1>
$FN$%W(A)77776>
IFE %OP%	-1,<%OP2 40>
IFEi %OP%,<%OP2 7777717777737>
IFE <%OP%-2>,<$$E(<ILL S#IWITCH NAME>)>
IFqGE <%OP%-3>,<IFB <A>,<%OP2 40>
	8IFNB <A>,<%OP2 pA,40>>
IFL <%OP%-2>,<%OP3 12(A)>
%OP%==2ALID UuNH  zIe
IFE <%OPz)%-1>,<%OP1 20000>z	
IFE %OP%,<%OP1 {9757777>
IFE <%OP{%-2>,<$$E(<ILL SW%	ITCH NAME>)>
IFGyYE <%OP%-3>,<IFB <{xA>,<%OP1 20000>
	IFNB <A>,<%OP1|8 A,20000>>
IFL<|X%OP%-2>,<%OP3 11(A)>
%OP%==2USuNJ6 ,i|
$%W==17
IFNB <B>,<$%W==-(17+<B>>
IFE <$$-HUSE-3>,<LI $$$VAL-h
$$USE==1>
IFE .$$USE,<$F $%W(A).(>
IFE <$$USE-1>,.H<$B [$ZFITIM B(.hA)]-$$RELO($$BAS)/>
IFE <$$USE-2>,/(<PRINTX INVALID U/HSE OF FIELD>
$$USE==2	j5kuNM p
IFE <%OPp9%-1>,<%OP1 10>
IpXFE %OP%,<%OP1 777px767>
IFE <%OP%-2q>,<$$E(<ILL SWITCq8H NAME>)>
IFGE <qX%OP%-3>,<IFB <A>qx,<%OP1 10>
	IFNBr <A>,<%OP1 A,10r8>>
IFL<%OP%-2>,<rX%OP3 11(A)>
%OP%==2X INVALID UuNM  ~	}
IFE <%OP}i%-1>,<%OP1 10000>}I
IFE %OP%,<%OP1 ~Y767777>
IFE <%OP$i%-2>,<$$E(<ILL SW$IITCH NAME>)>
IFG|yE <%OP%-3>,<IFB <}A>,<%OP1 10000>
	IFNB <A>,<%OP18 A,10000>>
IFL<X%OP%-2>,<%OP3 11(A)>
%OP%==2USuN]q 9
IFE %OP%Y-1,<%OP2 20>
IFEx %OP%,<%OP2 777777777757>
IFE <%O8P%-2>,<$$E(<ILL SXWITCH NAME>)>
IFxGE <%OP%-3>,<IFB <A>,<%OP2 20>
	8IFNB <A>,<%OP2 XA,20>>
IFL <%OP%x-2>,<%OP3 12(A)>
%OP%==2ALID UuNy J)a
IFE <%OPJ	%-1>,<%OP1 10>
IIiFE %OP%,<%OP1 777K767>
IFE <%OP%-2Jy>,<$$E(<ILL SWITC'IH NAME>)>
IFGE <I%OP%-3>,<IFB <A>I8,<%OP1 10>
	IFNBKX <A>,<%OP1 A,10Kx>>
IFL<%OP%-2>,<L%OP3 6(A)>
%OP%==2 INVALID USEuN{ T	5
$%W==6
SiIFNB <B>,<$%W==6U+<B>>
IFE <$$USTyE-3>,<LI $$$VAL
'	$$USE==1>
IFE $$SUSE,<$F $%W(A)>
IFE <$$USE-1>,<$UXB [$ZFIWLR B(A)Ux]-$$RELO($$BAS)>
IFE <$$USE-2>,<PV8RINTX INVALID USEVX OF FIELD>
$$USE==2C@tk{@ u YE$%W==7
IFxNB <B>,<$%W==7+<B>
>
IFE <$$US8E-3>,<LI $$$VAL
X$$USE==1>
$F $%W(A)u cY1
IFE %OP%cy-1,<%OP2 1>
IFE d%OP%,<%OP2 777777d8777776>
IFE <%OPdX%-2>,<$$E(<ILL SWdxITCH NAME>)>
IFGeE <%OP%-3>,<IFB <e8A>,<%OP2 1>
	IFeXNB <A>,<%OP2 A,ex1>>
IFL <%OP%-2>f,<%OP3 3(A)>
%OP%==2NVALID USEuS 	)R$%W==10
I	HFNB <B>,<$%W==10	h+<B>
>
IFE <$$
USE-3>,<LI $$$VAL
(
$$USE==1>
$F $%W(A)u-3 {ap
$%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==2uI; Vi
IFWNB <B>,<$%W==1+<W(B>
>
IFE <$$USWHE-3>,<LI $$$VAL
Wh$$USE==1>
$F $%W(A)u^ xqY
$%W==5
yIFNB <B>,<$%W==5y0+<B>>
IFE <$$USyPE-3>,<LI $$$VAL
yp$$USE==1>
IFE $$zUSE,<$F $%W(A)>
IFE <$$USE-1>,<$zPL $%W(A)>
IFE <zp$$USE-2>,<PRINTX {OPD-OPR NESTING ERROR>
$$USE==2uj6 w!B$%W==4
IFw@NB <B>,<$%W==4+<w`B>
>
IFE <$$USxE-3>,<LI $$$VAL
x $$USE==1>
$F $%W(A)Pq^

5 uk a	
$%W==3
a(IFNB <B>,<$%W==3aH+<B>>
IFE <$$USahE-3>,<LI $$$VAL
b$$USE==1>
IFE $$b(USE,<$F $%W(A)>
IFE <$$USE-1>,<$bhR $%W(A)>
IFE <c$$USE-2>,<PRINTX c(OPD-OPR NESTING ERROR>
$$USE==2u6 ^
$%W==3
^8IFNB <B>,<$%W==3^X+<B>>
IFE <$$US^xE-3>,<LI $$$VAL
_$$USE==1>
IFE $$8USE,<$F $%W(A)>
IFE <$$USE-1>,<$_xL $%W(A)>
IFE <`$$USE-2>,<PRINTX `8OPD-OPR NESTING ERROR>
$$USE==2uJ6 [)
$%W==2
[HIFNB <B>,<$%W==2[h+<B>>
IFE <$$US\E-3>,<LI $$$VAL
\($$USE==1>
IFE $$\HUSE,<$F $%W(A)>
IFE <$$USE-1>,<$]R $%W(A)>
IFE <]($$USE-2>,<PRINTX ]HOPD-OPR NESTING ERROR>
$$USE==2uKU R	
$%W==-1
IFNB <B>,<$%W==RH-1+<B>>
IFE <$$RhUSE-3>,<LI $$$VALS
$$USE==1>
IFE S($$USE,<$F $%W(A)SH>
IFE <$$USE-1>,Sh<$L $%W(A)>
IFET <$$USE-2>,<PRINTT(X OPD-OPR NESTINGTH ERROR>
$$USE==2uh6 U
IFU8NB <B>,<$%W==0+<UXB>
>
IFE <$$USUxE-3>,<LI $$$VAL
V$$USE==1>
$F $%W(A)um6 my~
IFE %OP%mY-1,<%OP2 10>
IFEm9 %OP%,<%OP2 77777o7777767>
IFE <%OnaP%-2>,<$$E(<ILL S+iWITCH NAME>)>
IFnAGE <%OP%-3>,<IFB lh<A>,<%OP2 10>
	mIFNB <A>,<%OP2 o@A,10>>
IFL <%OP%o`-2>,<%OP3 3(A)>
%OP%==2LID USEu

 

Il$%W==12
I

hFNBB<B>,<$%W==12
>
IFEE<$$<LI $$$VAL
$$USE==1>
$F $%W(A)u

S q9
$%W==7
IFNB <B>,<$%W==70+<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==2u

U "
$%W==7
 IFNB <B>,<$%W==7@+<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
$%W==6
~pIFNB <B>,<$%W==6+<B>>
IFE <$$US0E-3>,<LI $$$VAL
P$$USE==1>
IFE $$pUSE,<$F $%W(A)>
IFE <$$USE-1>,<$0B [$ZFSPT B(A)]P-$$RELO($$BAS)>
pIFE <$$USE-2>,<PRINTX INVALID USE 0OF FIELD>
$$USE==2u+w q
IFE %OP%pq-1,<%OP2 4>
IFE pQ%OP%,<%OP2 777777r777773>
IFE <%OPqy%-2>,<$$E(<ILL SW+IITCH NAME>)>
IFGqYE <%OP%-3>,<IFB <pA>,<%OP2 4>
	IFp NB <A>,<%OP2 A,rX4>>
IFL <%OP%-2>rx,<%OP3 3(A)>
%OP%==2NVALID USEu8w 
y_$%W==11
IFNB <B>,<$%W==118+<B>
>
IFE <$$XUSE-3>,<LI $$$VALx
$$USE==1>
$F $%W(A)u9R y$%W==13
I8FNB <B>,<$%W==13X+<B>
>
IFE <$$xUSE-3>,<LI $$$VAL
$$USE==1>
$F$%W(A)u:= X9
$%W==2
XXIFNB <B>,<$%W==2Xx+<B>>
IFE <$$USYE-3>,<LI $$$VAL
Y8$$USE==1>
IFE $$YXUSE,<$F $%W(A)>
IFE <$$USE-1>,<$ZL $%W(A)>
IFE <Z8$$USE-2>,<PRINTX ZXOPD-OPR NESTING ERROR>
$$USE==2u=1 gIK
IFE %OP%g)-1,<%OP2 2>
IFE g	%OP%,<%OP2 777777hQ777775>
IFE <%OPh1%-2>,<$$E(<ILL SW,)ITCH NAME>)>
IFGhE <%OP%-3>,<IFB <f8A>,<%OP2 2>
	IFfXNB <A>,<%OP2 A,i2>>
IFL <%OP%-2>i0,<%OP3 3(A)>
%OP%==2NVALID USEuy jad
IFE %OP%jA-1,<%OP2 20>
IFEj! %OP%,<%OP2 77777ki7777757>
IFE <%OkIP%-2>,<$$E(<ILL S,	WITCH NAME>)>
IFk)GE <%OP%-3>,<IFB iP<A>,<%OP2 20>
	ipIFNB <A>,<%OP2 l(A,20>>
IFL <%OP%lH-2>,<%OP3 3(A)>
%OP%==2LID USEu{ t	5
$%W==3
siIFNB <B>,<$%W==3u1+<B>>
IFE <$$USuE-3>,<LI $$$VAL
+)$$USE==1>
IFE $$tqUSE,<$F $%W(A)>
IFE <$$USE-1>,<$s8B [$ZFSWLR B(A)up]-$$RELO($$BAS)>
IFE <$$USE-2>,<Pv0RINTX INVALID USEvP OF FIELD>
$$USE==2@q2~pu&4[R @
	IFE <%O@!P%-2>,<$$E(<ILL S@@WITCH NAME>)>
	I@`FN <%OP%-2>,<
	 AIFE <%OP%-3>,<%OPA 3 777777>
	 IFE AP<%OP%-4>,<%OP3>
Ap	 IFL <%OP%-2>,<%BOP4 7(A)>
			%OP%==2>u>4+ Bq+
$%W==24
IFNB <B>,<$%W==C024+<B>>
IFE <$$CPUSE-3>,<LI $$$VALCp
$$USE==1>
IFE D$$USE,<$F $%W(A)D0>
IFE <$$USE-1>,DP<$L $%W(A)>
IFEDp <$$USE-2>,<PRINTEX OPD-OPR NESTINGE0 ERROR>
$$USE==2IXtMP IXu]u>5J6 FD
$%W==24
IFNB <B>,<$%W==F@24+<B>>
IFE <$$F`USE-3>,<LI $$$VALG
$$USE==1>
IFE G $$USE,<$F $%W(A)G@>
IFE <$$USE-1>,G`<$R $%W(A)>
IFEH <$$USE-2>,<PRINTH X OPD-OPR NESTINGH@ ERROR>
$$USE==2cMKS@
c~)9uB5J7 RA(
$%W==26
IFNB <B>,<$%W==S26+<B>>
IFE <$$S USE-3>,<LI $$$VALS@
$$USE==1>
IFE S`$$USE,<$F $%W(A)T>
IFE <$$USE-1>,T <$R $%W(A)>
IFET@ <$$USE-2>,<PRINTT`X OPD-OPR NESTINGU ERROR>
$$USE==2uL)YsuL+[uB5K O1
$%W==26
IFNB <B>,<$%W==Op26+<B>>
IFE <$$PUSE-3>,<LI $$$VALP0
$$USE==1>
IFE PP$$USE,<$F $%W(A)Pp>
IFE <$$USE-1>,Q<$L $%W(A)>
IFEQ0 <$$USE-2>,<PRINTQPX OPD-OPR NESTINGQp ERROR>
$$USE==2q?.@@qJ

0uB5L L!v
$%W==25
IFNB <B>,<$%W==L`25+<B>>
IFE <$$MUSE-3>,<LI $$$VALM 
$$USE==1>
IFE M@$$USE,<$F $%W(A)M`>
IFE <$$USE-1>,N<$R $%W(A)>
IFEN  <$$USE-2>,<PRINTN@X OPD-OPR NESTINGN` ERROR>
$$USE==2g_&N GiF@uB6< I]
$%W==25
IFNB <B>,<$%W==IP25+<B>>
IFE <$$IpUSE-3>,<LI $$$VALJ
$$USE==1>
IFE J0$$USE,<$F $%W(A)JP>
IFE <$$USE-1>,Jp<$L $%W(A)>
IFEK <$$USE-2>,<PRINTK0X OPD-OPR NESTINGKP ERROR>
$$USE==2e&= y /$%W==0
IFNB <B>,<$%W==0+<8B>
>
IFE <$$USXE-3>,<LI $$$VAL
x$$USE==1>
$F $%W(A)]g_z	uO<^  S
$%W==2
8IFNB <B>,<$%W==2X+<B>>
IFE <$$USxE-3>,<LI $$$VAL
	$$USE==1>
IFE $$	8USE,<$F $%W(A)>
IFE <$$USE-1>,<$	xL $%W(A)>
IFE <
$$USE-2>,<PRINTX 
8OPD-OPR NESTING ERROR>
$$USE==2uO<j6 I <$%W==1
IFhNB <B>,<$%W==1+<B>
>
IFE <$$US(E-3>,<LI $$$VAL
H$$USE==1>
$F $%W(A)q,`@uO>

 	 `$%W==4
IF(NB <B>,<$%W==4+<HB>
>
IFE <$$UShE-3>,<LI $$$VAL


$$USE==1>
$F $%W(A)u
D;w?ub 5)#2$%W==13
I5HFNB <B>,<$%W==135h+<B>
>
IFE <$$6USE-3>,<LI $$$VAL6(
$$USE==1>
$F $%W(A)O=k`@ubS %)"2$%W==2
IF%HNB <B>,<$%W==2+<%hB>
>
IFE <$$US&E-3>,<LI $$$VAL
&($$USE==1>
$F $%W(A)J	j5Iub^ *"c
$%W==5
*8IFNB <B>,<$%W==5*X+<B>>
IFE <$$US*xE-3>,<LI $$$VAL
+$$USE==1>
IFE $$+8USE,<$F $%W(A)>
IFE <$$USE-1>,<$+xL $%W(A)>
IFE <,$$USE-2>,<PRINTX ,8OPD-OPR NESTING ERROR>
$$USE==2ubj6 (I"L$%W==4
IF(hNB <B>,<$%W==4+<)B>
>
IFE <$$US)(E-3>,<LI $$$VAL
)H$$USE==1>
$F $%W(A)	j5ubI7 3Y#%$%W==12
I3xFNB <B>,<$%W==124+<B>
>
IFE <$$48USE-3>,<LI $$$VAL4X
$$USE==1>
$F $%W(A)>[W@ubI` "9"%
$%W==1
"XIFNB <B>,<$%W==1"x+<B>>
IFE <$$US#E-3>,<LI $$$VAL
#8$$USE==1>
IFE $$#XUSE,<$F $%W(A)>
IFE <$$USE-1>,<$$R $%W(A)>
IFE <$8$$USE-2>,<PRINTX $XOPD-OPR NESTING ERROR>
$$USE==2ubKS 2	#$%W==7
IF2(NB <B>,<$%W==7+<2HB>
>
IFE <$$US2hE-3>,<LI $$$VAL
3$$USE==1>
$F $%W(A)cY@ub@ &y"?$%W==3
IF'NB <B>,<$%W==3+<'8B>
>
IFE <$$US'XE-3>,<LI $$$VAL
'x$$USE==1>
$F $%W(A)1	j5xQ	ub

Z -	"p$%W==6
IF-(NB <B>,<$%W==6+<-HB>
>
IFE <$$US-hE-3>,<LI $$$VAL
.$$USE==1>
$F$%W(A);	j6<$ub
$%W==6
.xIFNB <B>,<$%W==6/+<B>>
IFE <$$US/8E-3>,<LI $$$VAL
/X$$USE==1>
IFE $$/xUSE,<$F $%W(A)>
IFE <$$USE-1>,<$08B [$ZXBPT B(A)]0X-$$RELO($$BAS)>
0xIFE <$$USE-2>,<PR1INTX INVALID USE 18OF FIELD>
$$USE==2

|KKX1UugS I!t$%W==2
IFhNB <B>,<$%W==2+<B>
>
IFE <$$US(E-3>,<LI $$$VAL
H$$USE==1>
$F $%W(A):	j59ug  "$%W==4
IF8NB <B>,<$%W==4+<XB>
>
IFE <$$USxE-3>,<LI $$$VAL
 $$USE==1>
$F $%W(A)	j57Qug9R  i"$%W==5
IF!NB <B>,<$%W==5+<!(B>
>
IFE <$$US!HE-3>,<LI $$$VAL
!h$$USE==1>
$F $%W(A)$	j5Z#$Y@P $\h I.~

IFGE	^iD17-^D0,<
IFB <|	C>,<DEFINE YDSACTua(ACC)<
IFE <%OP%l!-1>,<%OP1 B>
IFhaE %OP%,<%OP1 A>
IFE <%OP%-2>,<$$QE(<ILL SWITCH NAM9E>)>
IFGE <%OP%-3>,<IFB <ACC>,<%OYP1 B>
	IFNB <AC9C>,<%OP1 ACC,B>>~9
IFL<%OP%-2>,<%OzyP3 YDSWIT(ACC)>
wY%OP%==2>>
IFNB <t9C>,<DEFINE YDSAChiT=<
IFE <%OP%-1>e1,<%OP1 B>
IFE %ayOP%,<%OP1 A>
IF^AE <%OP%-2>,<$$E(<[)ILL SWITCH NAME>)TY>
IFGE <%OP%-3>,Q9<%OP1 C,B>
IFLMy <%OP%-2>,<%OP3 YJYDSWIT(C)>
%OP%=GY=2>>>

IFL ^D17D9-^D0,<
IFB <>,<D@yEFINE YDSACT(ACC)=Y<
IFE %OP%-1,<%O:9P2 B>
IFE %OP%,7<%OP2 A>
IFE <%3yOP%-2>,<$$E(<ILL 0YSWITCH NAME>)>
I-9FGE <%OP%-3>,<IFB* <ACC>,<%OP2 B>
	IFNB <ACC>,<%OP#Y2 ACC,B>>
IFL < Y%OP%-2>,<%OP3 YDStQWIT(ACC)>
%OP%==q92>>
IFNB <>,<DEFn!INE YDSACT=<
IFEk	 <%OP%-1>,<%OP2 gqB>
IFE %OP%,<%OP-	2 A>
IFE <%OP%--)2>,<$$E(<ILL SWIT-ICH NAME>)>
IFGE .	<%OP%-3>,<%OP2 C!	,B>
IFL <%OP%-2!)>,<%OP3 YDSWIT(Coh)>
%OP%==2>>
>
c&}L@	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