PDP-10 Archive: decus/20-0081/filter.rel from decuslib20-03

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0081/filter.rel

There are no other files named filter.rel in the archive.

 Hiz0Hizp`A<./(kd%MFx	 ,5-i9CR,FXCJ

|Pa!Uh6Jh,Z5-i9CR,FXCJ

|Pa!Uh6Jh,5-i9CR,FXCJ

|Px	 a!Uh6Jh,l5-i9CR,FXCJ

|Pa!Uh6Jh,|5-i9CR,FXCJ

|Pa!Uh6Jh,5-i9CR,FXx	 &CJ

|Pa!Uh6Jh,5-i9CR,FXCJ

|Pa!Uh6Jh,05-i9CR,FXCJ

|Pa!Uh6Jh,5-i9x	 .CR,FXCJ

|Pa!Uh6Jh,B5-i9CR,FXCJ

|Pa!Uh6Jh$5-i9CR,FYK%w5:TC2c)]RVC2c)]R 	G",`$,G",:mM?,xKL
G>f6H4Xx	?G>f6K4agG>f[75`<Id]5d9JIVm^-"K>3)VCK>c)VCjM'=

O^hO#(tCJ

=dXO#-weO#-wx	 YeT:eI9

\O]R

^O]RP

`O]Rp

bO]S

dO]S

fO]ShO]T^hx	 a

O^$

O^$

O^$@

O^$`

O^%

O^%>O^)<SP|Q>dFQx	jQzKH	nRuS;]Y1UxqkKKY3)TY2. NY3+qGW0GY3,rb8Y>ty9hjeRDY>ty9hjeRx

5N.

[M`!`['96Yt[zfkM3Lc]FFQQzKH
:B-fZQ'+wJju}`?x	6W&x	 %aJ|99fj{84IR0 aJ|99fj{8kR. $NaJ|99fj\YK;#)iV	$.aJ|99fj$5Nj9S>px	 .2aJ|99fj$FH4aJ|99fj$FLaJ|99fj-mM aJ|99fj-mM"aJ|99fj-mMx	 62$aJ|99fj-mTe>uY7h8aJ|99fj4@:aJ|99fj4FQ; aJ|99fjLFHx	 ?aJ|99fjLFH$

aJ|99fjLI7i&5pi&}`JaJ|99fjMhvk(PaJ|99fj~Je^N9 DaJ|99x	 GfkFHFaJ|99fkFHHaJ|99fkFI$LaJ|99fk|ti&}j7N@aJ|99fk+qK.) x	 PaJ|99fk+sek*2"aJ|99fk6H$aJ|99fk6H$&aJ|99fk	1Sc+P[$(aJ|99fk	1x	 XSc+P[$ $*aJ|99fk	1Sc+P[$@>aJ|99fk4J!.aJ||PZjt25B.*7H1x	 aaJ||PZjt25^~*`!aVt=CRM{MG"(1ijaW#-we

na]R

ra]RPpa]RPx	 i4Dta]RP5E

va]R

xa]R elUfj5H3Rg+ZZ
g.NSY8x	 rg?.(r5J,;yH

gR-	xinIi"N6QQzKHi"N6[_J i=Uvx	 zHj-wemfY-M2

p8mfY-#UCm&#+P[

~o1Rx

o1R o1T^ho?FQQzKHzoJNI-Y&tPx	 P\	
0('Fx	"\`@0((\t@P%(GP\Ax	 tP%)\t@@)H\X0@@H$x	 @@%*`\At0P%*GX\@t@@$ +
x	"-c@<0@@+J6>XGx	O834F(	0@@05H@8G'
XH@0@x	 @@i9(c:0(

p@:G@(x	   q
`) L@x	 z<

0*P L@<G

@* L@=x	(+@ L@=G
@+x@>+0xx	 @?x+h`@@X+ H@Ax	"8+X0@Bx+@C,Hx	 @Dh,

x0@EH,8@@$x	 @@$F0,@$VF,80@@$ Wx	"-

P2'HX

h38x	 50@Y	318Z83P@0x	 @@>ZG10(4`0@[4<`\5084x	   Fx@\G<0x70`@]G87hH@x	 O0^G 7 H@@_?0	8X@_GJx	(W0	8x0@`G 8T@

b08qXx	 `HbGH88@0c9H0@cKx	"h@9( H@Pd:f00dG`:(x	 q0@ ex:n@

eE:	qx	 yHf(:P@0fK
p;`0@gx	"

;@ H@PgGX<)00h@<@x	 
0@ hKh4@

x$tx	 h@Lup@LvP@L|0@L$x	 @ (@L2@L\@Lf #dx	"@ $x@L@@L`@L`@L@x	(,@L_ @LbH@Ll`@Lrx@L|x	 5 @L~H@L h@L#h/1x	 @ =X@l2@l2(@lP@lSx	"@ FH@l[`@lkX@lp@lx	(N;4:8@

;@

;0@

PH@

Xx	 WX@

]`@

e@@

x@

x	 @ _@

(@

"@@

0M<1x	"@ h8@

2P@

2`@

Yp@

u	x	(p@

|	@

0@

#VT(x	y@

ex	"@ 
H@,fP@,f`@,p@,xx	(e|%@L&@@L&P@L<`@LCx	 0n<H(@lI	H@lI	X@lQx	 @ #	h@lT	x@l_
@ld
@lmx",
(@lr	)pL@(k8>@	x.@eX	g?.(rMI 	  @M

v @\H:; V	 f	 oY'J7N65	  @w

h @H29  8 `('I (+ -<-8n:-<n+t	 INXINXpp6ppppCOw

gB,:0X6t2f	 S-mM&_8S	 aJ||PZ6L@	 &K;5W]6-mg?.(r}\	 .i_
TXz}\i	7S;]W&I$	 HM	 PaJ|92kJ(mfY 	 Y6NMH	 aS:M2JG>n

upa?:Mi`	K;$\@	iJ	 6lE 	 ?elUf	 GG>mY7iLY&tP	 PY&t\`	 XI$P	 aI$Pe'&I7RD\[SN(	 
i@M&fI97A6@,O@ \ <n	 "*r,,@M&fI9,r <z,,t <, 8 H2[9QH3[		*"E"zQH3 <	,+v,v
 	, 	"	3@+ 	"	2@++	*Q(T* 	,~ 	"	3@+ 	"	2@++	 <		,@@( 	
*(+U(	(E*U
AH,Z$d	Z$d

*D

f	"	3@+ 	"		"P*T"2@++ <v,5

 D 	*(

f	U(AH(U(pAH, <L	"T*D
,+ <	,u+"   @( 
	 	 	 .h	,   @*,|

	(
*%::!X2(,> 02+ 	"	2B+, <	,+ 
	 	 (	"T
Q - .h	+2 
	 	 ( .h	+2+$,$ 
	 	 ( .h		*U(E(6+9 	*(-@@. 	*(2::%!X2<,> 0)+(::9!X2@	"T*T
>,> 02+< 	"	2B+C <	,++ 
	 	 ( .h	+G+2	**UG::=!X2J,> 0)+? 8 H  H3 
	 	 HH	*Q*Q
O 3 H,(	 h	!!(pAH-@@- 	!*(2::G!X2W,> 0)+J:	(E
"X:T!X2[,> 0e+WZ(h	",2::X!X2`,> 02+Z	*U
` 	"	2B+c+ )0 +f\(pAH++f+\,\ 
	 	" (	"T"Ui .h	+n::]!X2n,> 0)+`+ 
	 	# ( .h	+t	**Uq 
	 	# ( .h	+z	$,@@- 	!*(2::k!X2z,> 0)	*A**z+m 
	 	% ( .h	+ 
	 	% ( .h	+	&,@@- 	!	(T"T"*(2Z(h	'::w!X2,> 0)+z::!X2,> 02+	**" 	"	2B+ <	',B+ 
	 	" ( .h	++fU(AH,  	*D*" @)::!X2,> 0)+
,f,::!X2,>	*Q(P* 02+ 	"	2B++_, 
	 	* ( .h	+$+b 
		((($ 	+ ( .h	+'+b 
	 	+ ( .h	+++| 
	 	, ( .	*Q
T
-h	+2::!X21,> 0)++# 
	 	, ( .h	+5+@	*(E*5 
	 	- ( .h	+<::.!X2<,> 0)+1+1::9!	(U
*>X2@,> 0)+;+,::=!X2E,> 0)+?::B!	(UT"FX2H,> 02+D 
	 	- ( .h	+R::E!X2O,> 0)+H	*"O::L!X2R,> 02+N   
	. ( 8, .@#
	.	**D*W	.h	/,'H,@@-		0*(2::O!X2,>0)+R+,@	"T(E*`<	0,:i!X2q,> 0e+l	"EU
qZ(h	",l$::n!X2v,> 02+p 	"	2B+y+_ )	" Q*y0 +|\(pAH+++r,r&Z(h	4,|( 	6*(

 D 	7	*T"U**(

f	7::s!X2,> 0e+v 	:*(

 D 	:*(

	*D*E*
f	7::!X2,> 0e+ 	;"	42B+ 	>*(

 D 	?	*U*U"*(

f	7+ 	C*(

 D 	C*(

f	7::!X2,>	*T"* 0e+7@+ >[x2P,>+,~*@@, 	D*(2+, 	"E(E*$, 	;"	42B+'+::!X2*,> 0+	D,@@- 	!	*D*D(,*(2::'!X20,> 0)+*+,#.,12::-!X26	"T*A*5,> 02+0 	"	2B+9+P 
	 	E ( .h	+<+[ 
	 	F	 UT
= ( .h	+H 
	 	F ( .h	+H 
	 	G ( .h	+H 
		(((F 	G ( .h	+I+S 
	 	H ( .h	+L+X::3!X2P	"T*E*N,> 0)+6+2,24 <	H,a+,P6(	Kh	L	L,@@- 	!	*D*EW*(2::M!X2[,> 0)+O+2,S8::X!X2`,> 0)	*D*D*_+Z::]!X2c,> 02+_::`!X2g,> 0)+c::d	"(Q
h!X2j,> 0e+fU(pAH,,[:::g!X2p,> 02+j 		(UUp"	2B+r+P 
	 	M ( .h	+v+ 
	 	N ( .h	+{	*U Q"y	N,@@- 	!*(2 
	 	O ( .h	+Z(h	4 	P0@++	**"::m!X2,> 0)+o+k,k<::!X2
,> 02+	* U
 	"	2B+

+P 
	 	P ( .h	+ 
	 	Q ( .h	+	*(* 
	 	Q ( .h	+ 
	 	R ( .h	+Z(h	R+k+,	"E"
> 	;"	42B+!::!X2!,> 0)+	+2\(AH+::	"" #!X2&,> 0)+ ::#!X2),> 0e+%   
	S ( 8,T	 *A*, .@#
 	. 	Sh	/,X 
	S 	T ( .h	T,"

d	U D	*UU4 	U*(

f	V::&!X2:,> 0e+)+2,@,:D:	(E(U=:7!X2@,> 02+9 	"	2B+B+ 
	 	V ( .h	+F	*A*A*E+] 
	 	W ( .h	+I+	 
	 	W ( .h	+M+e 
	 	X	 U
(N ( .h	+P+,;F 
	 	X ( .h	+W 
	 	Y ( .	*T(E(Vh	+X(	Kh	L,PH::=!X2],> 0)+?+;,XJ 	Y	*UU
_ H,@@- 	0*(2::Z!X2d,> 0)+\+;,]L	Z,@@-	*Q
Q
g 	!*(2::a!X2l,> 0)+d::i!X2o,> 02+k 
		( Up 	[ ( .h	+y 
	 	[ ( .h	+y::l!X2y,> 0)	*Q
P*x+o+;::v!X2},> 02+x 
	 	\ ( .h	+ 
	 	\	 U*Q
 ( .h	+	],@@- 	!*(2::z!X2	,> 0)+|+;	(Q
U
	,eN::!X2,> 0)+(	Kh	L+;,	P 	^ H,@@-	*Q
Q	0*(2::!X2,> 0)+
	^ ($@nh	_+	*Q
Q
 	P4@::!X2,> 0)+::!X2",> 0e+,	"**#T 	`, 	"	3@+( 	"	2@+)+* 	a,$ 	"	3@	*E E++. 	"	2@+.+/ <	b,,,"V,/,0X,1\ 	b	(T"T"4"	c2B+=::!X29,> 0e+"::6!X2<,> 0%+8	**D*<+K 
	c (%@nh	d+H 	e5@H::9!X2D,> 0e+<::A	"(E"E!X2G,> 0=+C+K::D!X2K,> 0%+G 	f0@+M+2	*(E*M 	f"	'2B+Q   @)+U (0@+T   @)+U ( @)@@, 	D	*E"P
V*(2@@) 	f0@+Y+u,2^:) 
	6p)0p$,/0p	g 	 .	*Q
E*^h	,2::H!X2c,> 0I+K 	f1@+e+Y6@)+f+u6j)	"(T*g0j$,\/*j	gh	P 	g"	P3B+p 	h"	P3B+p 	h"	P2B	(D"
o+tZ$6t)0t$,g/4t	gD+u\(AH++#,Y` 	i"	"3B	*"Ex+|6p*0p0,q/0p	i(	fH:*,ub::`!X2,> 0%	*D"+b 	f0@+	 	i"	"3B+	Z$6t*0t0,y/4t	iD:*+2	(U
E		f0@++2	b"	c3B+	*"(+B	f1@+(	Kh	L+2Z(h	j,>@*, ,#j,(n 
	^	 U
E+ ($@nh	_+-+Y *0@+/+9 */  @+6j+0j0,/*j	i	*(U"3 	j 	 .h	,_ 	k4@8 	k0@+9+9:* 	k"	R3B+? *	"D("<. 2 )+?@@ )/  @*,)p   @*,?r6j*0j$,2/*	(QDj	g0@+G+V6j*0j$,C/*j	g6p*0p0,H/0p	i ( .	*D(*Mh	T,56p*0p0,J/0p	i 	l2@+S(	Kh	L @:* :*	**"U+A,At,Vv@@, 	D*(2,Wx 
	m6p*0p0,O/0p	i (	"E*(^ .h	T,M\(AH+:*7@+e>[x2P','>c+(,Yz,e	"EU
f~ 	k"	R2B+l 
	T (0@nh	d+l+ 	i"	"3B+q 	k"	R	"E(T"o2B+r *0@+r+ 	n"	n3@+v 	n"	o2@+  #'.	**A*w#@'#'@#
 	o 	ph	p,/ 
	q 	r (0 .0h	r,_ 
	s 	s (3	"UU* .3h	r,~+ 
	q 	s (0 .0h	r,

d	t

f	t	"	3@	*E(Q(+"	"	2@++(+ 	n"	n3@+ 	n"	o2@+ <	v,+ <	x,,f

	*U(
 D 	*(

f	y,U(pAH+\(`AH+   @*7@+%	(U"*">[x2Pd,c>#+d,,% 	"	2B+)+ 	e4@/	*
Q"* 
	 	 ( .h	T,U(AH(+C:( (0 $+; (/( H6j	"Q30j$,\/*j	yh	fZ$ (/( H6t0t$,3/4t	yD+C	"A**;Z(h	c,&
   @( <L,+CZ(h

d	z D] 	z*(c,<	"Q*D(D

7@+H>[x2P$,#>F+$,C,H::G!X2N	"Q"Q
L,> 0%+ (1@+Q 	f1@+Q+r,I (0@+T+_,Q	"D*(U::K!X2Y,> 0%+M 	f0@+[+Q 
	 	 	 .h		(T"Q(],-Z$d	{+r,T 	f0@+b+r 	f1@+d+m,_:	(E"Q*f:V!X2i,> 0%+X (0@+k+_ 	f0@+m+d+r,d	*E

n 
	 	 	 .h	,]Z$d	{,m7@+w>[x2Pf,G>u(w+H,	(D
xwx yCOBOL FILTER HERE
H8

H:

p|}YO 	(
Q*	H:p	;L$<	0<0:v&<	$<$:H8	"ut		p	9(H'H7     `p(:?SOURCE FILE HAS NO DATA
:\H(@!<$+?NO IDENTIFICATION DIVISION
I,I@I	 .	@S-mM&_8A(,`.?NO PROGRAM-ID
I!HH$H7<4<-X.

+	*A @	"I'I[IaI$S;e'&I7ICIIelUf<,?NO ENVIRONMENT DIVISION
I-	*U 0	+I3II9I	IEI?$'@aP-?NO DATA DIVISION
I>9iiT(	&@zz	3A(,0,SPECIAL-NAMES. AP@:    CONSOLE IS TTY  AH<	    C	 `	<HANNEL (1) IS TOP-OF-FORMA8X    CHANNEL (1) IS TOP-OF-FORM.    Ax`H-	 U(
	DS;]iW&oIuI{IQ?NO PROCEDURE DIVISION
***T	KTI'	"A*U(	Mr50II]gR	:U((	Up:IcI%IIgIIG?C4QS:8II<<<H:H+<+<\:	l$+(<	m<	(A"U	o:@HaH,@H:XpH3x	uH Uh	w0x	wT:\t\P],\	D"BzV?QjbT-^xbTB)`)-
?`(*R

bgsC(R`-$r`x7Vp	D"bT3_[eVZq1dwdv-F=bT7MrbDvH*bLk
d"a*vemWOnw	D"emWPheW9c!o+vfPa-+qb2,C	bQ0%B+bDw