Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/matrix/matrix.exe
There are 2 other files named matrix.exe in the archive. Click here to see a list.
?p0`0@0?hXl?x " 
 
<++/2	`D'mXl.m2mP@-     ('1','---WMU MATRIX ALGEBRA PROGRAM'/12X,'(20X20)'//' FOR HELP TYPE HELP')(' *',$)(70A1)(' ILLEGAL STATEMENT')(' DIMENSIONS--',$)(2I)(' MATRIX?'/)(20F)(' DIMENSIONS MUST BE LESS THAN 20')(' MATRIX ',A1,' NOT FOUND')(' ',5F14.6)(' ')(' DETERMINANT OF ',A1,' IS'G)(' THE MATRIX IS NOT SQUARE')(' DIMENSIONS OF ',A1,' AND ',A1,' ARE NOT THE SAME')(' ILLEGAL DIMENSIONS ON ',A1,' OR ',A1)(' ENTER TYPE OF MATRIX'/3X,'1 - RAW SUMS OF SQUARES AND CROSS PRODUCTS'/3X,'2 - STANDARDIZED SUMS OF SQUARES AND CROSS PRODUCTS'/3X,'3 - COVARIANCES'/3X,'4 - CORRELATIONS'/)(I)(' ENTER NUMBER OF VARIABLES'/)(' ENTER MATRIX NAME'/)(A1)(' ENTER DATA'/)(' YOUR DATA IS BEING READ'/)('  (10 PER LINE)'/)(10F)(' TRACE OF ',A1,' IS ',G)(' NO SUCH OPTION')(' MORE THAN 10 MATRICES IN USE!'/)(//7X,'COMMANDS:'//' READ A  --  READ IN A MATRIX AND CALL IT A'/' TYPE A  --  TYPE OUT MATRIX A'/' DET A  ---  CALCULATE THE DETERMINANT OF A'/' TRACE A  -  TYPE OUT THE TRACE OF SQUARE MATRIX A'/' B=TRANS A   LET MATRIX B BE THE TRANSPOSE OF MATRIX A'/' B=INV A  -  LET MATRIX B BE THE INVERSE OF MATRIX A'/' C=A+B  ---  LET MATRIX C BE THE SUM OF MATRICES A AND B'/' C=A-B  ---  LET MATRIX C BE THE DIFFERENCE OF MATRICES A AND B'/' C=A*B  ---  LET MATRIX C BE THE PRODUCT OF MATRICES A AND B'/' DATA  ----  ENTER DATA FROM WHICH A MATRIX WILL BE GENERATED'/' HELP  ----  TYPE OUT THIS COMMAND LIST'//)S    V    +    E    {P~Y    (10F)H    N    T    -    C    TTY  *    I    L    
R    A    D    !=    9Lf3pP         + -<!w@dG <5,, <8,, <;, `_DTZDH H <>,
:H; T+t, $ D5 ` 63Fx+| 5 6 H6:5*dy"&#.5 5 l H6.$8&~ 62Db+ 72D_+ 72Df+ 83Dk+ 62Dg+ 72D_+ 72Dh+ 82Dh+ 93Dx+/ 62Dc+ 72Da+ 72Dk+ 82D_+ 93Dx+U 62Dh+ 72D_+ 72Dc+ 83Dx+k 73Di+ 62Dh+$ 72Dh+$ 72Dc+$ 82Dh+$ 83Dx+ 62Dc+- 72Dg+- 72Dh+- 82Dd+- 82D_+- 93Dl+ <@,,+p7DG+5"G $ D^ ^ r3D8+8:^8&2:G0d+ 8 Fr D^ <C,, <F, k_DZDH ^(.H <I,
:H; +<, ^( e0f
+S e0f
+S <J,, ^("e $ <M, 
^(
"
(e ( J} H5 *d$
5 ($.^. <P,
:5; }+L,.$8&H+p <R,,+p"G $ DH H r3D8+\:H8&W <U, <X,
+p H("e $ <Y, 
H(
"
(e ( JF H5 *d$
5 ($.H. <\,
:5; F+b, <^,,.$8&^+p"G $ DH H r3D8+r:H8&m <a, <d,
+p H( e2Fe+	 H("e $ FE Dz H("e $ (
$.z ,d$
 *$
z.
H.
 
(w J .$8&z:z; E+x H( $e D[ <0,q <.,#@r <e, <h,
+p <j, <m,
+p 72Dc+ 82Dg+ 82Dh+ 92Dc+ 92D\+ :3Dx+% 72Df+ 82Dc+ 82D^+ 93Dx+U 82D_+ 93Dx+ 82De+  93Dx+F 82Dd+# 93Dx+D <o,,+p"G $ D^ ^ r3D:+,:^8&' <r, <u,
+p"G $ DH H r3D6+4:H8&.:G0d+ 6 Fr DH ^("e $ F` DH ^("e $ (
$.H ,d$
H *$
.
^.
 
(w J .$8&9:H; `+7 ^("e $ FM DH ^("e $ *d$
 ($H.H. *
$
.
H 
( J w.$8&F:H; M+D ^( e DL H( ^(  e He H( De+p@d`"G $ D^ ^ r3D9+\:^8&W <v, <y,
+p"G $ DH H r3D6+e:H8&^:G0d+ & F` 6 Fr DH ^( e2Fe+ ^("e $ FJ DH ^("e $ (
$.H ,d$
 *$
H.
^.
 
(w J .$8&l:H; J+j ^( $e D[ <),q ^("e $ FI DH ^("e $ *d$
 ($H.H. *
$
.
H 
( J w.$8&|:H; I+z H( ^( e Fe H( ^( e Fe+p <{,,7D`+"$.DG+p@d`!$ DI"G $ D^ ^ r3D7+:^8& <~, <,
+p"G $ Dr r r3D8+:r8& <, <,
+p ^( r( e2He+A e2He+A"G $ DH H r3D6+,:H8&%:G0d+ & F` 6 Fr DH ^("e $ F3 DH ^("e $ *d$
 ($H. 
H.
 
^.
 r. 8wI0w N(w.$8&1:H; 3+/ H( ^( e Fe H( ^( e Fe+p <, <
,
+p!$} DI@d`+@d`"G $ D^ ^ r3D7+M:^8&H <
, <,
+p"G $ Dr r r3D8+T:r8&O <, <,
+p r( ^( e2Fe+"G $ DH H r3D6+`:H8&Y:G0d+ & F` 6 Fr DH ^( e Dy r( e FD"y $ Fp DH"D $ Fp Dz$$
.H@f ^("e $ (
$z.H ,d$
z *$
.
r.
 .d$ ,$
H.
^.
 
0w
(wL .$8&l:z; p+h:H; p+f"y $ Fe DH"D $ *d$
 ($H.H. *
$
.
H 
( J w.$8&|:H; e+{ H( y Fe H( D Fe+p <, <,
+p <%,( <",! G0D+ a D3 <,, <, < ,
 <!,, <$, <',
 41d
1$+ <),, <,, </,
"G $ D^ ^ r3DS+":^8&:G0d+ D^ ^ S Fr( 4 Fe ^( Fe@d5"4 $ Hc DH@f"4 $ *d$
 ($H.^.@j w.$8&+:H; c+) z2De+4 <0,,3De+6 <3,, G0F+9 <6,, <9,"4 $ F} DH H <<,
:H; }+<,:5"4 $ F| DH 6F"4 $ *d$
 H$(.^. 
H 
(6
6L w.$8&D:H; |+B+96b10b++N4p4Q4Q4Q+"4 $ F{ DH"4 $ *d$
 H$(.^. 
H"
(
n5
L w.$8&T:H; {+S6b10b+`+^4p4p4`4`"4 $ Fx DH"4 $ *d$
 ($H.^.",.
5l 
 w
 J w.$8&c:H; x+b6b10b+p+m4p4p4p4p"4 $ *d$
 ($.^. ( w H[ <!,"r @.$8&q"4 $ F2 DH"4 $ *d$
 H$(.^. 
H 
(
  w N w.$8&z:H; 2+y+p"G $ DH H r3D9+
:H8& <>, <A,
+p H( e2Fe+	@d1 H("e $ *d$
 ($.H.  wH1.$8& <B, H <E,
+p <G,,+p <J,, $ DG+p <M,,+p < ,
x	[P]`3Gj^P^z]`\\0
[jYTgb\rRpiR0
[jYTgb\rRXMXUXV(6XWXYX[$dX\X]( wX^Xb(8Xe( wXfXb(8Xg(8(rXj(8XWXb(:Xb(9XjXb(7Xb(8Xm(7(8Xb(7Xb(8Xr(7(8XvX$1XX$4X
X(SXXXXL3(6Xb(9X(r(1XXX<(1X,'INVERSE DOES NOT EXIST') 00c=t![&vlx \n !p @` p @S p BQ %p DW %p Dc p DX p DY p Dh p DZ p Da Qo DU!$ DZ@da"S $ .c D' .W D'.$8& $ DP"X D]"S $ Fb DT X.D] S DX"$.h4$5d
 T DX@dW ]/X DR"&/S.T T Fa D[ X.DR"&.T/X T .R HY.`#
'3jW+ Y.`#' HW DV [ Hj.$8&:[; a++. ]/X D_"&/S.T T Dg X.d_.T Di.`#2hU+*:g8&" <%,,@dZ@da+" i.`  DW T DV g Dj#W3dU+' T3DV+?"fP.c V F"X DR"S $ X.hR.T Hc 
R.
V Jj.` 
' LV c.`.
` / N' j.` L'.$8&5 T3Dj+O"fP.W j F/&$X FZ"S $ ]. Hh 
.
Z JS.` 
' LV h.`.
` / N' S.` L'.$8&E ].T D[.`  F^FZ#Z3$p+V Z$	  DZ:a+R#Z2$n+[!$	 DZ>a0$+'+V7DZ+'"S $ .] HT.` 
'
^ J'.$8&] [.`!&^ F"X D_"S $ Ff Dg X.f_.T Fi.`  Hi3DT+v7@i+v"S $ ._ HU 
].
 Jh.`.
`"
/
iL'.$8&m i.`"i^ F:g; f+g:T; b+dPDZ"S S Fe DT.W  Fg T3Dg+"S S"(.$X H_.g H] 
_.
T Ji.` 
' LV ].`.
` / N' i.` L'/$8&>T; e+|"S S Fd DT.c  Fg T3Dg+ "$.g$X DQ"$.T$X D]"S $ .Q HR 
.
] JT.` 
' LV R.`.
` / N' T.` L'.$8&>T; d+ n Z Ap a Ap,~XYk]    [    (' INPUT? (TYPE HELP IF NEEDED)--',$)(' OUTPUT? (TYPE HELP IF NEEDED)--',$)(50A1)(2O)(I)(' FILE DOES NOT EXIST'/)('-THIS ANSWER DEFINES WHERE THE PROGRAM IS TO FIND THE INPUT DATA.  IT'/' USUALLY CONSISTS OF A DEVICE, POSSIBLY A FILENAME WITH OR WITHOUT AN'/' EXTENSION, AND A PROJECT-PROGRAMMER NUMBER.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICES',3X,'DESCRIPTION'/6X,7('-'),3X,11('-')/6X,'TTY:',6X,'TERMINAL'/6X,'DSK:',6X,'DISK (FILENAME AND EXTENSION, PROJECT-PROGRAMMER NUMBER'/22X,'MAY BE USED)'/6X,'CDR:',6X,'CARD READER  (THIS DEVICE IS NOT APPLICABLE ON TERMINAL'/30X,'JOBS)'/6X,'DTA#:',5X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED)'/6X,'MTA#:',5X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/30X,'AND POSITIONED)'///' DEFAULTS:'//' (1)  IF NO INPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2)  IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE INPUT.DAT'//' (3)  IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'CDR: ON BATCH JOBS'//' (4)  IF DSK: IS SPECIFIED AS THE INPUT DEVICE AND NO PROJECT-PROGRAMMER'/6X,'NUMBER IS GIVEN, THE USER''S PROJECT-PROGRAMMER NUMBER WILL BE'/6X,'ASSUMED.'///)(' EXAMPLES:    DATA.DAT'/14X,'TEST.DAT',A1,'420,420',A1/14X,'MTA0:'/14X,'DTA2:FILE1'//' NOTE:  THE FOLLOWING RESPONSES ARE VALID AFTER THE FIRST "INPUT?"'//' (1)  SAME COMMAND.  IF THE DATA FILE TO BE USED IS THE SAME AS THE'/6X,'PRECEEDING ONE, THE USER MAY SIMPLY ENTER "SAME"'//' (2)  FINISH COMMAND.  THE USER MUST ENTER "FINISH" TO EXIT FROM THE'/6X,'PROGRAM.  THIS ENSURES THAT OUTPUT ASSIGNED TO LPT: WILL BE'/6X,'PRINTED.  FAILURE TO USE THE "FINISH" COMMAND MAY RESULT IN'/6X,'LOSING THE ENTIRE OUTPUT FILE.'//' (3)  A ^Z (CONTROL Z) WILL RESULT IN THE SAME ACTION AS THE "FINISH"'/6X,'COMMAND.'///)('-THE ANSWER DEFINES WHERE THE OUTPUT FROM THE PROGRAM IS TO BE PLACED.'/' IT USUALLY CONSISTS OF A DEVICE AND POSSIBLY A FILENAME WITH OR WITH-'/' OUT AN EXTENSION.'//' POSSIBLE DEVICES ARE:'//6X,'DEVICE',3X,'DESCRIPTION'/6X,6('-'),3X,11('-')/6X,'TTY:',5X,'TERMINAL'/6X,'DSK:',5X,'DISK (FILENAME AND EXTENSION MAY BE USED)'/6X,'LPT:',5X,'LINEPRINTER  (MULTIPLE COPIES MAY BE REQUESTED BY USE OF'/29X,'THE "/COPIES" COMMAND)'/6X,'DTA#:',4X,'DECTAPE UNIT (USER''S DECTAPE SHOULD ALREADY BE MOUNTED;'/29X,'FILENAME AND EXTENSION MAY BE USED.)'/6X,'MTA#:',4X,'MAGTAPE UNIT (USER''S MAGTAPE SHOULD ALREADY BE MOUNTED'/29X,'AND POSITIONED)'///' DEFAULTS:'//' (1)  IF NO OUTPUT DEVICE IS SPECIFIED BUT A FILENAME IS GIVEN, THE'/6X,'DEFAULT DEVICE WILL BE DSK:'//' (2)  IF A DEVICE WHICH REQUIRES A FILENAME AND EXTENSION IS SPECIFIED,'/6X,'BUT NO FILENAME IS GIVEN, THE DEFAULT NAME WILL BE OUTPT.DAT'//' (3)  IF NO RESPONSE IS GIVEN, I.E. A CARRIAGE RETURN <CR> IS ENTERED,'/6X,'THE DEFAULT DEVICE IS TTY: ON JOBS RUN FROM TERMINALS; AND'/28X,'LPT: ON BATCH JOBS'//' (4)  IF LPT: IS LISTED AS THE OUTPUT DEVICE, THE NUMBER OF COPIES WILL'/6X,'DEFAULT TO 1.'///' EXAMPLES:    LPT:/2'/14X,'RPT.DAT'/14X,'DTA0:NAME.DAT'///)DTA0 S    INPUT.    DSK  OUTAAE    A.AAAH    N    OUTPTTTY  F    I    L    /    A    DTA9 .DAT [    :    XCDR  `M    P         LPT  DSK  S< \ p @6 p @3 p @W p @* p @1 p @06D1+1 < ,, $2D1+4 < ,, < , < ,
,92F+A+:2F+A0:2F+A,;2F+A ;2F+A <2F+A <3F&+c 92F+K0:2F!+K2:2F%+K ;2F+K+;2F&+K+<2F&+K+<3F&+i.92F+Y.:2F+Y :2F+Y ;2F%+Y ;2F&+Y <2F&+Y <2F&+Y.16b0b+Y+X4k4s"< + & H9.$8&~ $.D++e + D)+e7DY+ < ,.$ DX"Y/&.X X F5 DX X < ,
:X; 5+	, < ,	 < ",
6DW+ $.2 DV"V.2 V DX X 92D&+>X8& $ DX X  F9 < $, $.2 DU"&/2.U U F4 DX X < (,
:X; 4+,7D2+( < ), #_D3ZDX X < -,
:X; 3+%,7D)+4 < .,.$ DS")/&.S S FT DX X < 2,
:X; T+., < 3,	 < 7,
 &2D3+@3D(+8  F3+@"01D+;  D3+@ $A15D= $ D3 $A10D+@ & D3 < 	,$ 33D+Q3D&+F3d!3$+u+Q+u  D(  D) $ D1 6 DS < ,$ < ,$' 71D+O $.D)+K ( DU ) DV (2D&+Y $A15DU  D( $A10D+X  D( " D) $A11D+b < ,$'7D7+b < 8,,"00D+a <z,&x+/ <,"<+u 10D+f <~,"0 10D+h <|,%# <z,&x < ;,+u < >,, < A, < D,
 <{,"0 $.16b0b+s+r4/41 < F,,+n  6 Ap 3 Ap W Ap,~xW`U5xSP62(*RX6(7*Rh6(7p'6p36`U5x6XWYXW]X*cca@9Pa+$9Pb+$*$RPa($9Pa3$9Pa+$9Pc+$5XWc`6XWfzXW`=$T$9XWzI    F    A    (' FORMAT'/)(' FORMAT: (',A1,'-TYPE ONLY)'/)(80A1)(80A1)(' ERROR IN FORMAT, TRY AGAIN.'/)S    (    A    )    {M         O$ky \! p @ y p @ I !p @ x p @ z p @ I p @ J@d K@d z D y &( F { D x2D I+! <!^,&x  J0D+! <!_,,0d+! <!b, <!e,
 <!f, !	_D OZD z  z <!i,
: z;  O+!,  y1D+!-  P2D!+!(  P2D!+!(  Q3D!	+![" I $ . x 
!
 J'.$8&!) $ D y  I0$+!0(. I D {" { $ D z  z  O2D!
+!6: z8&!2 $ D z+![  z  O2D!+!5 $ D J  J. x <!k," { $ F N D z  z <!n,
: z;  N+!=," { $  O3H!: x  O2H!+!F"(.H x.$8&!B $2d x+![ &.F J. J3f I+!N. I/ J (. F {  {1$+!V <!p, !	_D MZD z  z <!s,
: z;  M+!R,+!9  K0D+!X <!^,&x <!t,, $ D K+! !  z Ap,~X y {X y }$ KX I!$ OP {!$ OX I!$ OX y!	`Z(X^. >[.~(3~+!{	~+"Z. \x <x*<x .->#xez+"!"	b+  ""	b+Z. h+ggM?Th
&"		b+!w,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*",**,^,~*x,> <",*<"/  pZ@""@@"#@@"# "c`|+"Pw,~ "p h a`~+"h  ``~+"$"d!"d"d/"+"P,~@@@ @@0@x@@@`edX91,>&z,>Zp @""\`"" <"",,^,~SMI 1,>&z," "f B""+"F_MI 1,>&z," "g B""+"FI5R1,>&z," "i B""*\"Q7ApX""i B""/& pd"~l" B""*\"Q/& pd"~l"$ B""*\"Q/& pd"~l"
VB""*\"QSp*\"Q/&Xp>B"+@@","jB""*\"Q/&>pd"~l"B""RF""<"",+"[<I71,>&z
&"k w @)@. 
"5B"`
&"q,~`.
.4SEQIN^"eSEQOUT^"fRANDOM^"hSEQINOUT"+
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
gG@1,>&z7cp+"| (Bdb+"w.#"+"x.#"TB#p@,~4B"+P"0
##p+"t  ,~>attempt to take SQRT of negative argKc#@ p p+#Kc#K  ,# @,~Kc#J  ,# @,~Kc#I  ,# @,~Kc#H4B#35@#5"#+D"0
#U ,~ D#3!$ @#2 B#25"##`+ #/,#!"B,~+ #(BdB+ #5B#  #3,~ +7`#2+#&`d +D"0#"+D"0
#"U `d @6 #2+# #2`B"`+#/#4id +#)+D"0#"##2,> <#5,#[,^ @`#2@,> <#5,#6,^+##U",##2+ #+#! ,~xKc1,>&z p3"#R+#<3b#Q+#>+D"0
#;U ,~+D"0#=  ,~ D#R F#S@@#S%"j"%#P)/;`:XD#L5f#EaF+#E.&@(|h&f#S #O#P #O #S#ND#Q@ #R #S,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>&z p4@#k @#Z,> <#t,#[,^#Z,~{e^bC2|p1,>&z p5`#_4@#k+P"0#t#p3@#n+#m)r. !@#r! n@#r(|h"#o #o B#s #p#p#q#s#r#q,~+D"0
#l #r,~  ,~ 0_i/X3 6P'M 5( bB W
R `@x#ZATTEMPT TO TAKE LOG OF NEGATIVE ARG!$hX$h@@h*% "$ BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHI4:1,>&zZ.@6kp2j8M+$  !pQ A` $\$}
4L$/,L8$$.
8L F(,~H?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

&$ <$ ,
44$#4$OKbN=1,>&zO@$P p4B$+,$s4@$+9$/9$.KbN=1,>&z@@$P!$Lu 	`@Ap``a`+$Ma`+$O D$&A (`$4/"#B$%@@$& !pX@$",> <$",$V,^7@$O+$:OAp+$N #pQ"A` $1@+$?0`=d$<! H: @$$@@$%a|+$E[pd0@ +$J[pd0@ +$J+$H_w6@$P_w#`1 +$JSpXp @$%
$%+$L@$#+$M+$N
&$P+$N   Ap ,~ ERROR ON OPEN!
HH$TH$UG.t21,>&z@@Ap! A`.!p @$R $S @$T@@$T@@$U & "$R<1D+$a-$l=b$\$R<0D+$jO " $S @$T$R<-$l=b$c7@$TOAp !p<, $T, $U,~<&$e$R1D+$i   Ap+$e1D+$i1$+$f1d+$q0$ 0d-+$f $D$T+$l"%,%0@+% p4B%
`b+%($0d"+%.&$.$ 7F+%  ,~ A$&$(DG$1$((D(D
 	`5@%	 L.&7D!$Lu+%
2"%+% &p,% 	`,~
&% <%,
.p M}ILLEGAL DEVICE NUMBER!
"%,% 'Q&A` %@1x,~180.8X=`%,~.H  a|+%0"0b/ ,~0B1B,~0B/ ,~aJMm1,>&z %F,&@,&Y+%=Z"6Ap." B` " B` $7cp $1B $d%F,%? 6`
,&)+%>6cp0b "b%G$%q ({."XB`&$@.$
a|+%7[pdp0B +%;+%9_w#`1"+%;6cp 0d $QD`,%z+ ,~
&%G,~
&%J,~@b -p\.{Q,A` 
%L4P%E1P+%M/0P8.%B,~``
``
CANNOT INIT DISK!

FILE NOT FOUND!
HH\.~ 
%L+%BYC GaSa3 S;YC&<G<aS<a3&<E$;w|x%S P%N B`1T!"L	b@XB` &_ %n@
+&\!,2,&P@!.~`+&^""1T""QB%l " B`\"
	b@ B`\"a	b!"Z(Brb&a	b
 B%n	b
+"`B`!"2	b`b`b+&$!"2	b!`2B`+&$!$2	d!$Lu+&'+&b	b5&b&c	d!$Lu B%m D%n,~@@%o &c*(%v B%p BX B` D%p DX $	d ` D%o DX "2D`b&dd  "b&d@%o+&e %v BX@@%v &g	b$+&8!"%wX"X*"X!"`
+&K!,2,&P@ X
%p %q +&K JX +&
&&j "b&d5 &J+&25 &J %o+ +&J	h	&(2 
P%N &p.%n &..0P`bp+&Sd
@ %m+Ax`L+&Q %m+& (!*Lu@

,~+& "0T,~ "
&&p,~@Z8%TP$` h]x%p
XHXa`,~!"GB`+&J@%v6$%q.&E.&G.&G
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
KbN@1,>&z,
,~&{Y\&|Q<X\&}*+6&}6`&}
GJ&zGK/K`&z}K&x)?K`&x1B:%r113%r10.%q1%q1T%o1B%t1	%u1g%p1
=%u1`Y%t1[%p1Z3%s1Q|%v1FB%o1@%s(UwS%z
r9W&Y1SS&
e'*+&)&+Z} %N
hf%#
hf`%"rwV`%
:3V%:3V`%1IYv$s1IYv`$s
JI3$VJI3`$R!h$'	W3$,	W3P$"
_9$_9`$^^xj#x)9{`#xK#[
f#TKP#T~Z#6~Z`#6.G#.F#
.E#.V#	WG#~I#aj"raj`"q
("W
8@#x"]lJ"5e,("UDf"[Da"Y
_
G"<
8v:"S)4~P"7(JD/
X));b
X)&S
W`+R~w$nX)&4R
+"xJ+"xdJM
(j=R:CA]R&.fG
EC4L{
j_d+oj_d+do
(Q"wX(Q"wdX^},G.^},Gd.9Kp9Kdp).+-!k--!kD
16/e16/Td)
u(Pxd
o<SNf:N<M.?
pX>,

re|Ca
rek
j+~A
j[VF
y+Nf9Ly%.`
_y2 
A'~v_|'p_<G?R|KW^+~uWD[V1uVQ-(+d)		WKM
}
92&
xrRi
d	+q
alm~
ldNf9Jl^.@
K&6
K.8
K"7
K8
Ym~~)	{TAwB/}F
/|N	@\:_<F

zRu6
(J""
&*
 R	WJ
>
_Bb
_2v	
K^
2b
2(bI|p!w!'A!F!) }U!9!0
a!V'!1
u!;!2w!=!n!B3!C!F3!HG!N[!po!Q!R!s+!X3! ?!tG!?[!So!^![!+!?!S!
_!
s!b	qG{l{	z&Gzy%iy%u[xM0K!%j7 K/ K%[4 J
Zo J
 IzM I(T$!(T$v@!
%s97r5/&W$
aa
	u'H'..;G+.c=3S,w@Q- 	bAk3P-uqbUfGN-3 {bi`[Y2 )~b}noX23U= 
zA"zuO?i3a{	i&!8ziQ?t3+fo0S{3?~!{Fzg~3Sh5{%Ku{ 8?|I+/ 8S ;]?1 #	8g >qS  7 8{ A
_4 K 9 D
s  "9#{	qGY&>Y	Xw04X0?WyWw05VgUw05U9TPHTw06S
F|R9
Ix3(99P48P58P577P66%g|6P65R!b
5P74P740KP83y3qp:2gd2&.\1zv1g?0+
+
F~*zM*{/){h3((j0(-%
aAv||U?
a.'
u*;%uktAVLu%R)O&!	,)&za[zAx' G"[{o!^,A+?S
_"
s"	qGk:jfj-iih;0;h	ggPHfPIfPIePJePJdPKd.cZcP4bP5b%qaP5a`P6`_P6_P7^^A].]P7\0KnP8\N[
[Y{Z/EZY&/Y/JGXkXOMWRWnVVUGg?UT
T
SfSRRCQ??Q*:P
=?lQq=?lQrp(Rlh04[V}ourpWo1W%
&WU?-Eo])&kX?/.
!)u#Go%^?C6
aU]1''Y?W7
uV;+b?k9
&30&uu!?C&G6&[3taguIL
w,;^z?F+O&o9u]K'6tiY
3$,waz{v?Y'+<t}\Y'?<ubKM3!-w{#]gf'S<(AbU%Ka"(G -3x{7^{f,?Bu9ebi0(U[-2z{Kjh,SBuMhb}4Pao,230{j#h,gDuafc)}%Pu9*2G.{sl7l,{PUFQ	+)2[e)Kz-NPiJiaL+'2ohsz{-#R3uP}MQ1D?@3jzs|-7SzU/G>QQj	QS13m|-KTziY[PQ%Tj`?23+/{s-^uz}[u^ofha,Q9[j1pSC3?C%-sb{\QM`>	gF3SW"2b	hU{%]jYT {;8?k/2sc{951jmc+5 <8S~C3m{MHkqE?8 #I8gW3q{a8kzS; 7D8{k 3/!{u4VU
_s KJ9!3CyVioa
st _H9#'$3Wy	qGMP]MP]L&LP^KP^KP_JP_JP`IKI	H}HzwG&GGPHFPIFPIEPJEDPJDQ,C%u[3PK3Q-2PK2Q-1:71aPL`zG`Q._Q._}^ZTP4THESP5SP5R%qR
P6	:P6Q~P7~Q}P7}Q|P8|Q{Q{
zyzQyyQxUJxIjsY{r~rQqQqQpQp/JGfQeQeQdQdQcRY136Pp6Pq5
5Pq409j4Pr3Pr3Ps2Ps2Pt1d1P\0(RM0l\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0mXl+mP@@-[&*<++7+J+
y+@+++++c+e+~+|+G++	|++M+`+\+H+V+h+
u"h[ZB(3b+	b+ h Bh+ h Bh+ h Bh, "h[ .$XD(/$SDZBh X>h,Q>`	b	 Bh
 " Bh# 
!	b@ Bhab+@70xO@h
,h
  ,dX8Q8y! M @`! `X ` @` 
" P` 

"!"RB`,,N \h
S<h*<+p,>Z.,^hha\x.<h Xh 8h*8h,^,^h
,+ !<hXh
!:h*:-|p,>,>,>  ,d,> <!"} Bw NpZh4B<Q"p Bp[h4B>Q"p Bp 
$avX"
$ Bp 
&avX"
'h6ivX"
(`vX"
) Bp,K "h0ipb
*,^,^,^,^+
_B-c@,,-4(+L,A  ,d 6ZNX-4Q+F70@(BQBX,Z 8X,U,~ 6`l6,g+Q7B`Z`,] L`5PX+F70
<7 N`ap+F70
<72
*SLarl8!"AGf`r`p`b+F70<7ar+d"
*1B+F70<7aP+k!$xX$h*Dk6B2N+f,>,I,^[`(B}bh),~ `	n@`nl8`nl0 "8A"1Bl0 P`-4O+F70<7`p +
+@`pX"``pQ"` B`P`l"PX"`+@+F70
<7ap+,@ap +7B`	+eb,
@@`	F"B`	ar+-4G+`rar+
*1B+ar+F7047-4H+F70<7ax+0471J+2 (`	h +@70x 
``LanX
alP
 L`,<X$XDgQ"`p B``p B`ap(+"l8@P* BXB`ap +"Q"A`." B`@@` Xh,~h2hr+/ `&(@   X@`P`7@4J+l x+@R`l"\+@+ l z+@Z`,+l8d8d2!"FB`+1581ax,F`p`l8[`(B}bh)."hl8 Xap7B`,~@@`+
R`l"r+@Zg4B;R`g,
:x,~,>[,>S,7Zx,dX,,><nDZ,d L/"XB7X,=n@,^ L,^,^,~ 
,+J7
- 
-R``
! pA@`R`G`p ."+@7`
+P`B+F70<7+P*
*[,zA( &(F cF`+P &BF`&
.(F`pG(GH`1*l80J1Je8l8+P@4<\"
.""Q<*\f-4i*
/0
/.
01P4LcaLx.,h 00n1J,<,Dk*|]ex+f+il6,Kav,~7 h
+@70p h+e@5Dn,	4Bn 0dD 0+{dd+udd,~dD@ 0dD 05Pz@b@pl6+F70<`v,~,eD +r 
0-4U+s 0 1P+s.
0,<l6@,Dkd6@+j BX,~QBX,~."XBX,~2BX
l6  BX
!"H:dd,	`v+ad+XX
2BX
l6 PBX
,~dv@+@bl6+F70<*,o*,~l6 av1J+7N+`n+QX0:6D0 $9
ed+5dS,
d@ad5dX7BX	Q"ad5dab,
 NX	,~  ,>`b,d,^ZBX	 N .Q.|+Q,
7 4D,>$
1b
12Bl6 ,^d,~."?(B|2BX
l6"BX,~2BX
l6  BX
,~  ,>7BX,d,^ZBX .Q.{+Q BX,~ZLX,~ZLX,~,~ 
1-4U+sh
2,~ 
2-4U+sh
3,~ 
3-4U+sh
4,~!&@BFX[`1By,~0B]R+sGFX,~@!&0BFX3B
4l 3B
5l  3B
5l 04@sG@X,~4LJ *@l6+jl8,~ax +Odv+N*,o*
&
6,@d8+j,	 B86 6@0ede@*nQ@@8,~,>@O(F}bB5FW 
 BF2J*hX5(^6@OX  2B +ZA  ,^4hP/A(+PUdhXy`1K`[ 
S
u	GF\i
B'h(t
1S 5r
:HQ_`|eXY&KnHRY5z] @& W&M$5G>5^}$~$(^-
"'
2>85$'$*>:1
+"-^v4C3^=^A,~1RH	 %PN(V`` ```@xLXRsuLXRpLX_-H{ HK@
qL
V! HWi B$] BW@1h $,~7
;!$A@97
;@$@46`l+Q,A` 20J1J 21JO<R56`x, -4u0@?1@>  
&
<g4@!h0a@0G D  0 0`+1 1`
+#5@ `v+ 4B`d+0`D !$"(D,~ad+%`d`@+0 +$"A .+@,>-4i!$pbDp-4 .0[p(D{5D1Pw*\1-4i &0*\1-4iQ&0 FhZ"85B66Xh%`x@+J70@:x `+
0B0b"+F70@,^&"$$($}G
<.$" Dh)."h6X+P+P&"(B.")Bz+P6B`
,~^`5"C.hL7-4>!"kyY B`
6B`
,~!"H: B`
,~C2G,,-4iaLx.,h7B0-4Q+ 0b+P."h6@+PO@/"hZBh,~Obh,~!"xX"h6@*bR5"PA"/"h+PIG,,-4iaLx.,h6b00b+P."hL5@P@b+O."h@@+P`b+f^f4"c-4>adp(D  
	p5Pg hL.$3fhM7L!,Lu+f 
 	p 	n+ ,~ 
p[A"4Bm."hZ.,d,wel+PaLx.,h 
0+j7``,`x@+ `5@P``>`+p`x@+7``,`x@+>``x+{:` `+P`4@u1@+u1`1 +P ` @h&l8  +P`x +`x +ax@+`p  +	d8@:`R`l \dxX`+@,~+H70,
l8@,~,>Zb`;@+H70,`x@+Q"A`."@@h& B`,>!$=
(1@
=@*D1@+ZD`,^,^,~`x+
,>Z`Z4BQ"`XB` B` "% B`+l8@l8+`x+;,&48%-4p1`1 e8=x`x +s,~@@h*ax ++,|48)m8,+l8 ,~48--4uax@+u,~`x,F  h6iv+2-4D  -4D`x+:! `6@`7`h&+7dx+7-4A+5c@`+9-4D+7d8o `  Z@h&,~ "`58= "` 4=! `axc@,~58uX 48A`x+P`x +D?@h&+_7``,F>`@`+P`x +T,>`x +O`x+
@:`R`l ^dxX`+@+S+H70,Nl8+S! A`@`X`.  @`  C @`
'`,^,~ax +
D.
E Jx *}**Z`Z5B[  ,d " `XBQ"`XB` $%`!*}**/
E,~ax+
E,>,>0@+c  +g/ 4 m0`+m. n ( ax +j7@  ?7 `-4D``D ?4@m( -4D+j,^,^+PLD)%HP) 0@,  	,d " (`-448{d8 ,	Q(X(`*(`!(`X(*(` F`l8 ,~ (`58[`!$X$`*$`-4l8 ,	[  * Q*** d8  "+
 $Q$ *$Q" $Q$` &%  F +Pd8-4udx@,~h8 -4Ah8 +
M&tC@,,-4(,~ 
p-4jaLx.,h 0 @`6B` @,~56lx+"
*0B+F70@-4H+F708d8@-4jaLx.,h7h0 ( H`6B` H/(Z`$(&(@.(Z`52
Fhx5@)0` +)7`Z"6$+)1@ +'d$ D9# B`XH`++,JXH`,<Z` B` /$(`x$$ D` D` $@3D+2/$(`x$$ D`P`d"p."( B` B`ax,~487@d0D,~Z` $@3D+J7082*,~+J708-4Z-4\ `P`l x+@,>R`G
G+@+H58HR`G
H+@,^l z+@Z`Q X @@* @,~l8,^+,>,>-4Z,?`-4\,_` `P`l z+@l8Z`Z`/ 3 ,U  S,>,J,T+e $R`l dX +@d
HR`l `+@,~R`G
I+@+P,>! G@` `,>ZB@ 0D+_,^,^+PK:`,,!8
 6h+gI`,,!8
86h-4i!"pbBp-4 LX Lh&@fh[paB~+n p 
p9rPw*\
I-4i &0*\
I-4iQ&0 
p Fh-4jaLx.,hQ,A` LX "7 BX58. 
J X&"<"y @09
x  4D.@=z]2y`,,!6@+]2I`,,!6A+S8p,,!6+_W!`,,!6+eR`,,!6+oR`,,!6[p(D{5D	[w0D1D}l6-4(,5XN`4<6Fp Fh.<"
*561B+F70@+1B+F70@ `ax,22
*P021Rhb`b+`v+J70@+J70@ F52ax,I`r,;6"`+$"j$
K(
*0H." &&&&"6@."Q"( B``x!"[Bh&av+) 
p7` 
p,ax+eav@+.6 ;*\
K-4i,S+4`480`x,(`d8 Bh&@@h%+:R``ap+7@@`
*0H,Fm8d8l8,~  dx  `
*ax-4O+F70@R`l `X`+@[,zA `Q@`Q@` `58E `4B`x$"ax&" B` B`,~ap(+Khx+F+dZ`4DN58P+J70@R`l"p+@+2-4Zap+F708Z`[
 d
., Z`/, ax+X$,(
L&(.,`ap+`ZD`08P`l$z+@l8+bap+F70@ &-4
J-4\` L`l8d8,~@vd8
`x+
M58m! :!`4Bk. :h&-4AZ`@@h'+u-4uax4@u @h'[(B{1B=t`x4B
P4Bs+J708[m6 Z-4R58
`x+u7j`,*dv2N
Q9_.Nh&6@`6`h&+}/h&l8 
`#h0h( ((/. .2  `Q"0.H`/*  J`."*#`., 5J,*5N}+u 0-4A7j`,*.
`x+u5,u9`x+#5R
Q=_7``,`x@+
Q 
`#h0h( ((0hH (H/. /2 U`."0/* .H` J`., *"74Nu5R,/+#+-4u`x@+
S @0.
5,u=2,/+#+#`@@0S"0X"0.,8*"7+'@@0ev+'.
5,'@@0+%axax@+u6 h)+u+;ax6@`+F RX.h'ZRh'! :-4AX`,~av +5@@`Zh'4@3+J70-4u[ @h':x,~-4u @h'[(B{0B+;A ?r+5:x,~0B+J708l8,~l8  
,d B` B` 2Q2v-4Rd6all,> LH*rA `,
ZBH	+@S>f=,,7Xh
,~!"hX"*"l67Lp+U Th	[p(N{d61.+<O+@70D+N+\+W+X+av+Uav9J`v+{+~ "hQ"*"h
,~m6l6d6-4i!$pbDp-4"Lh"X<p-4iaLx.,h[
p(J}A*av+Sh"0J1J(X.0`vav7
w+h-4j!$pbDw-4aLQ, Lh" 
h"*
0J1J(`v+m6Dp`d~+v  ,>,d
,^mv+
V 
h* $XD/XBh*R`6Dp`d~+`vX<p9\0J1J1+
2N
W+m1Jax++
 
h".lh"4,Pd6av9J Th	 h* 
.lZ6@94,d6[h*,
9Jd6[h*XDh* 
\
1J7
W7
QQ,1J+1J`x+
Q, 
Ql6
h" Jh# h	+PaLx.,hZ
0+PM&q`,,7Xh
,~ h	hl6ax+#`v@+ h!Z"7 ,
`x+
W,&d8 48 Xh%`x d8@, ,=@@h
6Bh) Bh
@@h)@@h*,~ax@ax,~6B`::`,~`x+458,7@`+(@ 4'ax9A7@` RX! Xh'. Hd8-4A+dx+av +1@@` `Z5@,+.4R2-4u=r1,/+,92"
*0B+586,F487, `,
+>2$7Rp+J5|A*\
I-4i 20[pA"p0Bpl2*\
I-4il207,+F 0h!Z@4BF3L+
XZZ5BCZ.7Q.` Nh'[A  Nh(.@h(. $ ,d "4,MZh!XBh!XDLX6.
W LZVh!!, Lh(@l@r@1D+Rd h &&&$WZ`+ Z
ZZ$Z0Z<Z4
*yd@.\cL.]:ukk D@QD , 	mBdmB
	Bd	AlT	A,	A4	Bt	A|	A$	AlL	A$~AT|A||AdsALvA<qA
	A
	A|p	R	o	rQ`/+J70($"."x+Rdj"` 2f9-4	+QQ"X,>100 009
R4Lm-4	,^[/h!Q1L Rh(<l	f9`R,6+Q-4	 2f9+r! GAh!l*`r`-4	7R 2f9+Rm*b:+R-4	Zh(/"?$",6<"	
1D0F	9	 Nx1D9		 xS`f9[X&"pb
ZPRX+Q,68Q.`+Rar`+Pdj+
Z`r?+	0b?Ob:+	0bOb9[x RXFX0BX`r*v	ZX.RX@r+P h(l"@,6[h!(P4B	![1p~+	#,
  @,dQBh! h!7 +	(.
WR5$	(.D"`RD_Z"X,
[h!."@@ BZh!: X9	-ax,s.6 XZRh(&9[`d6@0&+@ev -4R,@?`h(9	- X+	.[h! @ZW0HX+	;>`P+	9/
W T@9	-YWd`.h!+	-,4XVP,4h( T@+	7av+	B-4Rl6 , , Y+	:-4R+J70
 (A6  (Q2  -4 =r	E9	-^Rh%9	-[XA(4H	O"
Z$"pQ2`48	P-4u0F	+	N1@  @=h	L9	-0F	+	S0@+	S`/(-4A=h	P9	-, , >`h(+	U9	-58	Y`xm6l89	-@@h* 0`58	\ 0``x+	a@[
@Z@1J9	aZ
(4J	a9	^7h&$(%/@[`A2?&@f/2 4R	w42	m58	C`x+	Y7``,T>``4@	j=r	f7@  ``=r	C9	-d8`x+
[&&%[@4F
]Z=f	p $ &%Q$`/& &(.$ 4J	u`=j	taxXB@@9	-l6 
h#1*+
^1Jl6e6l6+[R~@,,[
p(L}eLx 
p-4j0l+@70
 60P4
-4(+
a`x+A `ax+
e58
`v +J70D \
`v@,1ap`v+X+,5+


s

r

TH

b@
l
m48,I,6+ap+J70@58
,>`,>`,>`,>`,F,6!6,2,^`,^`"&,
G,^`,^`7j`+ `1*'+
,
4+  [(D{d8
@1D+
9`h`+
+Q(` "$B` H`+
+!&p.hh+
+.
f1*'+
),
4+
2[ (B{1B+
2:` 1`1 +
%mx+
% 1`1 1+
%>`l8 H`+`p,
D,~ 
`Z`.(/Q(`@@`:x,~A(/((/(5h
>Z` &&~.(~,
D+ Z`/&  F`.`Q(	 H`[ (B{0B+J708+@Z`<b.:xXB`ap+<-4Z-4
J>`+l8!  `G@`6 +
NB@ =
L @@``/&R`G
f+@8f
QD +@+P &`x,1`x@+
[-4Z `6 +
Y +
W @@``.& ",
wD"+@=f
[R`G
g+@+
a ",
w,8+ax,2-4p `ab`7 abx+
iax,;`x, +ax+
k>`:`,;,e+#+ap+
oT`l"x+@R`l"\+@;`+
g+
p7
i "ap(+,
waB,
v+ "P`l"t+@,~G2~9',,-4(,~ `ap+
~,0-4G,~6`,>,Z,^ ``v ap +@@`
j02+B12+L,+BB
B@@`
ap +B,>
-4F+B`p-4G,~  ,d 6 L-ZBXRBX 
j BX `XDX	b
+  BX " BX\"
\$+	d@bX `."
?(B|SBX."{(B~XBX ` BX
!6B`	`b+
kQ"X"X
*"X
 BX[`
SBX:X1R7
l 
l&
*1Fm1BH:`xmG$ DX "XQ",>&,
+=YC aSYC ax,~ax+7`x7``+4,J-4Z! G@`G@`+7 "+8g "d8@[``x +=l"p+@d8@@`@@`[`(B}."h X,~edX',,-4(,~`x+@`h)`x ,~R`l"r+@[`(B}-4\Zh%1B`@@h%6B`,
7B`	+Lab,
Z"`+
KbNC@,, 6hQ6xLX4XQ6XX,A*vO6Xh,Fa|x+V[pd0B +Z+W_w5"Z p1B	`0B+Z	b+Y+@70I|G,,-4iaLx.,h7"0,~+
C2|G,,-4iaLx.,h 0,dZBh,~4@
4 
 $h Z4Bl[4F2f9
 Z5Bf,q[2b+e:	f+
	 (XBZ/&SG(.f(+j $h Zh  &h Zh [
.*2B2J+|Z
3D+
mXJZ
 3B+
nXJ[
 [.*SJ,
+q Z5Ht Z5Br,~ZXHS@X(Q('Z
.*@@0@*((2 9/,>.SF,
,^9Zh!4B
R`h!,
+jZx0Bc+@70
xObh:x,~/"Zh 5D
XBh ,~[4F (h [
2*+
 Z 5D
XB ZXD4H +
S ,q[=d[<`,>,d,^Z4F
  $+
XB>,~x\ASCII^
#BINARYSEQIN^
%SEQOUTSEQINOUTRANDOM4`,`,I h+i `	@`	``	<
`6$p.p6 p6
Dk~\a6$XT~4XDv,XT$X$A*U00A
Enter new file specs. End with an $(ALT)
*H
hM `O@`D+,^+
,>,J:`Z` @`,<,^+S,>+N0l8+D58"+!
  
`	`+@70@     0`+@70D<`"
*1B+= 2 Rh&+ul8+t!"axPBh)+ @@0!"axPBh)+'QBh*+r@@h*+."ZBh!+	(8
n2+	 @ ( h&9	r $+	q[,`+@`p`p(+
,~ "8,>,],^aV~+
_+
,2+
9@
`Z`@@,8+$``` BX
+"@ XJ+yXJ+y+
z+
{+=,, $,
o^$,+8,~!`h ,
SD.d(."!`h ,
!`h  ( /$SD.d(.",
,q.$hZ4B7+
1XP+S@` "`,
Q"XX"X@@X*"`g,8!`h,~Zh 5B
.804h!!`hZP4B
++O@g 8,~,
NB0+0,,4F+xX*hS@@hS1&P+(,>* ^p"!$<X$p*$p!@f\$	d+D64d `d+@	d+B6 Dp"
p+F6	d
QDp`p+H6  @,d 0@rQ0@[
&SJ!.4X.*.?`7+J6.,@1,(+ ,
+"S&X&
	f!&LuS(X(	h+L6S*X*	j+N65( 3F^ @ Fp Hp! Jp@@p  x $!&>9`b7 _@j@nX\p 6pXV( 6pZ*4XpXV*+p++,^*,^(7@p +2 p"	d+P6
p+R6@p+T6@@p p+V6 ,^ x,
!<y*</^,^,~-47
&_4a&44T:.4
".6
"
&b	`+!:	z+ X\pX\p.\p	d+ <X\p p" x, < p" p p! p@j@!:	z+Dp4F* $X\pX\p.\p	d+ < p"+* $7O < Dp!+p-4p
&p4p&44Tp.4
".6
"	`	<+Bp<+Fp.W?FRSQGE	QueueegetsegerrorA#INXALZQ@pINXc60j  * 48t  @01B @0-45fq5Dr@f+{-4u=fp4Dy-4u@=jr,~4fv  -4A=ft4D5@x  -4A=jv,~@f)F-4uG=jz)F(H H00B,~0,~ 1J +`= 0@1B 0)F+v+J70ti     Hm648p,>,>,>*:@b@r@l-45jO
,+=+4J=(Rq-4u0 0`+/ G2)R`t7L0[L0at(R{A2(2~+@L=
+9+5G.+$+7=
G.G.=
$+-+91@G21@G20@1@G21@G20@"1@"G2`xh+5B'2d-+'$$.=
2b-9
,$"%$. l$.ed."=
3LeG.0h2=
$(.=
@$
RH$
"XXQ !BXXY &`Xa &	 (`x@+=4*=4*=  (Rq+2J4*=7@h$+J70<-4uax=*;+b7 , x`N+A&9/
^h%aN/
`N"`.
 2c5BF*/2 (`G+b*)/24LQ#0f
 &
7 "`/
46g%&``+O)/2&&&$e.2@5LIl 46m. @d "d`+V).2l `R+`)|rpev+\_({d ~)2d6`N ,^,^,^ @0`v B0,~U 56bU"`R@`+X$$G$G$G6$G$$G$G$G%&  %:l4.%&mt. .eb9M+Ml"."@eb9T+T6$,>,>,>,>,>,> 0@ h#0F56v70 d:@5 y m:4@ [(N{d ~)^0?A$0M({#12
+6 7%"0
46&,,+| )R`t7LG[LGat(R{A2,~4P.",..O@%D& %D:l2.%D&mr. .eb. ``,~)=4P./.O? "3 D&=)'D&,~,460r8+1R82 D&9,(?@+ 0r8+0R893 D&+3@D&2"D:.0,)?@ x*:(9^
h%5J$`v.*Z,[
,av+'2F'2fl6 av+)4l+9+`v++..0p	 0	av10+/ 0ar?/0 ,>'72 2.L466. e`:x% ,> =r4+=.Leb. e`:x*%",>% l .e`:x=r9 28 84T@/2.&`v`v+C6 1(+(@
/* `v+H.
`v+*4lL/*0+L4LL5l+#
2(+K.
/
"
/*`v7`5*W5jW`z+Q`v7`8JY4JYavev+T.*+L ,^ar?l2+J70
1j+Zav@-4~=
Wl:av+m5P\l:/4la-4,>-4=P_l:=L^,^=
b-44jb-4-4}5,e.-48,d4hg-4=Pgl:=he  "`v  "-4A5&jl:-4 * #+4lw6`-4~-4-4=ppl:=lo-4}4Ht-4=psl:=hq av+ *-4~=jv+.-46`-4-4}5(|,-"`@4Lq-49
|  +A  +A  +A  +dz+  dz  +A  `z+A H. 9A && ,>4@
92&+
-4=

,^. -4A=F
,^,^,^,^,^,^,~xP	`CLf3@(zpQ@
$n@46q@@C@@@@@@@@@YLf3ua#kCKc)}zzcD3l#FhxwP-=Yjy/sq
KA>Amy_lvJ/~
A
^3@	8'@47@l@fK@@'
,+|l64LC  
~+s/(+L/(75(L.
+L28&:@j48F-45f3O,+C+34FC-4u1`1 +:l$`d=2A $*+29.
=2l$=2`x+B1@  0@+>5&65$24$@1@m$1@=22F4&C+J70<6ax@5&6d*`d"` J04&,~7@ &7h0"`+ V&(G*,>6@9I:/7 08hP4hP (Q`/+J70
V9hSav@-4A8hQA70-4A,^-4A=dT,~U(&(.*+J(:48i@@0-45h^O,++^4Hh-4u0@1@=]1@#+b0@*+gO@0<Hh-4u5hb0 00`=+e+b0  0`-++b+J70<b,~7` (=hk4Hl  -4A=hk  #7 0  *-4A,~ $&:48@h-45fuO,++u4F-4u1`1 +yl$A (H.=t`x+1@  0@+}5&w5$t4$1@m$1@=t2F4&+J70<xax@5&w`d"` H04&,~!*@c5F &/4f	  -4A=f5&5@9	4$
`v@@,~,,~0@h*,~@7@h*+u*h*+P0@1@+0@:x,~`x,~-4u+/PC;dSv$r.t:.zQH9RY%{$Wg\-MaT8%a	#L`%+}?x/6|ov:".z*yG8F5Wy&W!F{h)xZb46q:c b&t^(zpQu3Lf3 (2>@'0j=@&h/WB;M2@% /H.H;::J(@$0N9(-<bR8kzIF#C<M|,4+a;7A6Yi"Xr+/^$
z!/l4m46GBa2JzOoNl!#kBGLf3
,@hbD	
$dy$*%a>1FIZ8g9t> ("E#I
(L&irDR*
b^Y-KJx`0`@!6@@@h%58M,-4R`v+Md6[,b48QZ,bdv "n,+M!6@X60@58  -4A  -4A X,,.66BX3BR+
,Z
X.D*E4N`[X"`0J1J(Q,.68[,b,9XB-$:B.DB-$:BH<CB-L>BH<CBH<CBH<CB.D>BH<CBH<CBH<CB/\BH<CBH<CBH<C,~,.,*lj,~,~l6,d6,*ll,~,~  *6 0  #-4A,*lp,~,l6,d6,.
E*lt,~,  -4A,  -4A.
E,  -4A,*lx,~g.$ 03@0*l4D.$,  +&$QFx4D,[x. + $+.$03@02B0+.
E*l4D9  -4A,~, X,  +@)@. -4A5B,~  -4A#h&0bax@0b:,   -4A,~-4u-4u@@h%0@1@+`x@,~, +,z2BX+`B-4u,| 2X7@H+C.2.F3BO+%4N!.28+!@l4N41@+*1@+3`x, -4u+&"`!`X.H,.$8. `0@*n,*F0J1J( 
H/00Z
O.,@+7R
H"`*F0J1J(
X
O,!d6Z,b,&`+,d6,
E*l>,~-4u,K,. 0,M 0*L<nD @0+I,M*lD,~1@+Q-4u@@01@*O@0-4u,~-4u-4u@@01@*O@0-4u0@`x,~0@1@,~+S`v@aV,~ @0`v B0:x,~-4u,
E+c0@+d-4u,.
E,\,~,. 0,
E,@+k  7X@ Nh%7*L<n\0.
E+k-4u!"A`X"0G@0,>G56s@0@x*ls-4u0@`x+H@>`x+s,^x*ln-4p0@m6-4u,~`x,-4u0@1@+B00`-+zg-4u0K0`-++00`+h0aD0G$A$(BG5",~(B5",~-4u`x,Wav@+0av@+0`,>1@,n,^XL+Nh%+P<nP462*L4 @0+0*L4*L40+0+P`v@+;0@1@+9,>,+l ~,/-+O#X~#X!8pA+G.7 h8/(+++	+++++ +d8~l8+ +d8pl8+8x..8dl8+ + `h8Zax~+	R+d8~l8*x+@x+ Xx:+,> `h8Z`x~+`XXXx`x+!8?@A++d,^*x,~+D7P6$`1X-+
d1X$+	+.+h`0s ~ x,>_({jbm8~d8~3" g(
,^+d@6%+ 1X-+n1X,+qd1X$+|/(+9~.ggkV|CC`_Bt"I4BI$rcV,[N<YY&ngJ,[k:4k:4k:4kMkM
kM,7. Jx *}**,>Z. |[[A"p(B|A(w((}.,>D(((QHx[(H}A( "DP$/,>Z$/+Z|5FG,h &M
& F|,^x,^!*}**/,~,^+E,^+G x %Q$  aBl$@)@1@+4@Ro   5BT9$N
"5BO5$O,~@)@. 
"5BV,~Q@x[`,[
&[x7 $5 ^
&"`& QBx6@,^[x. 0`. 
",~. & t,>& ,>4@j& ,>4@h,\
&,^,\
&,^,\
&,^& & G 
"  +\`x+
&^`,\
& `,V
&7B`
+,VR`
4Bw
&,V7F`	+~
& af ,Y`f+~7B+~
&,V9{
&"4B
& a@`
&a@|
&,[
&
&,L0b
&",L0
~
&,L0f
&",L0
v
&,~
&,~
6+ 
&"R,V
&,~,
,L0#,~Z
0j+ 
,`j,
aj@+,L0,~H%H'H*JH-
6+ 
&1@	`/h
,c
&4	`	/h ,c	`Z
"`5J$Z
`
 
,0,
aj@+',L0+(,`j+o,~(7(<Z(?@B((5(4(((D(F(H(J <(M(O((R(((T(U((W(Y(Z(](_(a(d(h(i(j(l(o ``b ,L0r`b,L0t,~,L0V
&5PH7H|+Q,L0
&u "v7@} "w
&*,o*,~,L0Da
& | (x1H,\1H,[1H,L01H,V
&y,~,L0{46S7 ` 
&}
"
&},~O{S hY$|@Yq`|DBcgwdo@W|tBZ+T1Bp,L0]
&~ ,\
&~,~'v)a0L|TH}.&@+" :h$? h#,~Z{Z
=*f +[
A*@0(J}dJG* 
,j,
,L0
&  ',[
&,~4k4k? h#+K,
 {
&(,h+KZ
0j+1J+~ 
,`j,
+%@j`x * 
,	,L07@`+oax
&	`x
& `,\+o[h4Bt-4uax@++M@
@vhhhphhH H#h&p8p=H)-0,L0,S,o h' $
"3FQ$2Fh(9
&`d[  <$
"=$
&4,~'v)a0P
ABd.s!Pg 4R] ":  -4A=bA,~,L06,S,oav@@,0 ``x+%Z`.( h&1b1(+%Z`0h+%1Haf`+%3f` &afl&`@b
"2F`++,>"`/$O5B-1@O9'0@9D',^0@
&,+J h! [A"$"Q$A`
"=b3
&,~'v)a0P
ABd.@h,L09+'v)a0
b-&Bd.v
RtP,L0?,
+07tg.nI +s_H^p	:
hZ5HGR`l"d+@(`E0b+SZ(w `h"ib0H7
$V *50H+Nab  ,8Zh4BO Bh),~[h5BM,>dx,A,^,
,L0,o+J `1B
ad,~ *7+O89:;@ {
&(
&+K,
&A },\
&D *{,+@70/*,7E ,V
&E },\
&G |,V
&H ~,\
&,~iJ
9',, *xZh
,,~
&I ,V
&N  ,[
&OaF
&O
&P,>/*,+s*x,u,^+k,^Z(7E ,V
&Q   / ,[
&Q  ',[
&R 'P'_#`,\
&R5("S&" $$( 
"*h}
&S,~ULIUFUOSDUUUCUUK1*h,,~Z(,
 '[1Bax71Bap7=
['0B`=
[1BXX+1h0,~3h+7B&,~1(,~1(:x,~0
? Job aborted
h$+O,-:.
Unit= []6$`<0>/=4`,`
ENCODE/DECODE ERROR

%FRSWw)I8Ry.R,Az.s2Hy$`~<g!-Y$|@#ji.Pxkw 	8
(>)
yrw U(:arPL|OR0WyKIsd  A1TYh)5y
oHP(@.@
END OF EXECUTION
CPU TIME: 	ELAPSED TIME: L\z[7wH(Kp\#myx?B\ qF,sWl
R]!$
%H'vB9 }_^! tBcgdX(`}P.@KrF|DB\=Tg.H{ |F,sSw^!;-I
Y@|8LITWh8'v)a0BeN0>3rBlHe'v)a0ZysdF(tX(0}z\ ;w@"2: yO(Qh<yk%H*hEHtX(0*.^"&$RKr\%dX(R@28&:&pHu@>|@|IrlHegh6;wA# 2#;wAo4d5>@@.R
 _y! 1qV2Iy;wh.>SP/9&
p2@Cpe"!0XccD^p9L@v`9z4E\,1qC"/8p\OP	k2LR
.\	8pLEGeHp\OP
a4dE8J 9w+0SLEGeHLb{OP+DOrChDg 6
2Lb{ENBH<
,
d;w@EB@{@yj> ?.RAy2Iy@@'iHQh|Y@5,0Cy!#Q\A%Jd(=	is not uniquedefined6
Dk	is an invalid argument'w,	
b-&Bd [  ] ()
	PC='w()eHl,F1{@'w()eH2$P(k'v)a0C@~Iv
	or unwritten or destroyed record number:  :  t
`NV@,R> $($%c@.,A#>"&'w!->Z!-1hr #>":'w!->Z!-1hiQk @@nXY&Kn3r4z(+0P
rxEewA1KPV@[pdH"0PN>@(>W.wi,&:xL<5@HY
	|"L|Ede~"B &0c|0\OPdD=PeN0>LXj+T$yI0PW
P>K
pXOH2#|0\OPsJu	@eN0?#`?.vAyI0P21n?1BN%`KAK$(oH@q`|FJ z(+0P
E@*ur&J
p1RHbh
2gHQ_^
;w\.	NB] 
IyI0Pwf@`(_y! B'h(t@rlHeY$|@CpdMY$|@v`Qw@`2PUz8
RH)> 
K:%(tV"@5,0wfdX(Subscript range error on line  of [Mc@
		Subscript  of array  = 
Name	(Loc)	 <<---	Caller	(Loc)	<#Args>	[Arg Types]
	()	 <<---	 +()	<#>	[. ]