Google
 

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/dbmall/fmlany.rel
There are 7 other files named fmlany.rel in the archive. Click here to see a list.
 0d6:H @u\
COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION
/<	 (EPROCESSING EXPECTING HDEA N	(D"HIHIHJHKHKHLHMHMHN	"D"HNHOHPHPHQHQHRHR	(D"HOHSHTHUHVHWHXHYHY	"D"HZHYHWHZH[H[H\H\	(D"H]H]H^ -10  -11  -12  -13  -14  -15  -16  -17  -18  -19  -20 	  * -21  -22  -23  -24  -25  -28 H0-a&PH0/a8H00T H02	 A3TH03VH05T0H06TH08bH09a0	( A;H0;`,H0<`H0>aDH0?`$H0A ^,O@	 " DO@O@, @C <_,+O,4@C  @ <a,4@C  @ <c	*Q
TL,F+O,G4@d  @I,  @@  @@@@C@@@@ <f,,	 "TU,R`R`@@@@O@D+[,6 D+[@@D+h@@6@+=,[	 EQ]6B0@
+k6@+[ ]0@+oR`6@[+q, `0b<+[ , <s	"E f, <u,f6@+y[]F"
@0b+} , /"(B  

 @ 0`	**U*n+ <,+Dp~@FFOaW	*T E"wir7 "G LD   @m  8 @ <,6 C+[@`C,~O@W+a	 U*Q*[0 "2@
=b+
+
., <
T"., <,2L++X., <,	2L	++X.,[40@
@+.,	*T"E* <,
 <,+X.,[4 "2@
=b.,+
+ < ,	*U"U*2L
++X <!,+X[4 "2@
"=b+
! 8 <$,9
"	*E(U! <%, [4 "2@
&=b#4B)[4"F"
 
$ @B <+,".,[4% "0@
	"D(* "4B7.,[4( "0@
 "4B6.,[4+0@
@+.,=
3[4. "0@
@	"*T"2 "4B7 0 @B <-,'9
1 <(,52L++X.,[41 "2@
=b:	"U*U;.,+
<+=? <.,6+7 <0,>+X <1,gR`[49 "2@
2	*U"E*C=bC4B4+62L7++=[4B "2@
9=bG.,+
I+AQeY~	*U*P
L[#[4F "0@
 "5B_[4Q "	 Q"Q"T0@
! "5B-[4S "2@
B=bW7@+E+( <G,4@+j [4V "	 D A*]0@
 "5B# +.,[4\F  `@ +J.,Z @z <K,?+A[4`	 A*AeF  `@ +J.,Z @c <N,d+A[4e1@
$.,[4j0@
@+., 0	*P"*n @B <P,i[4k1@
#.,[4o0@
+R.,[4q1@
#., LD LE:E <T	(E
U
v,Z7@+Z1B+^[4hF"
 
$ @B 43 @B <`,o.,+A <b,|	(U
Q*+sZ @h <d,~9

Z @ <f,9

Z @ <f,+
[0	"UT"F"
 
$ @B <h,[4s "0@
@ "5Bi+k[4
0@
+n.,[4
#	"
*.,[40@
@+.,[4 "2@
n=b7@+r[4F"
 
$ @B 4m @B	*P D* <`,	9
A[41@
.,[41@
#.,[40@
@+., 4 @B <s,	(Q
![41@
.,+A.,[4!1@
!., <u, [4#0@
@+.,+) <v,%	*T
T") 4 @B <-,)[4&1@
.,+A 4) @B <x,+.,[4+0@
+R.,	(
T"2[401@
#.,[420@
@+., 4- @B <-,/[430@
+z.,[470@
`	(U (:+|., 45 @B <-,7[49 "0@
` "4BA <},+A[4= "0@
	"(U*C "4BE.,,2LE++X[4A "2@
=bG+
I+JM <,=	"U((K., <,+X <,K+X[4F "0@
@ "5B <,N[4O0@
+
	"*QT.,[4R "2@
=bU+
W+X] <,R.,[4T1@
.,2LE+	*T*D\+X 4{ @B <-,Y., <,+XO@VR`[4Z1@
.,Z4b  @	 D Ae  @[4c0@
 +.,[4f1@
#.,[4h1@
.,Z4i  @  @	(A
Um[4k0@
 +.,@@[4m "2@
=bq+
r+t.,[4p0@
+	""v.,[4t1@
".,[4v0@
+.,[4x1@
".,Z4z  @Z @[4{	 E(E ~F `@+.,2L[+6`D+   @D,+[+F[4~1@
#.,[4	""U"0@
 +!.,[41@
".,[4 "2@
"=b+

+&.,[4
 "	*Q*T*2@
&=b4B
[4F"
 
$ @B 4; @B <),^9
., <+,[40@
	(A
U(+-.,[4F  `@ +J.,Z4 @ <.,2L++X[4 "2@
/	*U" =b +
!+4$,;R.,[40@
+6.,[4$ "0@
 "4B<	*U(P)9
B <F,2L++X <H,*.,,#[4& "0@
 "4BI.,[4.	" E*10@
+.,[411@
".,[43F `@+.,Z4 @ <K,, <,8	*T*:2L*++X <H,9., <N,v4@T,> @,#[44 "0@
 "4BU	"*B.,[4@0@
+.,[4C1@
".,[4EF `@+.,Z47 @7 <K,<	*
U"K2L:+,^[4F0@
@+., 4 @B <-,J <W,+X.,[4L0@
@	(U((S+., <Z,P2LK++X[4R "0@
@ "5B[ <,U[4W0@
+^	"*Q\.,[4Z "2@
=b]+
_+`e <,Z.,[4\1@
.,2LU+	*T*D*d+X 4] @B <-,a., <,+X[4b0@
@+., 4N @B <,f	(*P"m[4i "0@
 "4Bp.,,2Lc++X[4mF `@+.,[4r1@
	"Pu.,[4t0@
+`.,[4v1@
"., <,l[4x "0@ "6@+a2Lp	*"*~+,XZ @I <d,+Y@@[4z "2@
e=b+
	**E
l`R+k 4e @B <-,z9
lR+k+lR+k+lR	**T+k+lR+k[4F"
 
$ @B <+,
9
[41@
#.,[41@
.,	"U*Q,~ "M@@A,: LD LE:E A @A <J,=7@+n0B,~ 4	 @B	*   <-, ,.LE.lD+[4 "0@
 "4Br.,[4#1@
".,[4& "	*U*U((2@
s=b(9
*+w,.00 <y, +/ <z,- <(,.,~[4'	"T*Q*1 "2@
s=b14B*[40F"
 
$ @B <{,/[4IF"
 
$ @B <+,5.,	 U*9,~Q_w#`.\A.<*"w,~ <|,L7@R6@S+ <,|6 b+P	*U B C+
CEFH"$+C"$+G"+M,0NONAM	 JEERCNT*	CALL (
'	END
NULLCLODELENDFINGETS(INSRT	 S(MODIF(MOVEC(OPENREMOV(STORED(SETUSE(SED(TR(ETR(T(D1(	  ([D2(DO(D3(D4(D5(D6(xxh``x	" Td$+CheeIx <h,@+[p6`C5Bc	*A(l <j,A+[x <n,i+ax <q,o+=pp	 Uupp <v,m <x,y+hA COMMAND NAME .{	(( }+xx   @ <~,r+oh+E`D	*"{




AN AREA SPECIFICATION .	+xp-	 Q"A""EOS" .+xp+p("DBNAME" .+x`)	(p4.
@a Transaction Name or End Of Statement .+x	"A pp
@
pp


	"U
 (p <(,8+(pBpBpp	(
U0p	
 
`
@  @@  @@+E 43  @@  @@	(99
E
@



 
`




x	*@P(A <A,+[

x <E,B+[he@"USERID"	*"T(J .I+x``MpB"CURRENT"	**UR .Q+x8IDES2781AN "RSE 2" .Y	(U*"[+x`+ <\,*9
A`BBp	 T(U*c-h cOp ep!B 4 @B <-,^9
(	*"l,j+

"AREA" OR "SET" .p+xp"B	"E
tp#(p#p$B"USING" .y+x"DBID" .{+x	"PP
}h5.AA RECORD SPECIFICATION .+xxp5.x	(U(xB 4i @B <,l9
R"INTO" .	+x

@"ALL" OR A SET 	"E@LIST .
+xp("IDENT" .+x
A PRIVACY CLAUSE OR "EOS"	"A P( .+x"KEY" .+x"COMPILE" .+x"ALNUM" .+xx	*A 
 <,F+"STATUS" . +x
@
A CURRENCY INDICATOR .#+x
	 
E
'

hBBh+"TO" .,+xpg
	 P(0


"AREA" OR "ALL" OR "JOURNAL" .1+x"USAGE" .5+x"UPDATE"	*(E"8 .7+x`*[460@
+8., <:,+)`*	*D*"A,[4<0@
+8., <@,>+)`-x <(	* (I,D+9`/XMM=>X+	*U*E(R <Q,I+L <(,T+K`4.>=p	"UA*Z 4 @B <,V9
Z"FROM" .]+x"ERSTAT" ._+xZ4B @L <.	*c,\9
zhb




@A SUPPRESSION CLAUSE .h	**(kO@C+xAN IDENTIFIER LIST .lO@C+xh+ <p,c,~
	 
D"t


A USAGE-MODE CLAUSE .uO@C+xx+x*xBx *|`@ <},+Ap@	D`$ye`$ybY9S~H	
H

@H#(FwR4&BP/o1)t/!:tSJvv":b2O-Jb8
I>	D"F~<HEbHf_@DK3K3
#nK5\K5yK5yK6	DK#=K2Lm[CMMMg
d@P$'V@P^`:	D"bQzc?z4xj8z5{62{S7_&U% _&U%!_&Vs(	D"_&Wd6_&We3_&Wp1_&Wy=_&Wy?_&X8_&62bd?gbdM(	bdN1bdTSbdzbdgbd
bd!bd
4Ebd+d%}D	D"bd&bd7~eE
e}	a\A}]
E}]H	D"}]DFb}[~A}\z2Cab.	Kb]m>|O,is	7
	D"
S?)HqIO
AS&[SQ#
2I@M@Ne@aj@b~	D"@u@v@	@#@#@(@1-@#Q@[	D"@$Y>Fg>Fi?
q"yDI	D"S'a[.(U%%J(U%%Mc(T6IOc(THH\c(Tu}c(U2IP$]gBcXx^2	"c^\$(P{t`|fOc^h T^|;%X^|;%]^{fR^|2W!G	D"fytcwSa
2rxe-d
3	7|
2ggB
2h2%+Bb+E3&	@P+]Rd"eICT#uHFd%	.=d%
7}gT'J(FWAAPFA$9%	DA$9%A#dA$2
P<(FTDe*I/S'lAYHH2dSM	@"di~/G~di~irdi~o&j)%G9j+GKj+RLPAVPcJPcK	D"PcPPcQ2I%rLy%,rLy%;Un$rL|RU>2!dvvc?	D
IP	D &rb'
@4,14zBW)e5:B	"e5@s+UKsnJUKt2UKt[eLO7lM@Ks%7Y	D"7[*81$QA`
CW+>eW*#W*W*M@	@"W*Y]W*`JW*eJW+2ael\2yPFi<
i<i<i<	Drvxrv!xer5er^2Eo;v?*z>c_]0c`ez	D ca60/%R,/%S.cb/c( c@2*$jH[$y
[$^kY	D"$x/X$(.Kc5Z~Clk`?,[FWZOk~aV4Dr'fk
IUk&afk9&	D"vxIydW5<Wif _
FD@+rf,h?P6mcsGPcD#w	W77(cI{W7*vy	W7*wtW7.pvW7.FuW7.}OtW70zPd3[vW74J]uJd#
/O1
	(Mq
(Hf
#(I7
H4Z
`4ZZ
O(</g
@(aL
J}b)*}
	)4xg
)fAS
K
"92
O+F=O
 pD
pH
$?d
pJ
"	,*p
K!]
D%3
.'^
.	zH3
.nXq<
#JcI
	/@b:
LR:0rb
0se
Lw
1;"
1%y
1' x
1Qtw
	1Vr
KS[
1reG
 1teJ
1u<V
r$
2=N
3-+
3
	3
Kg
!4\1
!W@pnW@px<W@q)LW@q*lPkI|W@<{Wo@%|WO3}HV!p<~@pHV!tb~@oXHW}]Qw~@ohHrf~@opHk(8~@oHH@
3	7|}H@
3	7|oH@
i~o&|aH~Xx^2lH@V!jJ?~@XH@
i~o&|AHk(8~@VH~Xx^2l/HXx^2l$HXx^2l~H!Xx^2lHV!iU~@PPHm3u'~@P H@
i~o&|aHV!if~@MhH@gW~@M0H@
i~o&|UH@^\$(|NHk(8~@L8H@H@^\$(|HHk(8~@KxHof/~	(8 B((O 2O-2OW~d
4_S0d
4H @
 k:5H3m&.pG"(1	 ,>,>,>,>,>,>,>,>+,^,^,^,^,^,^,^,^	"*
,~-"	`O@ %@@*$%@@$ ', ,, ,, <.,]7@	*U" +/+4,-4@	 <7,24@	 @@! Lu @!  @
+	 * @ "7  B+78 $ %	( E"@@*",~:%0"+: " $	,~:$0"+< " $	,~@@	 (E**,~,~,~,~+?,~-" @,+A ( 
 * 2
,N+-"	 3@ p 	p p   ADG @7@+::@ 0R
R	 A";UADGR@:@ 0@@7D+BO2B+D D 
2	(
(D4@G6@.0@E5@+H@+-"p@!=1@@@@@!,Lu(	*U*E*L*H2@+[+\X4H+@+[+\+NgO,~ #p"][5@Up @,~/@
`.h
	 2.Op$Dk6&oH@
!@l#@<,@0H'	(*
,'k6p-/*}#@@Ueky@+kyp2 <3	*(5,]+h63%x <9,+)x <<,:	("P*=+)x <>,=+- @+@@+Bx <C,?+G	 (Fx <H,D+G@`..hL*@N <M,I+[	DJx)8H&)}#P
2O-2
2OW~H2\(Ot$$(RHfQtbHf@K# 	DK!Kr+)MG
	bd
0
d
4		bd<+bd>	bdCJbdDBRir~})B
*{|P
*|J	S6wP
+H
+-x	P
+5[SHdCSJ3SJ7KT-x	SVzo			xo1SH
S'a[.#\'+P$(F{nB{otT #e:%	DT#uHF%	nB
&1}9T'J(F(a@T+"pf%:/P:3:3	@ :4:5-?.; +P<(FP
_S-jZ.PAV	D"2x
TUAYrBHSrKcBrKqG\rKr[Up[}L(L(z	 UM@RzP;/PFer5Ofjf
F3'U	W~A{PHqt}Pdt(~W
3_.Px.|	g5WL[WMgWMTWMWS&E|WJM~g
gffDH@@h
HV!qF~	PHV!wa~	HV!wE7~8HV!fUe~hHV!x9/~@HV!xH/~H@ @:       	 	```           	        (@	 0000000000	 "










	 +














	 3












	 <












	 D 	 M	 U	 ^	   f4lH0f,@H0i(04H0j(0H0l P o`@	L@
Xp
dP|pH0nL@ <,L@L@ <,L@L@ <,L@ <,L@ <	*U*Q ,L@L@ <,L@L@ <,
L@ <,LA@,~, <"@, @ <,,~	"@ sH
@H
AH
AH
B	(|H
BH 
CH 
CH!
DH"	 
DH#
EH$
EH$
FH%	 @ 
FH&
GH&
H'
H'
	"@ H(
H)
H*
H*
	(H+
H,
H,
H-
H.	 &
H.
H/
H/
H0	 @ /
H1
H2
H3
H3
	"@ 7H4
H5
H6
H7
	(@H7
H8
H9
H:
H;	 H
H<
H<
H=
H>	 @ Q
H?
HA
HB
HC
#	"@ YHD
 HE
HF
HG
	(bHI
HI
HJ
"HJ
!HK	 j
!HL
HL
HM
HM	 @ s
"HN
#HN
$HOHO	"T*{HPHPhrhih	*E"Pkhmhh0123456789h	(

ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-0123456789h	*
(!pE`s}ACCESS	 CLOSEDELETEENDFINDGETINSERTINVOKEMODIFYMOVEOPENREMOVESTORE	 &USEALLAREAJOURNALRECORDSETSETSRUN-UNITUSINGOWNERCURRENTFIRSTLAST	 .PRIORNEXTDUPLICATEDUPUSAGE-MODEPRIVACYKEYCOMPILERETRIEVALRETREXCLUSIVE	 7EXCLPROTECTEDPROTUPDATESUB-SCHEMASCHEMAONLYSELECTIVEMEMBERMEMBERS	 ?TRANSACTIONTRNASACTIONSSUPPRESSCURRENCYSTATUSUPDATESERSTATERROR	 H-STATUSIFDBMSFORWITHINVIAINTOTOFROMISOFIN.*- P+	@w8
.L
Sb2OFgagS'a[.	 P$
"eId"e\(
"ea"T#uHF	 T'J(FP->Q8XfRP-W_T?rT@H{T@H''T@H'x@	"T@H)/T@H*O P<(F{
YT$$
YT=_
YTvw
YU(`PAV	@"kVa!XmVa"`rVa#hVa#snVa$(i	D EsEuP}
	@;QecCT;-_j
rk;{k;''k;'xk;)/k;*O	P_FcD%cQcQ c]_c]bc_cv#cvG	dKdwd6&S5Z
@Jd#
/O1
(lk
A(Mq
(Hf
#	(I7
4ZZ
(B{
A(aL
J}G
B)*}
)4xg
8zG
B)fAS
	K
"92
K[
CpD
pH
$+ZWZ
C?d
+Zk~
DpJ
"	,*p
K!]
D%3
.'^
.	z.4D
DFw'
EH3
q<
#	JcI
Jnx
E/@b:
/kxLR:0rb
0se
Lw
1;"
	1yd
F1%y
1' x
1Qtw
1Vr
KS[
Ro*1reG
 1s<W
F	1teJ
1u<V
r$
2=N
3-+
3
Kb+
G3
Kg
!4\1
!((Q (T6I(THH(Tu}"e\(Va#t0dw}H @!L(H b@@@
@H
>H4He	"Q(,~,aZ`^ <,_,~@@Z@@@@ <
, <,R Rb,~ 	(D @_  @Q` @_,~6@+ pb+@c7+ #p  @[  @[	"D
T*,~b+@d`B@+aB + d @[ e @[O@,~,/6 ++	(TT( Z @7@Z++[X1B+#0v<+),4[\0B+ Z @7@Z	**("+ +% "QB\b`+),/,}"[0B+++.7@Z+1+40v<+<	 ED
* V V Rb,~,5[\#1B+@@+(  b@@  @`R`@@	"*T*3@@@@!,~,}bTHf+7 <>,R a @]"f.e 
 <?,R+<;?	*U*U;+A+B+E+L+O+O+P+P+Q+Q+R+A+5   @]   @a	*P*D,u+7  
  @a ]Z]0$00d==bG4bK/$d=bG,u+57@	(T*L+D   @a,u+5,~+++++7+ p [ [4BV	*U
E*UbPL5+W=bT,+S @a/"/B[*["B\bP+] ]3B_+G+K.
\	*U ] a @[`a`a`a`a>a,~ 9p ` @^ ` @^ 9p  ` @ _	"@( f2B`+LZ^.`[1 +Q <X,,~ _2B]+Z <],  ]	"
Tn @ ] @ a @6 6@+_Z`] <c,_,~06<,~ <d,	"E**w 5`x,k.6 pQB\-  nX@\yB`0B
@1B
`+e,~@@Z:Z [dB	*A(U*+r a @Y@@,~6B2+}.
[., LZ <,j4@cPZ+ <,	"@(*O@ [ @Y,~
 p_^pxH.c.dx	"*
 <,+,4+@@,5+ L Y @+pYp	"T*U"Z LZ <, @  @Z @5D <,+ L Y @3	(@*T*!+#ppZ LZ <, <",s @!5D# <$,	(*@**+#x6`+, <+,R,7+(,6[0@
@@+( L Y @	(*E(2+)pZ LZ <,&  @2  @5@) <3,)+)x	*T*; <:,9+*+;+*xx+pZ <@,;+5p	"D*U*C] <C,+5p]\ [ @\>\ <F,a:\+] \ @]	(D"T
L+] B`R_ B`+gxbp_e <O,mQ A`!"@_ <P,E	(E
(T _ @` _ @`Y`_+ipP^p]] <Y,a+lx	(
 ]\hX D   @^ <^,+rp_]p]	 @
P(e@X+}~`ZZghp[kx	 UT*npZ <n,B+x3Bg+ BZ <i, <l,' @[ZB[	*"*v <m,R0R+o <q,R+ppZ3B+ <z,5	"U*( @  @6Z @15D <|,p+pZ <,+p]*U [:[ a @[ <,a+p	D"`$y``$ybY9Sq)K>ub$Q`HQP
Sfk}[8_[DEPEe{+P$(	D$*bLCztbM.TP3_3=bddmbdzbdz#bd$#	Dbd&b}[~	E?}d`a_b}u0c?fgvS'a[.(U'4(Ts	D"(Tt
NsES(T)(TV(T6I(THH%	D"(TT=5(Tu-6(Tu}(TvW(T{>7-W!(-GH,
jKM 
jKM#	D1'~H1'@
jLmPrfP$fc^\$(`|f	D"^h(Sc^hG}/cwSqdsMxds\wT 3
.+Bb k/xZ+]R	D
"e\(d"ea"U"en2;T#uHF%
Zd%	.=%	i%	]Yd%
7}(	 %
FB%
WY%
f+'Fd(*-xd(*<w3881t`8Hlgk	`fR9P-K!P<(Fki4SM6H}SMk	aY5=`{/PAV	"pFgx
&uKD@KD}xcKld@KlxbROxH^U'\+^VreY]c"Y]g	eROX2UY]g		P;zc)6=j}fc)|.P=llYOaelg+lhl#M<	@el2Yzel\2/Ul)HPFrdK`er5er^21H4Z
`4ZZ
	O(</g
@J}bO+F=O
?.nX/kx3&+};!G};!K?FwE	D"@<M3Q@<R	PLw@OLwbOAjJ@PD7tADzJREp+zQG#XL	H?~BPdK+|Pdt*{W
~@HV!o!?~@hH@	
~@XHm{@XHmM\4'~@HHmM\4'~@`H@:O~@pHAsP@
%	.=|7HV!o$7~@8H@
w~@0HV!o$7~@@HaW9_~@0HV!o$7~@HV!tD?~@H@	
~@`H]uDE~@HH@_B,g~@P((
f 0dYdH @(H0B d  f $(&H%	D"$y$y
Y9S
Hf_@
}[~
}u0
]mS'a[.P$Xx3mDXx4YDXx^2E^\$(P{t|fwS
3	7	@ 
sMx
s\w+Bb 1%T#uHF
%	.=
%
7}T'J(F
(*-x	 
(*<wP<(FPAV
F,h ((' d7~jn7k
I0d7~H @N

COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION
(	H
 (
HUNDEFP((D:HA,P @	  ,>,>,>,>,> ^+,^,^,^,^,^,~-")	INTEGER S	 YSCOM(44),ERCNT,ERSTAT
	CHARACTER *30 ERAREA,ERREC,ERSET,RECNAM,ARNAM
-	INTE	 GER SYSCOM(44),ERCNT,ERSTAT
	INTEGERERAREA(6),ERREC(6),ERSET(6),RECNAM(6),ARNAM(6)
}	INTEGER DBKEY,ERDATA
	EQUIVALENCE (SYSCOM(1),ARNAM),
	1 (SYSCOM(7),RECNA	 "M),
	1 (SYSCOM(13),ERSTAT),
	1 (SYSCOM(14),ERSET),
	1 (SYSCOM(20),ERREC),
	1 (SYS	 *COM(26),ERAREA),
	1 (SYSCOM(32),ERCNT),
	1 (SYSCOM(33),DBKEY),
	1 (SYSCOM(34),ERDA	"D"3TA)
HBHDHEHFHHHJHKHL	(D";HLHMHOHPHQHRHSHBHT	"D"DHTHUHUHVHWHXHYHY	(D""LHZHGHZH[HC-"+-"@@   @@@	(D"QU <\,4@_,4@b6 +[  @,y <d, <i,4@l B  8	**Q] @ <o,4@[ 
8<q, <u, <y,6@+{+}	*( f6 W+j (`h B,y <,Z,6@8+ <,4@  @ <	"*U(n, <,O@7`++ <,o,@@,G <,[4@y BcL8	*U*T
w+t,N <,n+t7 f7@+{,j < ,u4@ BcL8+{ <",n	*U*U+{ <#,r <%,>@+.7 y+2 <4, <5,n& <7,O	*Q*"+  <7,@+ <8,|4@ @ BcL8+ :1@+= <@	*UU*,n <A,6@+D"F,>,>8,>8 9 @ : @ <G,4@$ B	"A"U(cL8+"F  8Q A` <J,"K,_, <L,4@ BcL8	(U*E*!+  8 @ <O,+ 8 @ 9 @,^4N-,V5@- X7@p+,	*UU*@@ <P,{+- <R,{,^,^1B+U <Y,4@E BcL8+/ <\	*T"T*2,n <],/4@/ <`,4@bcL+3 <e,34@3Z <h,74@7 B	"D*E(;7@8+9 <j,4@l B <n,Z5`p4 91T+r <u,54@w BcL8	*U**C+z,+96 +,{+,V4@|7n+N7 E6@+L <,iO@	*P
U"L,V X <T,{,~,>7@8+U7 I6@+S <,KO@ 8,V X	*"@T <T,{,^,~ <,<4@ B <,Z,~ 'pQ&A`  'pQ&A`	"*"]  2+_ 2O@6@+	 1h6@+,,p,~@@1R^	***e+ <(, <, 
Z@Z @,~ J @ K @,~	 Qn 'pQ&A`  2 <, <, @ <,1Re,~5@Z8 @	*@(Q
v,y   @ R,~ <,f,~7@+ !p @ !p @ 4B'	*U(E <4,#5p5+; <%, <?,,~6 P,~ <A,R,~ #pQ"A@ p	 D  	p@@@@4F1FO@.&F3$9	,~@Ap !pQ A@ ( #p	 *Z 1F+/&F>`=d,~@@6 :0B6@5pD 8	(T "E0b4@G+
H O1@ "1@ "1@ "1@ "6@)0@7+2	*A(!,: <P,{,~0d+R <T,{,~ ",: <P,{,~0d+W <Y	(P**),{,~ <Z,{,~ ",: <P,{,~ 5b2 ",: <P,{,~	(U T(2@@ 8 D <#,z <\,{,~ ",: <P,{,~ <T,{,~ 8	 *Q:&6@.$1d,~6 +] D <#,4Z.  @,~*	INTEGER D	 CBNULL
SYSCOM
	CALL SBIND(	CALL BIND(	CALL EBIND(0,DBNULL)
*01   	 K*	02 '	INTEGER 	CHARACTER 	REAL 	REAL*8 	COMPLEX 	COMMON	INCLUDE '	 T(2(630/.SUB'
.SUB/NOLIST'
0,,0,).
`	*@""\XXp <^,+x <a,`+H5:	"TUe:KKxv`gXhhx <l,b	( m+hnphrP		*T(U
vt@FFpAxG <z,d+fxH <},{	(*P*~+fSYSCOMH::KKx <,m+h	"A(@
nx <	,+7B+0b " B 8 @@@ <	*DQ*,^4@	+kxxh	4Px <,+rx	*QT <,+rx`gXhx8`g	*@  Xhx8x3DBNULLh	$P`	*E(*)''`	
Nx <(,? <+, <-,
+	"T 
1x7 <2,~+xPxwx6`gX7	(*T:h$800001p6;6 +/ <<,+/x8h8	(U "BOp6 <C,?+<8`gXFhp	 "
K08`gXKhxh<EXh;DX	"U*A*Sh;IX,V5@/ X <T,{+/`gXXhx	  P*\8`gX\hp_hx <b,0+	"T
Pd`gXdh`gXghx8x <k,c	(*U m+p88p <o,l+9 X <T,{+9pt	(T
uhx <v,q+p <y,w+9x <|,z+	 *T~00000p6~P6~K:J:xx <	**T,}+p88  @  @+c,d,O@,~p	*T(Q,p5@k <,+kpNpxh	 UUp <,+`'O@,~p	"*E* xp`''hO@,>  	*U*E*( @ <,/,^ < ,) K @ <!,+7@+ P <#,. Z @	*T*U*1 G @ <%,-+h P <#,/ Z @  Y7@	*T*E(9 G @+R` 7@+ Z @+`P	PpK	( *B$8xB <C,E+8x <F,+#(%	*U*
J*8,.608p;p;C<Q	(*A"S,{,~p;Ip>I <V,{,~p=Ip?I"A [p<6@$.D>,~	D P$yP$y#M/i#M/iRF]&RGgPr#7%3#7&7	 #7&9P
IT3mRLbDH6cbHfX@.Hg7Hg8w<RK0J!	D"bKK	LD,}ybLCz6MX@M+?M^e	M,-PU8d@P	DUbP^gu-R\}=	]?u#3bu-2bu;,bu<.bu=6	D"^t[:8^u
d7~ReB1[OeCGhWMh9|!	,"G7R|g	DP	@Wr	?M-BbfP	VjsH
3	7
2Q	+]RT"QqM+^a8+^a9(Y#M)8Md<*zrT@h?c~*P<(FPgTQ`g	Dj>5SQ^l$NlKUTY9*#YE3H]&Idi~/GFdi~iD*	"PAVTp-gPMwrdr:^+U\R%L\R5NtygGdvvc?3
y1G
	@O{224ZcA,4ZcA-	D"4ZcG$4ZiGE4=|!77G=).>4zr4|[Ve5
&P7RH	P8-U9NU	U9N:CP83#U9PUU9P4CP8&cU9L:U9Lg	U9LUP8'rU9L@CU9LS#;,!/;R8Np[}eLO77YK	D"MP|ZP!A-CP60EA/DPxPwURbURf-FURO+UHkJVkgYz?dZ
-
Z%	4Gfwgs/YKyVWA	"V"=		V$7	VC	k{9k~{fjf
IQkKj[f _
Fdf!ic?2Vx?h-	PcD#wW7&3xPd3[vPJq`Jy*`Jy3`4Zpg(</gpg+F=Ot	`K1T`K>`KPk`KPo`KPp`KW	`KW`KW`KW`KijW.}Pi%~PHw|W0UI{PI@*|WHp{HV!t0G~@HhHm{ @HV!i~@CHmM\4'~@B`HV!liW~@A`HV!t0G~@@XHV!pi'~@?@HV!fIG~@?HV!t0G~@>hH@//~@>@HV!i~@=xHV!t0G~@=8H@=/~@<pH@6G~@<@HV!t0G~@< H@:
3	7|H@
3	7|V!g/~@1H`S1w~@0pHV!g/~@0HHAAVw~@0HAAVw~@.HAAVw~@-xHV!t]~@-@H@:r?~@-HlaYvw~@,PHV!pi'~@,HV!h/~@+hHlaYvw~@+pHlaYvw~@+@Hm{ ~@(( 8
IQzc?sbHi~i~/Gi~ivvc?k3!ic?0sbHH @$
COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION
	(@*@HH1 	"*,~H2H2H3H3 "O@   @+ "@@  	*** @+ "O@   @+ "	@@   @,>  "@@@@,.	(U U* <,4  6@+4,'+,> )p,'+  <8, <9, <:,	(U R`,~ <<, <=,R`,~,> )p #p,!+ ,^,~  @	"E*@"  @@@    @ <?,4 ,'+$Z & 6@.   X@+@ 	 *7+   @ S  @ ,~Q_w#`.\.<*"w,~)
	1	 U" 3
	
 ,! ",! R`+xpp A
U;ppP11	"P	D 8y18ze$
8
I81'R87&P$(HExbHY\%M>H	D 
Qzc?sbH}
}
8HS'a[.PrfP$	 +]RT#uHF%	t%
AT'J(F(m!P<(FSM6H~\/	D"li~
i~
i~/G
i~i
i~o&PAVP_=Tu^6N	
vvc?01e5@	ex
=Ul)HUl)\PFj[fjf
k3	k9&!ic?
@78e75PJqWD,M~Hk(8_~@XHk(8_~@@Hk(8_~@(Hk(8_~@((B dNr50dNH @'T
COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORPORATION
(H0"H
(	 D",~
HLHLQX_eou	"D"}
	
'
-6=ELRY`fn	"D v~
&9#"`+&&+015:?C	(D(P"*D  @  @	  @
,F6B+'9#
'.&9#  @ <+	"" 3,
&
.&9# 2"+-Z @Z @	 </,+A,>,>,>	 U;  ,,^,^,^.&9# ! @ <3,9
&.&9#:9#	"E(U(D:9#
&,~ <6,3
&
 <8, @	 <;,A
&L
&
&,~		L;%DMLXIS.EXTRAINPUT|SPECSARE}IGNORED.|M%DMLXOS.OEXTRAD		UOUTPUTISPECSEAREEIGNORED.|S?DMLFSU.MSYMBOLLAFTER "FIND"EISAUNR		]ECOGNIZABLE.|Z?DMLELW. ENCOUNTEREDM[]WHILE	"f|a~d%DMLASI.EALLMEANINGLESSSWITCHESAREDIGNORED		@n.|j?DMLWCD.NWILDCARDINGINOUTPUT?DIRECTORY.|q		w?DMLPAU.PHRASEbAFTER"FINDDIDENTIFIER"OUNRECOGNIZABLE.|w		"[DMLSUM.	ERRORSDANDSHWARNINGS.]}~	(@~}%DMLNIS.SNOIINVOKEPSEENOBEFORENFIRSTEDMLSTATEMENT		@.|?DMLOIA.FONLYRONECINVOKECALLOWEDLPEREPROGRAM-UNIT|	(?DMLSTL.-STATEMENTETOOILONGOORI"."CMISSING.|		!%DMLLSN. STATEMENTENUMBERNGREATERTHAN99999--TRUNCATED.|!%DMLL		@*TL.ELINETOOSLONG.|)~+%DMLLSE. LINE SEQUENCE NU	 D2MBER  NOT FOLLOWED BY "TAB"|0~4
?DMLDUP. DATA BASE N	 A!AME  MULTIPLY DEFINED|}"+ B
  @  @		**A*),F+/`+   @
7+6P.		(UT(2`<`
+5`d"T:`<	Dv#6Pw8!e#P{&1{&5{':{'?	D"{(C{(DDFL2&bDH6IbLCzFd@
d4L
d5-
d9"	D"
d?g
dA"
dH9 
dM(
dN
dN1
dTS
ddm
dfM	D"
dz
dz
dz#
dg
d

dJ
d!
d!
d
0	D"
d+	
d#
d$#
d%m
d&
d&

d<+
d>	
dCJ	"
dDB{pw]ab]mC^?&c?HS'a[.P$+d%
7}'%
`wFT'J(Fd(*<w.	"P-o	P<(F>2C?Td#C>=
%C>KGEC>vJdYT=_]/
	]&wPAVu^v
&2=011PV	DP;zex
=ex
,
Ukn-elg5el2Y6el\2-Ul)\PMF@Ur<Hb\'~@'HeMG[w~@' H@
%
7}|(H@
%	.=|,((=