Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/oneaov/oneaov.exe
There are 2 other files named oneaov.exe in the archive. Click here to see a list.
?p0`0
?hX%?x " 
 
<++'2	`D~gjf(%&22f @-(///,' ---WMU ONE-WAY ANALYSIS OF VARIANCE---',/)(' ?CANNOT USE "SAME" OPTION FOR METHOD ONE AND',' TTY: DATA',/)(' ENTER OUTPUT IDENTIFICATION, IF DESIRED',/)(16A5)(' HOW MANY VARIABLES? ',$)(10I)(' ENTER METHOD OF INPUT(1 OR 2) ',$)(' ?RESPONSE OUT OF BOUNDS',/)(' ?PROBLEM TOO LARGE(SIZE=',I5,')',/)(' HOW MANY GROUPS? ',$)(' WHICH VARIABLE IS THE BREAKDOWN VARIABLE? ',$)(' ENTER BREAKDOWN LIMITS(MAX. 20)',/)(10F)(20F)(' ?BREAKDOWN LIMIT ERROR')t~(10F)~`+ -<o $ D1 $ D1 $ D7 <8,dOd0"$ D0 <9,, <7, <6,5 <5,5@d8 :0D+6 12D7+6 <<,,+0 <?,, <B, <E,
 13D7+h <1,l k0D+? $ DR <G,, <J, <M,
 9 Dm5dH <O,,7F3+? <$,E+? <R,, <U, <X,
 :0D+P 12D7+P <Y,,+H :0D+U m0D+U <\,,+0 :0d+Y/$4$Y4D_+h <_,,7D3+\ <$,E+H <b, <e,
+? <g,, <j, <m,
 $3$9+ <n,,3D3+_ <$,E+_ 12D7+k m D9 <q,, <t, <w,
 81$+q 92&+u <y,,7D3+h <$,E+h <|,, <, %_DHZDl l <,
:l; H+y,"&
 $
 D9 97$H+5d>98&~ <,,+u 9( 9(.9$9. 9(.9. D: </,k7$G+] 9$9 D;.= D= ;.= F< ;.< Hk.9 H<.9 Hj.9 H;.9 H>.9 Hl = ( = H $= D &= F k $= D < $= D j $= D ; $= D  > $= D  <%,y+0 <$,
~h								99:R22?8H17`:G=>P"#Rk$#x!x"x3x!X0mX0rX0yX0~@?X0X0$9X0X0X0$:X0rX0X0X0	$:X0(' ARE ANY SYMBOLS TO BE USED FOR MISSING',' DATA?(YES OR NO) ',$)(A3)(' TYPE MISSING DATA SYMBOL FOR EACH VARIABLE(10 PER',' LINE)',/)(10F)(' ENTER NUMBER OF ELEMENTS PER GROUP(10 PER LINE)',/)(10I)(' DATA IS BEING READ FROM ',A5,/)(' ENTER DATA FOR GROUP 'I2,/)(' ?NOT ENOUGH DATA',/)(' ENTER DATA',/)(' NUMBER OF REJECTED SAMPLES=',I4,/)(' WOULD YOU LIKE TWO-SAMPLE T''S?(YES OR NO) ',$)(' ENTER A 1 TO USE THE POOLED MEAN SQUARE ','FOR JUST THE TWO GROUPS,',/,' ENTER A 2 TO USE',' THE POOLED MEAN SQUARE FOR ALL ',I4,' GROUPS',/)('1',16A5)(/,1X,A5,1X,2A5)(///,1X,T21,'*** VARIABLE ',I3,' ***'//,T9,'GROUP',T22,'SIZE',T30,'MEANS',T41,'VARIANCE',T54,'STD DEV',/)(1X,T10,I3,T20,I5,T26,F10.3,T40,10('-'),T52,10('-'),/)(1X,T10,I3,T20,I5,T26,F10.3,T40,F10.4,T52,F10.4,/)(///,' ALL GROUPS EMPTY FOR VARIABLE ',I2,/)(5X,'BARTLETT''S TEST STATISTIC IS NOT POSSIBLE',/,5X,'SINCE AT LEAST ONE SAMPLE SIZE IS 1 OR VARIANCE IS 0.',/)(5X,'NO BARTLETT TEST IF NUMBER OF GROUPS IS LESS',' THAN 2',/)(//,5X,'NUMBER OF GROUPS=',T36,I4,T47,'DF= ',I4,/,5X,'BARTLETT''S STATISTIC=',T35,F9.3)(/,' ANALYSIS OF VARIANCE TABLE DELETED BECAUSE',/,' DEGREES OF FREEDOM FOR GROUPS IS ',I2,/)(///,17X,'ANALYSIS OF VARIANCE TABLE',//,' SOURCE OF VAR.',T18,'D.F.',T27,'SUM OF SQ.',T40,'MEAN SQ.',T58,'F',T66,'PROB',/)(' GROUPS',T18,I5,T26,F11.3,T39,F9.3,T51,F9.3,T65,F6.3/)(' ERROR',T18,I5,T26,F11.3,T39,F9.3,/)(' TOTAL',T18,I5,T26,F11.3,/)(///,21X,'TWO-SAMPLE T ANALYSIS'///,T17,'MEAN',T30,'T',T59,F3.0,'% C. I.',/,1X,'GRP-GRP',T13,'DIFFERANCE',T28,'VALUE',T39,'PROB',T47,'DF',T51,'LOWER LIMIT,','UPPER LIMIT',/)(1X,I3,'-',I3,T10,A1,T13,F8.2,T25,F8.3,T37,F6.3,T45,I4,T52,'(',F9.2,',',F9.2,')',/)(' # - INDICATES AT LEAST ONE GROUP OF SIZE - 1',/)(' USING POOLED MEAN SQUARE FOR JUST TWO GROUPS',/)(' USING POOLED MEAN SQUARE FOR ALL ',I4,' GROUPS',/)(//)TTY  YES  q}#     3M     [:` \s !p @ !p @ !p @ !p @0 !p @ !p @( !p @2 !p @ p @
 p B p B #p B+ p B p B #p B p B #p B$ p B p	 B#Od."$ D3 <],,@d2 <`, <c,
 %2Dv+ $ D2 <e,, <h,"
 $ F$ D1 1.2 <k,
:1; $+, $3$+o <l,, <o," $ F# D1 1.0 <r,
:1; #+#, 3Du+* <t, <w,
" $ F" D1"
 $"(.1$
. H.@j' . J' .@j'.$8&- 1.07d+h 3D#+< 2Du+< <x, <{,
 1.0" $ F  D
 3D#+P <},"
 $ F D .( <	,
:; +C, 2Du+W <	,"
 $ F D .( <	,
:; +L,+W <	,"
 $ F D .( <	,
:; +S,"
 $ F0 D"&.1$
. F (2H2+`.2 .( '3H+h. .( D . .( H .::; 0+Y:
;  +?:1; "+,+B <	,,+L 3D#+s 2Du+s <	,, 3Du+w <	, <	,
" $ F. D1"
 $"(.1$
. H.@j' . J' .@j'.$8&z:1; .+y@d& 3D#+ <	,"
 $ F, D1 1.( <	,
:1; ,+, 2Du+ <	,"
 $ F, D1 1.( <	,
:1; ,+,+ <	,"
 $ F+ D1 1.( <	,
:1; ++," $ F) D1 20F+# .2 .( '3H+.$ .( 2f+<"
 $3D+; (2H2+- .2 
.
( 
/3J'+; D3d+0"(. H"*.

"(.1$. H. 
.
( 
/J' . 
.
( 
/
/L' .:
'.$8&'+:1; )+:&+"$.D
 <	, <	!,
 <	#,, <	&, <	),
 2Dv+N $ D <	*, <	-,
 <	/, <	2,
 0$0d+H <	3, <	6,
 <\,0 <[,H <	9, <	<,
 3Du+W <	?, <	B,
"
@$ F D@f
 H F H& F
 D 2$3F+`.$ D" $"&.$
. F. 
1*+&:
6Fi <	E, <	H,
 & F
.
3&/+v 
.
 
.
 
7 L/"&.F
 & F <	I, . 
.
 <	L,
+& . 
.
l/ 
.
 
/
 J . 
.
 
.
"p/ .G //0p N7 .6&+ .@j . & Ft <Z, @ . 2fv+ & F"&.F
+! .f&}F . 
/*j!&F
 . & Ft <Y, . /&fF . 
.
 
//*j
J& <	O, . 
.
 
.
 <	R,
.$8(a6d
+, 1D+, <	U, <	X,
+I 0D+0 <	Z,,+@ & D&"$.
 D5d5 <	],,+@f D!&}
& <X, @ <	`, <	c,
 <W,
,"$.
 D5dD <	e, <	h,
+I@d@f4 D D" $"(.$
. H. 
'J . '1(+X . '.H4 . 'H .7H'+X . 
'
' 
.
l7
J.$8&Gf4  D	f4  D5"5 F" H'"
5
 J3"

.
4 J",.
4 Ln Fj H		 F/ <U,y @ <	j,, <	m, <	p,
 <	s, <	v,
 <	y, <	|,
 2Fv+I w F/&H F)!&F/ <	~, <
,
 <T,(@d &/ $ F5 D1.$ D1"&/.1 1"(.1$
. H"*.
$

.
 J' 
x L.
. 
'$
/4L=.'1H+ 2Hw+ ( H . 
1.
 
/
' J . 
'.
 '$/n 
'.
/l
 L 1H+. '. 
.
 
//*.
' J%4j= . 
'.
 
7/,l
'1..'/(h?H*4H=j H* <S, @+2 	 Ht <R, @  H% <P,r @
, <
,
.$8&:1; 5+} $2D+C <
,,2D+E <
,, 0F+I <
, <
,
:; +Y <
,, s 
 Ap,~hu%tp/%xtx*xth/px&x	tx	txx X.7X3>(%X.>X3E(X.EX3K$X.K$X.O$1Xm+(h#(hm(X.RX.TX.K$X?+(h#(h?(X.V$&X.ZX3>(X._$X3K$Xn@Xo(@ X.o(@ Xq
$X{$$(/X$$(/(7(X$X
XX	$
$(X%	$X/
X;$(((/(XA$('(	XE$(3XH()XZ$1$(((($%(-(*XbXhXm$X.s(5X,'WITH CHI-SQUARE PROBABILITY=',T39,F5.3)(5X,'NO PROBABILITY CALC. DF OR CHI SQ. OUTSIDE LIMITS') dd"P 4ddGV0 \
( p @
 p B
0`0`2+
p2b
*+
p@d
0b1b+
m0 +
M6b
0b+
7+
54
74
=4
B <, @
 <
~,#7$
+
s 
D$} D
+
m 
D D
( <
},n!$}$ D
+
m <
|, @
 <
{,#7$
+
s 
F F
( <
z,n
+"
 
F&} F
+
m7$
.$( D
"("3D
+
^ <
y, @
 <
w,#7$
+
s 
F&} F
 
F F

) <
v,n!( H
 F
!$ D
+
e 
D D
( <
u,n!$ D
"
& F
@f
!( H
 F
 &/
 $!(h
H 


j
J
.$8&
g"

D
!$D
 <, <,
+
s <,,!$} D
 
( 
 Ap,~x
(x
p

x
x
(p

x
x
(p

x
X
(
X
"  &E < _^ vz O! n-d [u; "h0 Mvm fH, se_ z<" }Q<  QR o2 z2 ~ < l { ~  0(' ?ERROR IN SUBROUTINE CUNO',/) x@ y~jGVup \ p @ p @
# D	3d!+)!$ D	+R 	DD.$ D
/$dD D
2+D	+R!$}
!$D(v H
&p F!&lL


$4D   <^, 4 
 D	6 +U!$	 D
+Y 	 D
+Y <_,,!$} D   Ap 
 Ap,~x x X]"wX}n X>]"< 6v,c Tql#qD0](
U6vNwiB@ \i Hk Fj Dj p @h p Be hh Db!$b Dc <
), @k <
*, @b bpmbo Dh bqmbnb& Fe"heb Fdd Ff&dF Fg fFf&f&@d&@ Fd fFf&f&f&vd&@ Fi f&&Bflf&hfnd&#4 Fg f&X&)f&hflfpfod&'4 Fche!& Fecgeiedeged  i j j k,~xcxk]    [    (' 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> \ p @
46D
<+8 1 D
^ 
^ D1 
4A$5D< 2 D
6 
4A$0D+? 2 D
6 $.
46b0b+D+A4D4G4E4H <h,, 1 D
9+I <k,, 1 D
9 <n, <q,
 
=2D'+V 
=2D(+V 
>2D%+V 
>2D(+V 
?2D+V 
?2D$+V 
@3D0+ 
=2D+` 
=2D*+` 
>2D/+` 
>2D#+` 
?2D0+` 
?2D0+` 
@3D0+! 
=2D&+k 
=2D)+k 
>2D%+k 
>2D&+k 
?2D(+k 
?2D%+k 
@3D++L 
=2D$+y 
=2D#+y 
>2D(+y 
>2D/+y 
?2D0+y 
?2D0+y 
@2D0+y $.
46b0b+y+x4@4J@d
] <g,( $2D
4+ $A
40D+ <d,@d
4@d3 D
5 D
5 D
^ D
- D
. D
V 0 F
+ F
, F
6 D
. D
\:
.0d+$ 
<2F +
 & F
\ 
<3F-+ 
<3F,+ 
<3F)+"+ $.
. D
5"&.
. $ 
: H
</$8& . 
..& 0 H
<*d $.D
.+ $.
. D
^"&.
. $ 
8 H
</$8&"& 
. 0 H
<.$8& $.D
.+ 
. D
-+7D
^+/ <s,.$ D
\"
^/&.
\ 
\ F
8 D
] 
] <w,
:
]; 
8+*, <x,	 <|,
6D
\+9 $.
5 D
["
[.
5 
[ D
] 
] 
<2D0+8>
]8&4 $ D
] 
]   F
= <~, $.
5 D
Z"&/
5.
Z 
Z F
7 D
] 
] <,
:
]; 
7+?,7D
5+I <, -_D
6ZD
] 
] <,
:
]; 
6+F,7D
-+U <,.$ D
X"
-/&.
X 
X F
X D
] 
] <,
:
]; 
X+O,<
 02D
6+a3D
++Y ! F
6+a"31D+\ ' D
6+a $A
45D^ . D
6 $A
40D+a 0 D
6 <c,~ 
63D!+u3D0+j3d+3$+g+u 
62D'+0 $A
44D%+0 " D
+ # D
, $ D
4 
9 D
W <a,~ <_, 
:1D+s $.D
,+o 
+ D
Z 
, D
[@d3 <,	 *_D
WZD
- 
- <,
:
-; 
W+x,"& $ D
Y 
Y 
<2D0+>
Y8&} 
Y 
;2F + 
<2F%+ 
<2F$+ $ D3 
+2D0+ $A
45D
  D
+ $A
40D+
+ , D
, $A
41D+ <\,7D
:+ <,,"30D+ <M,E+?@d
_ 30D+ $? D
_ <Y,4+g 
40D+ <X,( 
40D+  <U, <M,E $3D
]+>A
45D0 <,+0 $2d7+03D
_+) <T,~ $ D
_3D
]+> D
] <S,(@d
_ 30D+/ $? D
_ <O,4 $A
4 D
,1D+9 
. F6 
V F6 
6 F2 
9 F1 
+ F4 
, F4+< 
+ D5 
, D5 
6 D2 $ D
<+L <, 7 D
9+0 <,, <", <%,
 <N,( $.
46b0b+J+G4D4G4D4G <',,+D ,~x0P7
_
83x7p27`
Z"!7x
WP
9
_
5
+
.
VX
9
+
:
.
Vh
9
+
:p1
9p
6
9`
Z"!7x
9X0
`X0
dX0
h@
=P
h
/$
<P
i
/$
.$
VP
h
+$
<P
h
6$
<P
h
/$
<P
i
/$7P
h
+$
<X0
j`
9`7X0
lzX0
Y$
<X0#zI    F    A    (' FORMAT'/)(' FORMAT: (',A1,'-TYPE ONLY)'/)(80A1)(80A1)(' ERROR IN FORMAT, TRY AGAIN.'/)S    (    A    )    {M         O$ky \g p @Z p @* !p @Y p @[ p @* p @+@d,@d[ DZ &( F\ DY2D*+w <?,E +0D+z <@,,0d+} <C, <F,
 <G, j_D0ZD[ [ <J,
:[; 0+, Z1D+ 12Dg+	 12Di+	 23Dj+<"* $ .Y 
k J'.$8&
 $ DZ *0$+(.* D\"\ $ D[ [ 02Dk+:[8& $ D[+< [ 02Dh+ $ D+ +.Y <L,"\ $ F/ D[ [ <O,
:[; /+,"\ $ 03Hh:Y 02Hi+'"(.HY.$8&# $2dY+< &.F+.+3f*+/.*/+ (. F\ \1$+7 <Q, j_D.ZD[ [ <T,
:[;=.+3,+M,0D+9 <?,E.<U,,.$/D,+s6g+[+Ap,~XZ\XZ^$,X*a$0P\b$0X*a$0XZc('%fFISHER: ZERO DEGREES OF FREEDOM WITHIN')(' % FISHER: NEGATIVE F-VALUE') 0 *U+Y a6EWt/L
jh](Yha",.
l^H`.$8&?+Z@d_"&.Zf <8,
@3 w+Q"$.Z7 .$( Dr <6,< @_fZ _afZ Da _$} YY!$}Y _` D` YY D^!$DY"$.Z DZ $.]2d`+o $.] Dd d/`7 .&(/& d Z. Hah 
a
^
"(.h
 Jala"

Y
J`.$8&e!$` D]5$s@f]+s!$ D] \ DZ1dt+*6&c+w <E,, <4, @r <5,Q" @ @^d!*z

]!(j(^ H]+*@dc ` D\ Z Hf F_2&s+	 * Jc Hd Df H\!$D_ \(.\f!$ DX f(.fh!& Fe"e( <3, }# DY <0,X Fr <2, DY f0&+ f 


v$Y DY wYuYvYtY$ DY!$Y D] c0D+*!$D] o ` Ap Z Ap o p p 
q 
q ],~p_txrp_xxcxrpYrxYx`x`xYxrxZxYxZx`x[XgXk 5$3, <@;b`	FyDt80&_BnU]S>G5` \J JL HL FK DK p @I#IP&!$ DHN HO 
H

H
N
 HP HHM FJ I"D DM <n,nO @HH FI7dI+j!$DI J K K L 
L I,~xM	`Z(X^. >[.~(3~+s	~+Z. \x <x*<x .->gez+z!"	b+  "|	b+Z. h+ggM?Th
&	b+o,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*$**,^,~*x,> <$*<'  pZ@@@@@ [`|+Pw,~ "p h a`~+h  ``~+$\!d\/"+P,~@@@ @@0@x@@@`edX91,>G,>Zp @\` <,,^,~SMI 1,>G, ^ B+>_MI 1,>G, _ B+>I5R1,>G, a B*\I7ApX"a B/& pd"~l" B*\I/& pd"~l"$ B*\I/& pd"~l"
 B*\ISp*\I/&Xp B#@@$ b B*\I/& pd"~l" BRF <,+EV4i91,>G+VS,i@1,>G+V_,i@1,>G+VK>21,>G+VK>401,>G+V[<I71,>G
&c w @)@. 
"5BX
&i,~`.
.4SEQIN^]SEQOUT^^RANDOM^`SEQINOUT#
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
CR,>G p#3b~+} FT2"~+{ D!$3beDh& B  @ @ `F7 7 "` ,~ &`V-G {G ZCv\ 7f ]V#QI+0`} 9~jgG@1,>G7cp+ (Bdb+
."+."TB#p@,~4B+P0
#p+  ,~>attempt to take SQRT of negative argKc3@ p p+#Kc3K  ,# 
,~Kc3J  ,# ,~Kc3I  ,# ,~Kc3H4B95@&5"8+D0
%U ,~,>,># $)D/$@,>4d0X $(F) + 05F05"."` ,G+7#  ,> <:,,^@,> <;,n,^5&7",^,^,^,~! ,~xxKc#@ p p+GKc#K  ,G @,~Kc#J  ,G @,~Kc#I  ,G @,~Kc#H4Bk5@K5"U+D0
JU ,~ Dj!$ @i Bj5"R#`+ g,R!"B,~+ U(BdB+ U5BP  j,~ +7`j+^`d +D0Y+D0
YU `d @6 i+T j`B"`+T/lid +`+D0Y#i,> <m,,^ @`j@,> <m,n,^+[U",Ri+ U+O! ,~xKc1,>G p3"	+s3b	+u+D0
rU ,~+D0t  ,~ D
 F@@
%"j"%)/;`:XD5f|aF+|.&@(|h&f
   
D@ 
 ,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>G p4@# @,> <+,,^,~{e^bC2|p1,>G p5`4@#+P0,#p3@&+%)r. !@*! n@*(|h"& ' B* '((**),~+D0
$ ),~  ,~ 0_i/X3 6P'M 5( bB W
R `@xATTEMPT TO TAKE LOG OF NEGATIVE ARGI$P1,>G #p D F	b&".$&$7@"$  (@. &"* B)@
(@ $ &$.$.&(D(F..  #p**,~.$D.&-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-i&lP1,>G Da Fb	b	&"j0 Db&" DcS Ao-&^ "B c-&^[p(F{5FS[w0F+]+U ph& `f~+] "B b&"t Db-&^ "B b&$2 $D a b,~ a b,~&" "B $D+KK9:1,>GZ. p @#,~!$hX$h@@h*% "n BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHI4:1,>GZ.@6kp2j8M+ !pQ A` \$}
4L/,L8$.
8L F(,~H?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

& <,
iSN,>G@ApO
,7 OAp,~444BKbN=1,>GO@C p4B,f4@9"9!KbN=1,>G@@C!$Lu 	`@Ap``a`+@a`+B DA (`'/"#B@@ !pX@,> <,I,^7@B+-OAp+A #pQ"A` $1@+20`=d/! H: @@@a|+8[pd0@ +=[pd0@ +=+;_w6@C_w#`1 +=SpXp @
+?@+@+A
&C+A   Ap ,~ ERROR ON OPEN!
HHGHHG.t21,>G@@Ap! A`.!p @E F @G@@G@@H & "E<1D+T-_=bOE<0D+]O " F @GE<-_=bV7@GOAp !p<, G, H,~<&XE1D+\   Ap+X1D+\1$+Y1d+d0$ 0d-+Y $DG+_",0@+~ p4BLad+}`b+~ $0d"+&$$&(&}Z.G.&$.$ 7F+s  ,~ A$&$(DG$1$((D(D
 	`5@ .2bM+| L.&7D!$Lu+2"+y &p, 	`,~
& <,
.p M}ILLEGAL DEVICE NUMBER!
", 'Q&A` @1x,~180.8X=`
,~.H  a|+0"0b/ ,~0B1B,~0B/ ,~aJMm1,>G 9,@,L+0Z"6Ap." B` " B` $7cp $1B $d9,2 6`
,+16cp0b "b:$d ({."XB`&$@.$
a|+*[pdp0B +.+,_w#`1"+.6cp 0d $QD`,m+ ,~
&:,~
&=,~@b -p\.{Q,A` 
?4P81P+@/0P8.5,~``
``
CANNOT INIT DISK!

FILE NOT FOUND!
HH\.~ 
?+5YC GaSa3 S;YC&<G<aS<a3&<E$;w|xF PA B`1T!"L	b@XB` R a@
+O!,2,C@!.~`+Q""1T""QB 	f+ 1$9{:x,~ 8F@`F S*( B` " B`\"
	b@ B`\"T	b!"Z(BrbT	b
 Ba	b
+"`B`!"2	b`b`b+!"2	b!`2B`+!$2	d!$Lu++U	b5UV	d!$Lu B` Da,~@@b V*(i Bc BX B` Dc DX $	d ` Db DX "2D`bWd  "bW@b+X i BX@@i Z	b$++!"jX"X*"X!"`
+>!,2,C@ X
c d +> JX +
&] "bW5 =+%5 = b+ +=	h	&(2 
PA c.a &..0P`bp+Fd
@ `+Ax`L+D `+ (!*Lu@

,~+ "0T,~ "
&c,~@(hGP$` h,(c
XHXa`,~!"GB`+=@i6$d.8.:.:
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
C2d;y1,>G6#p0b+6@Ap > $	b2+$ "6@&Z&." p4D.$(B{(D{0d+6 B= D= ( & Q&	f2+{4&{1(~9w H<3H=+2(=+.(3(= = H<@@>@@S"xZH:.(3h=*b!$6@>GD ?	d2+	3h=+ =(F+46@>+O@>+OApZ3b<+6/"*< B=+@Ap =:!&@@!"x H:GF.(3h<*b ?	d2+ 3h<+6Ap+6+Z	b+ @gp+56@&+)Z.$1$ $!	d+6 $QD&,8 pZaD $ ?	fQ&[[&.&."`b+6!."!`aB	b:p	d+6/'p.& Gp,~OAp,~G3]x1,>G@	`+;,~
&@	` p 
Cannot write-enable high segment data area.
KbN@1,>G,
,~HY\IQ<X\J*+6J6`J
GJGGK/K`G}KE)?K`E
K8
)1"k)jgPk1B:e113e10.d1d1Tb1Bg1	h1gc1
=h1`Yg1[c1Z3f1Q|i1FBb1@f(UwSm
r9WL1SS
e'*+&+Z} A
hf
hf`rwV`
:3V:3V`1IYvf1IYv`f
JI3IJI3`E!h	W3	W3P
_9~_9`~^^xjg)9{`g
^O[d^O[`c;F3H;F3`Hu?0u?`0K
f
KP~Zn~Z`m.G>.FA.ED.DG.VG	WG<~I<."g."f."e ."d#	WG"~J ajaj`DRjDR`i
(O
8@#xUlJ-e,(MDfSDaQ
_
G4
8v:K)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|poh04MGj[Uonj	qGJ;-9JI0KJ05K06K06L07L
IHH
Q
}`Qh05ruZU!;
a&':;9O?cQw8tA
-6tUe3st}	u3wu% GE[4o530{r+2zA4{)s?*zUCG*zin[z}oo{%G+{MQ?S
_
s	qGgifw04f	eQew05d
KgdczGcP4bP5ba0Ko
a`Z05o06p^h	^06p07q07qUtz]e]q\U\
ZfZYYQXUtzyUtzt0x
GI\A'
^U
a7'
uc;wO#3$'3)G/[Qo23T+93?UG [4o?<r+w?zS@
_}
sC	qG\l\	[&G[Z%iZ%u[Y.0Kg%j7,/,%[4+
Zo+
*zM*(T$l(T$v@k!
i	nu9s>s	o	<
ni*?w?\
io%
j#P&|?C
a
h
	u'N'3?W;`+4?kY
`e\w\,;?z? tu
d$Z,OzSUtUY,czg03k,wEz{L-F{)bA@3i-{#TbU
lGh-3{7SbiDoe23O{O="c2G{sQUy2[o3?gC'!%{jz{E>gn3S0	hUD5/{%oM{y8?a	hiEI9+L x8S	h}G]4?6 #g8g	iHq8S8 7~8{x	i%I
_< Kd9x
s? _
9#	qG
`~2
_{6
_ol1&>
^&AQ0&M
^b[u@
]	
]w04
\y
\w05
[g
Zw05
Z
Y9
YPH
Xw06
X%i0
WPI
WPI
V
F|
V
=
Ix3
+/885
LB
<9
<P4
;P5
;/854
Xm7P5
:
:P6
9%g|
9P6
8p
8R!b
7P7
7P7
70KP8
6y
6qp:
5%jL2gd
5&.\
4%jI2zv
4
/g?3zp6

.
F~
.%\j3oi1{/
-
-zr6~Ly
,{h3
+zZ5zZb`4h04kG
&[vo
)
*	qGiiQ-hhgg0Ki)f;pSfe05j06j06k@ed5dc
aW
u[Yo%]^+	qG	

	


		wL#wL{0"h04
(
F5
7
zI
=
y]
B
wq
M
U
Q
v
^
u-
e
gA
j'
u

m
p
"G
s[
.o
0
5+
~?
;S
}
_
|
s
{	qG

	

P4
0K
(






ur
,urz
+h04t
0s	97	);	cqV
i%Y9K	*OW	iu{
9oHs	-c	e1>B	navo.
a5o)2	2GY7AZ	o	
9D
b/s>sNU	o!
aoQZ	33	j>AH	o1&
)=k&W	?	6
 aX
Qho&	?C[
ym;#+x?k	<	|9Nc*,'z@	?	~wt,;	z?	B+
w,OzSY?T,,czgYS|<-	{#agu%KG:-3{7i{R{w?2[	LKP{ozaOc9E+}2osN3zuh{)?C3	Zs
G%{	hSC3Y_
{Pam[E{QT?	3+/	OsCoN{1WSW3?#C	R
U	R{yg	3S'W*E|
{K8?-k	U/
+|!; L8S0	XCI|5?
A, #	8g		ZW
!< 7	8{	!	]k

aI
i

_L KS9	#X
I?
A@
s
 _S9#	&'	`	qG7P]6P]6P^5 5P^4o4&AQ39s3:g2&Hg2	1w04170PH0?x/Q-/%i.PI.PI-g-PJ,PJ,%u[+PK+Cs**PK)$S)(PL(.'9k'{&9y&1%HN%V>$P4$P5#
Xm#P5"P6"!!Y- P6 P7P70Ks)P89m4z
?VIj)\%u@Y1@`H8yh[%jL@ +$xV7_1&"A%jIL%3:
L,N>E"sp#C


b
	
/^U
XZ	!fj	zy;~ZP\KyKW0x(R%h08th07h07h06h06h05h05h04q{y7gy{%r6{h{9~+5 |{M??4 #{aS< 7y
_? Kya
sB _	qGm&AQ0	mbuyl	lb47k&Gk%i0&H	j%u[R/885V>HP4H%pGP5G/854
Xm7R!b
7?bej>>yh1&H=&/1%jL2
Bi=bd8<&H<tIM;bVg;%jI2&"A:g?3M:zp609j9b9%\j3z8zr6_(Ti5K_(Ti05}hB0H}hBP0(Ro%\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]!+{0f(%+f @@-_:,{++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]
	()	 <<---	 +()	<#>	[. ]