Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0067/filter.exe
There is 1 other file named filter.exe in the archive. Click here to see a list.
?p?hXK?x+8K3+08(:(K+: INXC3,PLLI7i&5pi&}`f8g?.(rMI
S)H@HyzY'J7N65
ThH@5Hqx:$j:HjH
$j: "P b+L <l->-81:@-<2+4ggge}g#INXINXpp6ppppCOwgB,:0X6t2fS-mM&_8SaJ||PZ6L@K;5W]6-mg?.(r}\i_
TXz}\ii<I$MaJ|92kJ(mfY:$6NMHS:M2JG>n`I$PI$Pe'&I7RD\[SN(7
w Jq*tju*vjv <x, +5(z+={+=+>0)}+@~+@+A < ,@@f *(jU(AHj d d D5 *(? f +K +K+LH)5 DQ *(Z f U(AHfU(pAHjD+S@
+% @@g -" 2B+Z@ + +\ +\+V +^ *(p@B+w@A+-" 2B+c@ + +e+\@B+w
w Jr
r Jk* !j !S(pAHk@@l "*(p@B+w@B+* #j #@A+-" $ $2B+r+ g0 +u\(pAHj+v+o %+x@B+w+
&+z '+| .*(p@B+w .+~ /++ 6*(p* 7j 8@B+w@A+-" 8 92B+@ <+ <++vU(AHj @g@B+w@A+-" = >2B+
@B+w@A+- C+@B+w@A+- d D. E
f Jk@@k E*(p@B+w+
@ H+R@B+w* N*(p@B+w@B+* Oj P@A+-" P" Q2B+,+" g0(+/\(pAHj+
*(Z*
j
@B+4C@@k
*(p+
"
2B+C+F@C+0
*(p@B+w@A+-"
2B+I+R
+K+W
+O
+O
+O
+O+S
+Q+@B+w+F@
+ *
j
*(p@B+w+F@B+w@A+-@B+w@B+U(pAHj@A+-"
2B+_+R
+a+h
+c
%*(p
%+e*
'j
'
(0@+g+q@B+w+\@A+-"
(
)2B+l+R
)+o
*+o
++p*
-j
-+\+h"
.
.2B+t@B+w+F\(AHj@B+w@B+ d
/.
/
0 d
1 DU
1*(Z f
2@B++F@A+-"
2
32B++
3++
4++
5++
6++
7+
8+*
:j
:@B+w+
A*(p@B+w+
G*(p@B+w@A+-
H+
I+@B+w+@A+-
J+
K+
R*(p@B+w+@B+w*
Sj
S+
Z*(p@B+w+d
Z+#
[1@+$@B+w@B+"
\+'
]+(+(")
_+*
`+++, <
b,(,8,8"
b
c2B+1@B+@C+=+7p
c+6
d0@+6@B+@C+M+7@C+=
d0@+9+-"
e
e2B+= @g+A g0@+@ @g+A g @g@@k
f*(p@@h
f0@+E+W .@h&
g TDD@E+S
i1@+J+E h5@L+V&
i TEE"
k
l3B+S"
l
m3B+S"
m
n2B+UZ$&
nD+V\(AHj+v"
p
q3B+[&
q TGF .@h@C+=
s0@+c"
t
t3B+cZ$&
uD .@h+-
w0@+e+-"
w
x3B+g+W@B+
x1@+k*
yj
z+-
{ @h@C+="
|
|2B+p+g
}0@+s .@h+m
}1@+v*
~j
+W4Ad
+x+ h0@+z+ h/ @i& TGG 1@+ 0@++ .@h" 3B+ h. 2 g+@A@ g/ @h @i&d++& TP& TPP&
TIH+*P.@i+ @@k *(p& TJI\(AHj .@h4B" 2B+p++:" 3B+"" 2B+" h0@+"+:+$+) #e.#@e#e@++ d f+-+.+/H)5@+1 +1+6"+3#+5 <&,+6 <(, DQ (*(Z f) f)U(pAHj\(`AHj @h4B"* *2B+@+ +1@+C+U(AHf+S .@g g0 $+L g/( HP&, TJJZ$ g/( HP&.D+S*1j1 @gD+S*2j3 d3 D 4*(4C@C+= g1@+X 41@+X+j g0@+Z+@C+= 50@+]+X5 f6+j 70@+a+j 71@+c+h@C+= g0@+f+ 80@+h+c+j8 f94E,<G>{#pkk
COBOL FILTER HEREHAnHw
Hy
pqr$Hw$HqYO $Hu$HqHypwz$Hy<z$H{<x&H|0z&H~0xHwpx,hg AHfHv 6X6p@$H <z$H <x*Q:Z?SOURCE FILE HAS NO DATAHA@
:Hf$j<U?NO IDENTIFICATION DIVISIONHAX HkH@eHkH@kHkH@kS-mM&_8Xk$j<U?NO PROGRAM-IDH@p HkH@qHw$0u<r<k-@lp< "
j$j<UHkH@wHkH@HkH@%I$S;e'&I7kHkH@HkH@w$j<UHkH@}HkH@HkH@HkH@YHkH@HkH@ $f$f-8l?NO DATA DIVISIONHA FI>9iiT(kp< O
j$j<Up< Q0jSPECIAL-NAMES. 0Q: \:Z CONSOLE IS TTY hQ: h:Z0j<X CHANNEL (1) IS TOP-OF-FORM 0Q: t:Z CHANNEL (1) IS TOP-OF-FORM. hQ:
:Z-0k0j<XI$ 8k$j<UHkH@HkH@3HkH@9HkH@?HkH@EHkH@?NO PROCEDURE DIVISIONHA0
***T
T5I'r50"Xk$j<UHkH@KHkH@'gR
&0jj$j<UHkH@uHkH@{HkH@p<
,j0j<X$v$vHsH`Q U*XV:Z$j<UHkH@-HkH@oHkH@]HkH@+HkH@cHkH@i***T
9T5G?'0kC4QS:8(kHkH@QHkH@WHkH@HkH@i?[s~+ )@k***T
RT5K3P*@kH@kj$H
[<z$H
]<x&H
^0z&H
`0x0j<T:P<f,<j<X-0k,Hkh
$,Hk@h
$j<Uj<Vj<VHk@h
$
j<WHQh
0,
j<WHQ`h
0,0j<T,***T
yT5-H
zHQ0j<T,,***T
~T5H@kHQ`i
0<j<jj<WHki
$Hk@i
$HQh
0\HQh
0***T
T5-0kHQh
0j<WHQ
j<Wj<W(H$z(H$xH0[HQ,[H[:86HQ:6X?p@$H<z$H<x&H0z&H 0x(H!$z(H#$xH[3x$HQ0x&*Q:ZT5$j<U<fHf::`P
$:`P
$p<00jp<2$jt2@,,:Hf,,,,:Hf,7 7
+:Qf]>ez]?}9gY7M&6Jg'FJ"IE+HpHHH`H`H`H`H0rHpHpHJHpHp "
b+
<=->-8
:v-<2+
ggge}g#(v~:7g`:6@v>O@v \w8:6?@x+
6 v+
@@v::,~@ABABdC+
+
J+
#R+
#Z+
#b+
$,8Z$&c "
D=b
%Z$&e "
D=b
(##@h+#@g@y+
.+
f@y+
g#h0@+
1+
f g1@+
3+
6@z++
6+
f h1@+
9 h0@+
=#h0@+
<@l+
+
= #@h+
+ m0@+
C@z+
w#h0@+
B+
f+
C+
6#
#g2D+
E+
W m1@+
G+
N #g.#@g#
#g2D+
L+
W&n T{{+
6@r@st@udu+
Q+
U@x@xy*(X*yjz@|+
&~d+
`& TJ& TJJ& T}|&@@PZ$& "D=b
_&
d+
f&
TJ& TJJ& T~}4x@+
#h0@+
j& T~#h0@+
m& T
1@+
o+
v@y++
s& T
#h0@+
v& T
4y@@k@@h@y+
{++
~@#@#@h+
` Jr& T
+r2Br+!d+J+
+#g.#@g#g1@+#j.#@j#i#j3d+
rJR@@R)*(XU(AHX@|+
+60@#@h+JJ#h0@+` 8*(fU(AHf#
#g2D+8 T
+#g.#@g@:0@+#@h+
#g.#@g#
#g2D+#@g&Jd+
@O@@#g.#@g#g1@(+
+@
+$@P1@+
+@
+$TP0@+
##g.#@g+
#g2D+U+#q%U@V#Dq#q#q.#@q#h0@+#q&V#@P#h0@+#q&X#@P4z@@q&Z T
#g.#@g"\ ]3B+"] ^3B+"^ _3B+"_ `3B+"` a2B++! a0@++fb7++!`b1`++$@A@#q% dc@V#Dq#
#g2D+!+$+@@` c*(fU(AHf4
#@g#q@A@d DJ#@q J& &d#BP #g.#@g#q4@-+%#g5@/+5@A@#q% &f#P@V#Dq h#g.#@g+-4
@i@l@q@t@w@z@~@@4
,<G>{#p;<hwwx> H@HEJHJHYHYJHCHYK`HKHYKbHHSHYKbN@H[HYH@wH@x<p<p<p? TWO INPUT SPECIFICATIONS ILLEGALHBi<p<pHY@g
(? SYNTAX CHARACTER Hp"""""HrHpHJHJH` FOLLOWING WORD HvHr<R00f00XHr ILLEGAL.H@H{ H@|HxH@wH
xG
`HwHwH@wHwH@xHwG
`HwH@|HxHw<pHxHwH`? NULL SWITCH ILLEGALHA(Hs@j4Hrg
Hr@g
Hrg
? SWITCH HH'Hr:(SHr IS AMBIGUOUS.H@p* ILLEGAL.H@H,Hv@j
Hj
wHv@j
Hj
x<`HY@g
(<p<p<
<p<
<p<
<p<
<p<
Hp<p<p? ILLEGAL SYNTAX CHARACTER HXAHrHpHJHJHr.H@GH`g
(HRg
(H|HR@g
(HJ<p<pHY@g
(? INCORRECT PPN.HASPdHxHwHY@g
(<p<
<p<
<p<
<p<
<p<
<pHpHpHp<`Hkg4Hkg4 H@iTHE COMMAND FORMAT IS:HA0jFN.EXT[PPN]/SWITCHES_FN.EXT[PPN]/SWITCHESHBHmTHE SWITCHES ARE:HArHELP-----THIS MESSAGEHA(tNOLIST---CREATES NO LIST FILEHAhwNOSOUR---CREATES NO SOURCE FILEHAx{SEQUEN---RESEQUENCES SOURCE FILEHBTHE DEFAULT IS CBL AND LST WITH NO SEQUENCE NUMBERSHC )!$Lu@@
+ p @@ p ^+->:x,~!"!$Lu!&&
+% p R @@ p ~+%,~ p p p@@1R9 4P,> 2,"=p,^,"=d 2," 2+"? '+$R',~~+"
&. `>,~@? CAN'T OPEN INPUT FILE.
&*,~?OUTPUT ERROR
Zx<3.\x,~+p$$p