Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/reco/reco.exe
There are 2 other files named reco.exe in the archive. Click here to see a list.
?p000@
0?hX+D?x " 
 
<++M2	`D~d BY	Fx+DL72	Fp@-RIN.DAT   (18X,'WESTERN MICHIGAN UNIVERSITY'/24X,'COMPUTER CENTER'/25X,'REGRESSION AND'/16X'PARTIAL CORRELATION COEFFICIENTS'///)(' TYPE 1, IF YOU WISH TO ENTER RAW DATA'/' TYPE 2, IF YOU WISH TO ENTER THE CORRELATION MATRIX.'/)(I)(' HOW MANY VARIABLES ARE THERE?'/)(' ENTER THE RAW DATA (AT MOST 10 PER LINE)'/)(' ENTER THE RAW DATA.'/)(' THE RAW DATA IS BEING READ.'/)(' ERROR WHILE INPUTTING DATA.'/)(' RETYPE THE LAST LINE.'/)(' THE ERROR IS ON RECORD'1X,I4)(' THE CORRELATION MATRIX CANNOT BE COMPUTED FROM THE DATA GIVEN.')(' ENTER THE CORRELATION MATRIX (AT MOST 10 ENTRIES PER LINE)'/)(' ENTER THE CORRELATION MATRIX.'/)(' THE CORRELATION MATRIX IS BEING READ IN.'/)(' END OF FILE READING CARD'1X,I4)(' A CORRELATION MATRIX REQUIRES A VALUE OF 1 ON THE DIAGONAL')(' MATRIX IS NOT SYMETRIC.')(' ALL CORRELATIONS MUST BE LESS THAN OR = 1')(' ENTER ONE OF THE FOLLOWING CODES:'//4X,'ID    - TO ENTER IDENTIFICATION'/4X,'DEL   - TO DELETE A VARIABLE'/4X,'INC   - TO INCLUDE A VARIABLE'/4X,'ALL   - TO INCLUDE ALL VARIABLES'/4X,'BEGIN - RESTART PROGRAM'/4X,'COR   - FOR CORRELATIONS'/4X,'SREG  - FOR SIMPLE REGRESSION ANALYSIS'/4X,'MREG  - FOR MULTIPLE REGRESSION AND MULTIPLE CORRELATION'/12X,'COEFFICIENTS'/4X,'PCOR  - FOR PARTIAL CORRELATION COEFFICIENTS'/4X,'PART  - FOR PARTIAL CORRELATIONS[USER SPECIFIES FIXED VARIABLES]'/)(/' *',$)(A5)(1X,A5)(' TYPE ID,DEL,INC,ALL,BEGIN,COR,SREG,MREG,PCOR, OR PART.')(' HUH?')(' ENTER VARIABLES TO BE HELD FIXED'/)(5I)(' TOO MANY ARE FIXED'/)(16X,'PARTIAL CORRELATIONS'/)('1',55X,'PARTIAL CORRELATIONS'/)(' FIXED VARIABLES ARE:',5I3)(' TYPE IN ONE LINE OF IDENTIFICATION.'/)(16A5)(1X,16A5)(21X,'CORRELATION MATRIX'/)(A1,55X,'CORRELATION MATRIX'/)(1X,16A5)(/)(/1X,I2,1X,13F9.5)(//)(' SIMPLE REGRESSION ANALYSIS CAN ONLY BE COMPUTED FROM RAW DATA.')(17X,'SIMPLE REGRESSION ANALYSIS'/)(A1,51X,'SIMPLE REGRESSION ANALYSIS'/)(/' NUMBER OF OBSERVATIONS = 'I4/)(' INDEPENDENT'4X,'DEPENDENT'5X,'REGRESSION'6X,'INTERCEPT'4X,'STD. ERR.'/'  VARIABLE'6X,'VARIABLE'6X,'COEFFICIENT'/)(8X,'INDEPENDENT'14X,'DEPENDENT'14X,'REGRESSION'14X,'INTERCEPT'14X,'STANDARD ERROR'/9X,'VARIABLE'16X,'VARIABLE'15X'COEFFICIENT'/)(5X,I2,12X,I2,8X,F9.4,7X,F9.4,3X,F9.4)(12X,I2,22X,I2,17X,F9.4,15X,F9.4,16X,F9.4)(' HOW MANY VARIABLES ARE YOU GOING TO DELETE?'/)(' TOO MANY VARIABLES DELETED.')(' TYPE IN NUMBERS TO INDICATE WHICH VARIABLES ARE TO BE DELETED'/' (MAX 20 PER LINE)'/)(' HOW MANY VARIABLES ARE TO BE INCLUDED?'/)(' THAT IS MORE VARIABLES THAN WERE READ IN.')(' NOT ENOUGH VARIABLES INCLUDED.')(' TYPE IN NUMBERS TO INDICATE WHICH VARIABLES ARE TO BE INCLUDED'/' (MAX 20 PER LINE)'/)(' INCLUDE AT LEAST 3 VARIABLES FOR THIS ANALYSIS.')(19X,'MULTIPLE REGRESSION COEFFICIENTS'/)(A1,48X,'MULTIPLE REGRESSION COEFFICIENTS'/)(' VAR ',I4,12I9)(' DEP. COEFF. OF',10X,'INDEPENDENT VARIABLE'/' VAR  MULT. REG.',I3,11I9)(/1X,I2,F9.5,3X,F7.3,11(2X,F7.3)/)(12X,'PARTIAL CORRELATION COEFFICIENTS OF ORDER 'I2/)(A1,43X,'PARTIAL CORRELATION COEFFICIENTS OF ORDER 'I2/)(10F8.5) 0ID   (10F)ALL  PART DEL  TTY  BEGININC  COR  |pMREG 0 SREG `XPCOR      0uWG/1    PCOR ASCIISEQOUT    + -<="$ D0Od0 $ D1 $ D1 +? Dk <1Y,>= <1Z, <1^,,@dH <1X,8c <1W,8c <1T,< $2D(t++S +5 F(Q.dH +? Dk <1a,, <1d, <1g,
 <1R,4A <1h,, <1k, <1n,
 <1P,4A"& $ F(G D(t@f, +; &$&.(t@hN*d+a:(t; (G++`@d(I J1D+,E 22D+8++n (t0D++k <1p,,1D++p <1s,,++p <1v,,:(I <1y,"I $ F(F D(t (t <1|,
:(t; (F++s,+, <1},, 23D+8++| <2, <2,
"30D++ <14,B4 <2,,++p"30D+, <14,B4++O"I $ Fc D(t"I $ ($.(t 
(t 
(5
5J N.$8&, (t 5F,:(t; c+,++p>(Id DF"I $ F D(t"I $ F} Dz 
,
$$.z NF 
(t (, &$(t.(t NF Fg5f," <2,,"30D+," <14,B4++O z$$.(t z (t"
 ,
,
F
N J
0$&.(t 
z" ,(, 
N
F
 <1O,>
LJ:z; }+,:(t; +, I1d+,5 <2, <2
+- +<_D|ZD(t +< &$&.(t ($(.(t  
0 H
> &$&.(t ($(.(t  N H\*d,7:(t; |+,7 <2, <2, <2,
+- 22D+8+,L (t0D+,I <2,,0D+,N <2,,+,N <2",,"I $ F(r D(t:(I <2%,"I $ F(q Dz $$z.(t <2(,
:z; (q+,S,+,g <2),, 23D+8+,] <2,, <2/,
"30D+,` <14,B4 <21,,+,P <24, <27,
"30D+,f <14,B4++O:(t; (r+,P"I $ F(q D(t$$.(t!&2FJ+,y"(t $ Dz z$$.(t#J2d+2+, $$(t.z z$(.(t  J2HJ+,|:z8&,n:(t; (q+,j+- <28,, <1N,?X+,E <2;,, <1M,?X+,E <2>,,"30D+- <14,B4+,E <2A,,"I $ F(O D(t DK"I $ ($.(t 
 J J f.$8&-:(t; (O+- I Dx@db <2D,, <2G, <2J,
 ~3D+7+-$3D+4+.H3D+:+.Y3D+=+/3D+8+/f3D+:+03D+6+-2D+;3D+>+03D+9++O:G0f+-" <2L,,"30H+- <14,B4+- <2O,,+-"I $ F(K D(t D5"(t $ ($.(t 
 J J 
0.$8&-(:(t; (K+-& <2R,, <2U, +>_D(|ZD(t (t <2X,
:(t; (|+-1, +=ZD(t (t7F(L+-9*d-5 $ D(v+-:"$.(t D(v"$.I2$(v+-? <2Y,, <1L,?X+-- 22D+8+-C <2\,,+-D <2_,, <2b,"(v $ F({ D(t (t <2e,
:(t; ({+-G,"(v $ F(z D(t"I $ Dz z (t  (L2H5+-S (t z H(L+-T:z8&-N:(t; (z+-M"& $ F(x D(t"(t $ (t 
 (L3j(L+-] 
 (L J+ 
(L L (L J(L.$8&-X:(t; (x+-W I Dy"(v $ Ff DK (L Fl"y $ Fe D(t"y $ (t2(+-l *$
.
(t$(. 
 
0 L(N+-n ($.(t 
 
0 J N.$8&-f:(t; e+-e@dc>y"y $ FJ D(t:c3Fl:c c 5 F5@f,"(t $:,3Hl:
, ($l 
c.
 
,.
 .$.(t 0N"2 (N"0 P+2 <1K,>"(N0N ,$2.cHN P8
0.$8&-x:(t; J+-t:K; f+-b"y $ FH D(t"y $ (t2(+. *$
.
(t$(. 
 
0 L(N+. ($.(t 
 
0 J N.$8&.:(t; H+."y $ <2g,"
y ( Jm Hz ($z. <2j,
:z; m+.,.$8&. <2k,, $ DK $ D} 23D+8+.) $.d} }3dy+., y D} <2n,"&.K/} K Fl D(t (t <2q,
:(t; l+.0,"y/&.K K D(s3d}+.8 } H(s <2s, <2v,
"*.
K/
(s K Jj Hz ($z. <2w,
:z; j+.=,.$8&.5 }2$y+- <2y,,.$ DK $.D}+.' <2|,,!$ D(s <2, +9_DjZD(t (t <3,
:(t; j+.M,"30D+.X <3,"I $ Fi D(t (t <3,
:(t; i+.U,+-"I $ DK.$8&.Z 22D+8+._ <3,,+.b <3, <3,
 +@ Dk!$2D(s+.i <3, +9_DhZD(t (t <3,
:(t; h+.f,@d(s <3,, $ DK $ D} 23D+8+.p $.d} }3dI+.r I D} <3,"&.K/} K Fa D(t (t <3,
:(t; a+.v,"I/&.K K D(s3d}+.~ } H(s <3, <3,
"*.
K/
(s K J| Hz ($z. <3 ,
:z; |+/,.$8&.| }2$I+- <3!,,.$ DK $.D}+.m J1D+/ <3$,,"30D+/ <14,B4+- 22D+8+/ <3',,+/ <3*, <3-,
 +@ Dk!$2D(s+/" <3/, +9_D{ZD(t (t <32,
:(t; {+/,@d(s <33, <36,
 22D+8+/( <38,,+/* <3;,, <3>, I1d+// <3@, <3B,
+/= <3F, <3H,
 +<_DzZD(t +< &$&.(t ($(.(t  
> H
0 &$&.(t ($(.(t  \ HN*d/3:(t; z+/2"x $ Fx D(t K Fc"x $ K H,"
,.
c4J/c5j/J ($,.c  
0 H{ ($,.c  J He+/O ($c.,  
0 H{ ($c.,  J He ($c.c 
{
 
0 Jh c"
h
 ,
F , 8,F Pn$..,$(.c!0{F 
0"
8
0
e
8
0
 Lm 22H+8+/a <3L, <3O,
+/c <3S, <3V,
.$8&/A:(t; x+/?+- <3Y,, <3\, <3_,
 <1I,4A"$.I2dx+/q <3a,,"30D+/f <14,B4+/f <3d,, <1G,4n@dc"I $ F(P D(t"x $ Dz z K3D(t+/|:z8&/w:cf(t F5:(t; (P+/v I/dx"x $H5 HK.$8&/ <1D,5E@db+- <3g,, <3j, <3m,
 <1B,4A x3dI+0 <3n,,"30D+0 <14,B4+0 x0$+0 <3q,,"30D+0 <14,B4+0 <3t,, <1@,4n <1=,5E@db+- x0d+0 <3w,,+-6db+0 <17,>B:b ~3D+>+0_ 22D+8+0# <3z,,+0& <3}, <4,
 +@ Dk!$2D(s+0. <4, +9_D(JZD(t (t <4,
:(t; (J+0*,@d(s <4,, $ DK $ D}"30D+04 $.d} }3dx+07 x D} <4	,"&.K/} K F(J D(t (t <4
,
:(t; (J+0;,"x $ F(I D(t"&.K/} K ($(t.(t *$
.
(t"
(f
 f J5 (t2H+0I +? H5.$8&0B $$(t.(t!&}f& F+2 <16,> @n <4, (t <4,
"&.K/} K F(H Dz z <4,
:z; (H+0U,:(t; (I+0@ }3Dx+- <4,,.$ DK $.D}+02"$.x Dy 22D+8+0e <4, <4,
+0h <4, <4,
 +@ Dk!$2D(s+0o <4!, +9_D(zZD(t (t <4$,
:(t; (z+0l,@d(s <4%,, $ DK $ D} 23D+8+0v $.d} }3dx+0x x D} <4(,"&.K/} K F(y D(t (t <4+,
:(t; (y+0|,"x/&.K K F(x D(t D(s3d}+1 } F(s"&.K/(s K ($ 
.
 ,$
(t.
(t 
0f
(f L+2 <15,> 
(t.
"
(f
 J5 (t2H+1!* J5 *$
.
(t 
5 L(N$(. 
5 J N.$8&1 <4-, (t <40,
"&.K/(s K F(v Dz z <41,
:z; (v+1,:(t; (x+1 }2$x+1( <43,,.$ DK $.D}+0s"x $ <46,"
x ( J(u Hz ($z. <49,
:z; (u+1,,.$8&1)+- <14,B4 <14,
x+2x+20x+2N5+7+3+3w(FXdLIxhLIxhx+4+7XdLIxhLIxhx+4+7x+2x+6x+6x+6xghI+5+7hJ+4+5P00(Q(t+<+5x+3x+4x3P
^+@^+A^+BX0(|
X0)
X0)$JX0)X0)$IX0)X0)X0)X1,+w(Q (5X0)!X0)($(IX0)%X0)+`
h
@	b
I@	bg`
h
@2
C@2aX0)2X0)9X0)<X1,b,X(Q(JX0)!X0)($(IX0)%X0)A$(IX0)EX0)KX0)NX0)S1X0*X0*(~X0*X0*
+1( NX1*,X1+$5X1*,$5( 
0X1*.X0*X0*#$nX0*$$nX0*%X1*($kX1*+$nX1*,X1+$KX1*,$K( JX1*.X0*/X0*6X1*9$kX1*+$nX1*=$(IX0*A
X1*M
h
@	b
I@	bgh
@2
C@2aX0*Z$c$,(h(n(mX1*^$c$,(h(n(mX0*bX0)$xX0*gX0*k	X0*tX0)$xX0*xX0*}X0+	X0+
X0+X1+$kX1*+$nX1*,X1+$KX1+"$K(n(5X1*.X0+%$yX1++$k$yX1*+$nX1*,X1+$KX1*,$K(5X1*.X
+1( N(' INVALID ENTRY, TRY AGAIN.'/)(I)G",:` \4@ p @4; p @4: p @4; 4;2$4:2d4;+4G+4M"30D+4I <4P,B4 <4Q,, <4T, <4W,
+4D 4@ 4; Ap,~X04<X04?$4;(20I)(1X,20I3)(' VARIABLE NUMBER OUTSIDE ALLOWABLE RANGE.')(' RETYPE THE 'I3,' VARIABLE NUMBERS.'/)(' VARIABLE NUMBER WAS DUPLICATED.')eDXu \4m !p @4Y p @4X p @4Y <5,,"4Y $ F4] D4^ 4^.4Y <5/,
:4^; 4]+4u,"4Y $ F4\ D4^.4Y7`+4 4^.4Y 3d4X+5 <51,,"30D+5 <5+,B4 <54, <57,
+4r:4^; 4\+4{ $3D4Y+5* &/4Y $ F4\ D4^.$ D4]"&/4Y.4] 4] F4[ D4Z.4Y 4^.4Y 2F+5 <58,,"30D+5 <5+,B4 <5;, <5>,
+4r:4Z; 4[+5:4^; 4\+5 &/4Y $ F4[ D4^ &/4Y $ .4Y 
'3j +5' .4Y ' H4^ 
.
4Y 
( L/ 
.
4Y H(.$8&5:4^; 4[+5 4m,~X04_$X04`X04e$4YX04iX04e$4Y[?0 !p @5B !p @5A !p @5@ p @5@"5@ $ F5C D5C"5@ $ ($.5C.5A 
5C.
5@ 
.
5@ 
7$,.
/.
5B 
7f J'f.$8&5L:5C; 5C+5K,~]    [    (' 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    INPUTB    .    DSK  OUTAAE    A.AAAH    K    N    OUTPTT    C    TTY  F    I    L    O    /    A    0U    DTA9 .DAT [    :    XCDR  `M    P         LPT  DSK  DSK  TTYDAT.TMPS> \8K p @5b6D5j+8f 1 D6
 6
 D1 5bA$5D8j 2 D5d 5bA$0D+8m 2 D5d $.5b6b0b+8r+8o48r48u48s48v <;,, 1 D5g+8w <;,, 1 D5g <;, <;,
 5k2D8U+9 5k2D8V+9 5l2D8S+9 5l2D8V+9 5m2D8L+9 5m2D8R+9 5n3D8^+:I 5k2D8L+9 5k2D8X+9 5l2D8]+9 5l2D8Q+9 5m2D8^+9 5m2D8^+9 5n3D8^+:O 5k2D8T+9 5k2D8W+9 5l2D8S+9 5l2D8T+9 5m2D8V+9 5m2D8S+9 5n3D8Y+:z 5k2D8R+9' 5k2D8Q+9' 5l2D8V+9' 5l2D8]+9' 5m2D8^+9' 5m2D8^+9' 5n2D8^+9' $.5b6b0b+9'+9&4:n4:x@d6 <;,=? $2D5b+9. $A5b0D+9. <;,@_@d5b@d3 D5c D5c D6
 D5[ D5\ D6 8^ F5Y F5Z F5d D5\ D6
:5\0d+9R 5j2F8N+98 & F6
 5j3F8[+9= 5j3F8Z+9G 5j3F8W+9P+94 $.5\ D5c"&.5\ $ 5h H5j/$8&9@ 8\ 5\.& 8^ H5j*d9C $.D5\+94 $.5\ D6
"&.5\ $ 5f H5j/$8&9J"& 5\ 8^ H5j.$8&9M $.D5\+94 5\ D5[+947D6
+9] <;!,.$ D6
"6
/&.6
 6
 F5f D6 6 <;%,
:6; 5f+9X, <;&,	 <;*,
6D6
+9g $.5c D6	"6	.5c 6	 D6 6 5j2D8^+9f>68&9b $ D6 6 8N F5k <;,, $.5c D6"&/5c.6 6 F5e D6 6 <;/,
:6; 5e+9m,7D5c+9w <;1, 8[_D5dZD6 6 <;4,
:6; 5d+9t,7D5[+: <;6,.$ D6"5[/&.6 6 F6 D6 6 <;9,
:6; 6+9}, <;;,	 <;>,
 8^2D5d+:3D5Y+: 8O F5d+:"31D+:
 8U D5d+: $A5b5D:
,8\ D5d1$A5b0D+:+8^ D5d <;,>+ 5d3D8O+:#3D8^+:3d8Y3$8L+:+:#,5d2D8U+:^ $A5b4D:S+:^ 8P D5Y 8Q D5Z $ D5b 5g D6 <;,>+ <;
:5[; 6+:&,"& $ D6 6 5j2D8^+:.>68&:+ 6 5i2F8N+:4 5j2F8S+:4 5j2F8R+:4 $ D3 5Y2D8^+:< $A5b5D:8 8M D5Y $A5b0D+:; 8S D5Y 8Z D5Z $A5b1D+:E <;
,?c7D5h+:EA<;E,,"30D+:D0<:{,B4+8m@d62 <:{,B4 $3D6+:lA5b5D:^ <;H,+:^ $2d5X+:^3D6 D5j+:z <;J, 5X D5g+:^ <;M,, <;P, <;S,
<:|,=?$.5b6b0b+:x+:u48r48u48r48u<;U,,+:r8K,~x0P5X6Xx5gX06X06X0:I6@5kP65]$5jP65]$5\$6P65Y$5jP65d$5jP65]$5jP65]$5XP65Y$5jX06`5g`5XX06zX07=$6$5jX07QzI    F    A    (' FORMAT'/)(' FORMAT: (',A1,'-TYPE ONLY)'/)(80A1)(80A1)(' ERROR IN FORMAT, TRY AGAIN.'/)S    (    A    )    {M         O$ky \< p @< p @;X !p @< p @<	 p @;X p @;Y@d;Z@d<	 D< &( F<
 D<2D;X+<% <<m,B4 ;Y0D+<( <<n,,0d+<+ <<q, <<t,
 <<u, <_D;^ZD<	 <	 <<x,
:<	; ;^+<., <1D+<< ;_2D<+<7 ;_2D<+<7 ;`3D<+<j";X $ .< 
< J'.$8&<8 $ D< ;X0$+<?(.;X D<
"<
 $ D<	 <	 ;^2D<+<E:<	8&<A $ D<	+<j <	 ;^2D<+<D $ D;Y ;Y.< <<z,"<
 $ F;] D<	 <	 <<},
:<	; ;]+<L,"<
 $ ;^3H<:< ;^2H<+<U"(.H<.$8&<Q $2d<+<j &.F;Y.;Y3f;X+<].;X/;Y (. F<
 <
1$+<e <<, <_D;\ZD<	 <	 <=,
:<	; ;\+<a,+<H ;Z0D+<g <<m,B4 <=,, $ D;Z+<! < <	 Ap,~X<<
X<<
$;ZX;X<$;^P<
<$;^X;X<$;^X<<	`Z(X^. >[.~(3~+=
	~+=Z. \x <x*<x .->>ez+=!"	b+  "=	b+Z. h+ggM?Th
&=	b+=,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*=;**,^,~*x,> <=;*<=>  pZ@=1@@=2@@=2 =r`|+=%Pw,~ "p h a`~+=+h  ``~+=,$=s!=-d=s/"+=&P,~@@@ @@0@x@@@`edX91,>B6,>Zp @=1\`=1 <=1,,^,~SMI 1,>B6,= =u B=1+=U_MI 1,>B6,= =v B=1+=UI5R1,>B6,= =x B=1*\=`7ApX"=x B=1/& pd"~l" B=1*\=`/& pd"~l"$ B=1*\=`/& pd"~l"
 B=1*\=`Sp*\=`/&Xp B=:@@=; =y B=1*\=`/& pd"~l" B=1RF=1 <=1,+=EV4i91,>B6+=mS,i@1,>B6+=m_,i@1,>B6+=mK>21,>B6+=mK>401,>B6+=m[<I71,>B6
&=z w @)@. 
"5B=o
&>,~`.
.4SEQIN^=tSEQOUT^=uRANDOM^=wSEQINOUT=:
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
gG@1,>B67cp+> (Bdb+>.>"+>.>"TB#p@,~4B>+P=0
>#p+>  ,~>attempt to take SQRT 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,>B6Z.@6kp2j8M+>; !pQ A` >4\$}
4L>3/,L8$>0.
8L F(,~H?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

&>5 <>;,
iSN,>B6@ApO
,7 OAp,~[&vlx1,>B6 Z?G \?H  ?H,!p,!p,!p,!p,!p %p<XD>\XD?XD?, %p<XD>\XD>}XD?7 %p<XD>hXD>qXD>xXD?XD?XD?XD?
XD?XD?XD?XD?XD?XD?XD?XD?%XD?%XD?(XD?2XD?3XD?3XD?=XD?=XD?> ?Q?I D?P!$ D?K@@?K 6 V_ V_36?H9>\ $ D?N"?I :.?I ?H D?O"$.?J4$>n5d>d Z?O@@?L /?I .?I  . D?M#3`?L+>k @?L V?P X?N36?O9>g38?H9>f+>z /?I .?I 
.
#72`?P+>x36?H9>o ?J4@>v <?C, <?F,
@@?K@@?K+?@/7$D?L Z?P V?N#?L3`?P+>s3Z?P+?"`?N ?P3Fo"?I 8.?I . .?P *' @38?H9>3Z?N+?
.
 / @?M`?K4@>s#?K3 ?Q+? ?K?Q D?K:?K+?#?K2 ?R+?!$	 D?K>?K+? 6 . ?M @36?H9?!$?M D/"?I 6.?I 
.
 74@?( @?L3V+?( 8 . ."?L'@38?H9?" ?L?M"D736?H9?3:?H9>` ?N@M@?K ?H o D3Z+?4 ?H$?I ?H/?I . . * @=v?0=z?, ?H$?I ?H/?I o D/4D??"..$?I 6 . . *' @36?H9?;=z?6 ?G ?H\ ?K,Ap,Ap,~?J?R$?H$?H0c=t! 0('0',I4,' BY',I4,' INVERSE DOES NOT EXIST.'//)I5r1,>B6O@
,4"?\,@/``,~ <?],
44?_4@KbN=1,>B6O@@
 p4B?g,@/4@?g9?k9?jKbN=1,>B6@@@
!$Lu 	`@Ap``a`+@	a`+@ D?bA (`?p/"#B?a@@?b !pX@?^,> <?^,@,^7@@+?vOAp+@
 #pQ"A` $1@+?{0`=d?x! H: @?`@@?aa|+@[pd0@ +@[pd0@ +@+@_w6@@
_w#`1 +@SpXp @?a
?a+@@?_+@	+@

&@
+@
   Ap ,~ ERROR ON OPEN!
HH@H@G.t21,>B6@@Ap! A`.!p @@ @ @@@@@@@@ & "@<1D+@-@(=b@@<0D+@&O " @ @@@<-@(=b@7@@OAp !p<, @, @,~<&@!@1D+@%   Ap+@!1D+@%1$+@"1d+@-0$ 0d-+@" $D@+@("@K,@X0@+@G p4B@ILad+@F`b+@G $0d"+@I&$$&(&}Z.G@K.&$.$ 7F+@<  ,~ A$&$(DG$1$((D(D
 	`5@@I .2bM+@E L.&7D!$Lu+@H2"@L+@B &p,@P 	`,~
&@L <@O,
.p M}ILLEGAL DEVICE NUMBER!
"@W,@X 'Q&A` @W@1x,~180.8X=`@S,~.H  a|+@[0"0b/ ,~0B1B,~0B/ ,~aJMm1,>B6 A,AK@,B+@yZ"6Ap." B` " B` $7cp $1B $dA,@{ 6`
,Ae+@z6cp0b "bA$A- ({."XB`&$@.$
a|+@s[pdp0B +@w+@u_w#`1"+@w6cp 0d $QD`,A6+ ,~
&A,~
&A,~@b -p\.{Q,A` 
A4PA1P+A	/0P8.@~,~``
``
CANNOT INIT DISK!

FILE NOT FOUND!
HH\.~ 
A+@~YC GaSa3 S;YC&<G<aS<a3&<E$;w|xA PA
 B`1T!"L	b@XB` B A*@
+B!,2,B
@!.~`+B""1T""QBA(f+AJ2FPAB*( B` " B`\"
	b@ B`\"	b!"Z(BrbB	b
 BA*	b
+"`B`!"2	b`b`b+A`!"2	b!`2B`+A`!$2	d!$Lu+Ac B	b B B	d!$Lu BA) DA*,~@@A+ B*(A2 BA, BX B` DA, DX $	d ` DA+ DX "2D`bB d  "bB @A++B! A2 BX@@A2 B#	b$+At!"A3X"X*"X!"`
 "?d+B	d5DA|bB$bB%bB% B A2@
+B!,2,B
@ X
A, A- +B JX +AJ
&B& "bB 5 B+An5 B A++ +B	h	&(2 
PA
 B,.A* &..0P`bp+Bd
@AA)+Ax`L+B

,~+AJ "0T,~ "
&B,,~@xAP$` h8A,
XHXa`,~!"GB`+B@A26$A-.B.B.B
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
KbN@1,>B6,
,~B7Y\B8Q<X\B9*+6B96`B9
GJB6GK/K`B6}KB4)?K`B41B:A.113A.10.A-1A-1TA+1BA01	A11gA,1
=A11`YA01[A,1Z3A/1Q|A21FBA+1@A/(UwSA6
r9WB1SSAK
e'*+Ae&+Z} A

hf@_
hf`@^XrwV`@X
:3V@P:3V`@P1IYv@/1IYv`@/
JI3@JI3`@!h?c	W3?h	W3P?^
_9(k?X_9(k`?W
=?lQ>B=?lQ`>A
59>+9`>*^^xj>)9{`>aj>aj`>
(=f
8@#x=llJ=De,(=dDf=jDa=h
_
G=K
8v:=b)4~P=(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=
<-]<<6A<U<8<
U<H<?
a<e'<@
u<;<Aw<L<}<Q3<R<U3<WG<][<o<`<a=+<g3</?=G<N[<bo<m<j< +<%?<(S<n
_<+
s<q	qG<
l<
	<	&G<	<%i<%u[<P6;]P6;\P7;\0K<%j7;Z/;Z%[4;Y
Zo;Y
;XzM;X(T$<(T$v@<!:.&W;%?;
:x8&k;&?/;E 96o%6
a6
	u9.'8|'9a?W:H;9+9b?k;
w9
,;9mz?:Ntu6;tU:I9,c;1zg:^39,w9sz{;H:z-9t{:WbA:n39-;4{#;9@bU6G9-3;6{7;9Jbi7[929}{K:])9Mb}:ro9239}{:}=9P92G;9{s;JQ:9'2[;;;M+9#2o;>s;P39YzA9qzu:!?9"3:
;S{	:OwS9#3::|[9u!:zi:#{:?93+;/:uo9{1:SS93?:C;U!9S{::({E:lg93S:^	hU8r59]{%::{{9'8?;	hi8sI9g+:z 9&8S;
_8j K;9:&
s8m1989#;C	qG6~26
&AQ0&M6
b[u@6	6w046
y6
w056	g6w056696PH6w066%i0
F|65k
Ix35Y/885V
LB5j95jP45iP55i/854
Xm5XP55h5hP65g%g|5gP65fp5fR!b
5XP75eP75e0K8KP85dy5dqp:5c%jL2gd5c&.\5b%jI2zv5b5]g?3zp5W
5\
F~5\%\j3oi1{/5[5[zr5W~Ly5Z{h35YzZ8c_(Ti5VK_(Ti05VzZb@8bG5U[5Io5J5K5LVU5TVi5L	qG5D	5CP45CP55B5B5A
5A5@09j5@.V5E.V}`5D
55585'5;;5>O5c5w5PU4Pi534wP}4Q4G5+Q%4|[5*Q94`o4rQM55,Qa4i4tQu5'+4uVa4e?5/Vu4rS4z
_4{
s51	qG4_
]94^	4^w044]0?0zG0P44]P54\/854P54\P64[P64[P74Z0K4m
4Z4Y&/1g?3/LA209j4Y
4X%\j3zM1/LA24<K4?K%4D34PG4M[4Do4G4I4Q+4T?4W	qG4<0?0zG04;/8540K4@&/1g?3M4;/LA2%\j3zM1/LA2h4:Cn4ACn|@4@(R+Dh04+2-+w"5.
d0a0s1}972);2X2k3k3o3L30*o1p]E)E"5.Y)Kl0A-<o0
a-3A,Np^)Nn]M-l0i*:@U-So)*}07u1)i+pn]a)S
u-$A-C:@i-Q2a.ZY/Do=+S3\!4	u4-},$U*:@}-T
uW19+p8}.H,?C,j43
u(|&a,5ua-3Y*.;1Z+,?k,n&u,;$M.899*+O1^,,?,n-M&G.=us3$7/u&{0Iz46%a)9"'q-$9M*,$a.'c1X,',@28-N&[2wzg/K/v'16{1+9a,%u)<"(-($u+1z(A-7$	1(31a,w2z{2>?-X'+.L{//"s1D'0U&E)A"(U-9t}01d-2-2,e.bU0X{0h?+k3+,N/-s1K-"3c3B'1=.4$o-I,y*%z}*/ i/dha/lA0G{1++S1p3?2C2O.-s.iw3F;3wn?4%-
 7+s8{,S2Uk.3/33/>0.o#0|)p]	,|"4Y-l2I*,
_.g{u/OiY/ K+s9,S-0.3C.pG/?34o74+2]+a,"4m.
s.xa/aim*t _1|9#2('-12j3W.r[/A 0*oK1	qG(|P](|P]({P^({P^(zQ@(zP_(yQA(yP_(xQA(xP`(wQB(wNc(vQB(vQC(ugQC(u	(t0?0&G(t(s_C(sPH(rPI(rPI(qPJ(q'h((QPJ(PQ,(P	5PK(OQ-(OfNzP(LPK(LQ-(KzG05PL(KQ.(JQ.(Jl{(IQ/(IQ/(HQ0(HP4(GP5(G/8549r
CP5(F%q(Fq5dP6ccP6b%V#bQaP7j~Q~P7}.}Q|P8|Q{{Qz
zWyQyQxxQwY{woMn
IhnJm9ga&/1Qm/lQl(M9kQkQjQjQiQiQhg?3+gh/LA2g/83fPpf	ePqe09jL
KPqKPrJ|G;J
IPrI\FHPsHm&EGPsG%\j3PtFFzM1/LA2:=-,P\,{)+}hB0H}hBP0(R2@+D\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]!+{0	Fx+D+	Fp@@-ep++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]
	()	 <<---	 +()	<#>	[. ]