Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0047/cross1.exe
There is 1 other file named cross1.exe in the archive. Click here to see a list.
?p0`0 ?hX{?x " 
 
<++=2	`~-00W]@{=l2]8((' CROSS1',8X,A5,9X,2A5//)(/' NAME OF SURVEY? ',$)(12A5)(/A5)(//A5)(8X,A5)('+'/$)(' CANNOT FIND DATA FILE ',A5/)(/48A1)(9X,48A1////)(9I)(9I1,9L1)(I2)(3I,2A1)(I,2A1)(5X,128I1)(5X,128A1)('1')(' ENTER COMMAND: ',$)(' COMMAND NOT AVAILABLE--RUN CROSS2'/)(' ENTER ONE OF THE FOLLOWING:'/' 	XTAB, ITEM, STOP, OR DETAIL'/)(' 	TO OBTAIN MARGINAL FREQUENCIES FOR A VARIABLE OR'/' 	TO CROSS-TABULATE 2 OR 3 VARIABLES, TYPE "XTAB".'/' 	TO INTERCORRELATE 2 TO 9 VARIABLES, TYPE "ITEM".'/' 	TO TERMINATE THE PROGRAM, TYPE "STOP".'//' 	TO HALT EXECUTION OF A COMMAND, TYPE "ABORT".'/' 	TO GET HELP AT ANY POINT, TYPE "EXPLAIN" OR "?".'//' 	FOR A MORE COMPLETE EXPLANATION OF ANY OF THE ABOVE'/' 	COMMANDS, TYPE "EXPLAIN" AND THE NAME OF THE COMMAND.'/)(' 	FURTHER EXECUTION OF A COMMAND MAY BE HALTED AT ANY'/' 	BREAK POINT BY TYPING "ABORT".  TO SUPPRESS THE PRINT-'/' 	ING OF TABLES OR OTHER OUTPUT, TYPE <CTRL>O AND PRESS'/' 	<RETURN>.'/)(' 	IF YOU NEED AN EXPLANATION OR FURTHER INSTRUCTIONS,'/' 	YOU MAY RESPOND TO ANY REQUEST FOR INPUT BY TYPING'/' 	"EXPLAIN" OR A QUESTION MARK.'/)(' VARIABLES TO BE TABULATED? ',$)(' 	ENTER ONE VARIABLE TO OBTAIN MARGINAL FREQUENCIES OR A'/' 	PAIR OF VARIABLES TO BE CROSS-TABULATED.  ENTER THREE'/' 	VARIABLES IF A CONTROL IS DESIRED.  THE THIRD VARI-'/' 	ABLE MAY BE FOLLOWED BY AN EQUALS SIGN AND A CATEGORY'/' 	NUMBER (0 TO 9).  AN ENTRY IN THE FORM ''V1,V2,V3=C'''/' 	ASKS FOR A CROSS-TABULATION OF VARIABLES V1 AND V2 FOR'/' 	RESPONDENTS BELONGING TO CATEGORY C OF VARIABLE V3.'/' 	AN ENTRY IN THE FORM ''V1,0,V3=C'' REQUESTS MARGINAL'/' 	FREQUENCIES FOR VARIABLE V1 FOR THOSE RESPONDENTS IN'/' 	CATEGORY C OF VARIABLE V3.  IF THE THIRD VARIABLE IS'/' 	FOLLOWED BY AN INEQUALITY SIGN (<>) AND A CATEGORY'/' 	NUMBER, RESPONDENTS IN THAT CATEGORY WILL BE EXCLUDED.'/' 	IF YOU DO NOT WANT TO HAVE ANY VARIABLES TABULATED,'/' 	TYPE "NONE".'//' 	WHEN VARIABLES TO BE CROSS-TABULATED ARE LISTED ON THE'/' 	SAME LINE AS THE COMMAND (E.G., "XTAB 1,2"), THE OUT-'/' 	PUT OPTIONS WILL BE THE SAME AS IN THE LAST PREVIOUS'/' 	CROSS-TABULATION, IF ANY.'/)('+INVALID ENTRY--VARIABLES RUN FROM  1  TO ',I3/)('+INVALID ENTRY--VARIABLE WITHOUT CATEGORIES'/)(///' DOWN:     VARIABLE ',I3)(' CONTROL:  VARIABLE ',I3,2X,A2,'  CATEGORY  ',I1,A1)(///9X,'FREQ',4X,'PCT'/)(' ',I1,A1,5X,I4,4X,2PF5.1)(/' TOT ',3X,I4,4X,2PF5.1)(' ENTER (WITHOUT PUNCTUATION) ONE OR MORE OPTIONS FOR OUTPUT:')(' 	0--EXCLUSION ANALYSIS ONLY'/' 	1--FREQUENCY OF RESPONSES'/' 	2--PERCENTAGES ACROSS'/' 	3--PERCENTAGES DOWN'/' 	4--PERCENTAGES OF TOTAL'/' 	5--CHI-SQUARE'/' 	6--NOMINAL TAU'/' 	7--YULE''S Q / GAMMA'/' 	8--PHI / ORDINAL TAU'/' 	9--SOMER''S D'/)(' OUTPUT OPTIONS? ',$)(///' DOWN:     VARIABLE ',I3/' ACROSS:   VARIABLE ',I3)(' CONTROL:  VARIABLE ',I3,2X,A2,'  CATEGORY  ',I1,A1)(///' FREQUENCY OF RESPONSES:')(//5X,20(1X,I4,A1,$))('+',4X,'TOT'/)(1X,I1,A1,2X,20(1X,I4,1X,$))('+',3X,I4)(/' TOT ',20(1X,I4,1X,$))(///' PERCENTAGES ACROSS:')(1X,I1,A1,2X,20(1X,2PF5.1,$))(/' TOT ',20(1X,2PF5.1,$))(///' PERCENTAGES DOWN:')('+',3X,2PF5.1)(///' PERCENTAGES OF TOTAL:')(/' CHI-SQUARE IS UNDEFINED.')(/' CHI-SQUARE  =',F7.2,'  WITH ',I2,' D.F.')(' PROBABILITY OF CHI-SQUARE THIS LARGE IS ',$)('+1.')('+',F4.3)('+LESS THAN .001')(' NOTE:  EXPECTED FREQUENCY IS LESS THAN ',$)('+1 IN ONE OR MORE CELLS.')('+5 IN ONE CELL.')('+5 IN ',I1,' CELLS.')('+5 IN ',I2,' CELLS.')(/' GOODMAN AND KRUSKAL''S TAU IS UNDEFINED.')(/' GOODMAN AND KRUSKAL''S TAU  = ',F6.3)(' (KNOWING VARIABLE',A1,I3,$)('+ DOES NOT REDUCE ERROR',' IN PREDICTING VARIABLE',A1,I3,')')('+ REDUCES ERROR',' IN PREDICTING VARIABLE',A1,I3,' BY',A1,2PF4.1,'%)')('+ ELIMINATES ERROR',' IN PREDICTING VARIABLE',A1,I3,')')(/' YULE''S Q IS UNDEFINED.')(/' GOODMAN AND KRUSKAL''S GAMMA IS UNDEFINED.')(/' YULE''S Q  = ',F6.3)(/' GOODMAN AND KRUSKAL''S GAMMA  = ',F6.3)(' (VARIABLE',A1,I3,' = CATEGORY ',I1,A1,')  TENDS WITH ',' (VARIABLE',A1,I3,' = CATEGORY ',I1,A1,')')(' VARIABLES',A1,I3,' AND',A1,I3,' ARE NOT ASSOCIATED')(' 95% CONFIDENCE LIMITS FOR Q ARE',A1,F6.3,' AND',A1,F6.3)(/' PHI IS UNDEFINED.')(/' KENDALL''S TAU IS UNDEFINED.')(/' PHI  = ',F6.3)(/' KENDALL''S TAU  = ',F6.3)(' UPPER AND LOWER BOUNDS FOR PHI ARE',F6.3,' AND ',F6.3)(' (RANK CORRELATION CORRECTED FOR TIES)')(/' SOMER''S D IS UNDEFINED.')(/' SOMER''S D  = ',F6.3)(' (PERCENTAGE DIFFERENCE',$)(' (PROPORTION DIFFERENTIAL',$)('+ FOR VARIABLE',A1,I3,' RELATIVE TO VARIABLE',A1,I3,')')(///' ZERO ORDER    Q  = ',F6.3/' PARTIAL       Q  = ',F6.3/' DIFFERENTIAL  Q  = ',F6.3)(///' EXCLUSION ANALYSIS:'//' 	TABLE TOTAL  ',I4/' 	EXCLUDED     ',I4/' 	SAMPLE SIZE  ',I4)(' VARIABLES TO BE CORRELATED? ',$)(' 	ENTER 2 TO 9 VARIABLES TO BE INTERCORRELATED.  ANY'/' 	VARIABLE TO BE CORRELATED THAT IS PRECEDED BY A MINUS'/' 	SIGN WILL BE REFLECTED.  IF YOU DO NOT WANT TO HAVE'/' 	ANY VARIABLES CORRELATED, TYPE "NONE".'//' 	WHEN THE COMMAND "ITEM PART" IS GIVEN, ANOTHER VARI-'/' 	ABLE MAY BE ENTERED SEPARATELY AS A CONTROL.  IF THE'/' 	CONTROL VARIABLE IS FOLLOWED BY AN EQUALS SIGN AND A'/' 	CATEGORY NUMBER (0 TO 9), CORRELATIONS WILL BE LIMITED'/' 	TO RESPONDENTS IN THAT CATEGORY ONLY.  IF THE CONTROL'/' 	VARIABLE IS FOLLOWED BY AN INEQUALITY SIGN (<>) AND A'/' 	CATEGORY NUMBER, RESPONDENTS IN THAT CATEGORY WILL BE'/' 	EXCLUDED.'/)(' CONTROL? ',$)(' ENTER CONTROL VARIABLE OR TYPE "NONE": ',$)(///' ITEM INTERCORRELATIONS:')(//' CONTROL:  VARIABLE ',I3,2X,A2,'  CATEGORY  ',I1,A1)(//10X,9(2X,I4,A1))(' ',I4,A1,4X,9F7.3)(/' MEAN ',4X,9F7.3)(' MEAN ABS ',9F7.3)(' OUTPUT SAVED AS FILE ',A5,'.OUT'/)(' 	THE COMMAND "STOP" MAY BE GIVEN AS A RESPONSE TO ANY'/' 	REQUEST FOR INFORMATION.  EXECUTION OF THE PROGRAM IS'/' 	TERMINATED, AND THE DATA FILE REVERTS TO ITS ORIGINAL'/' 	FORM.'/)p1: 0F?     ?.
<    <>RESETfSTOP STARTEXPLAMAP  0    PART IN   >    ABORTJOIN XTAB '    _@Qua

=POOL ITEM  }SAVE UNMAP8z8]9Lf3 }ymP1:`DETAIhp          NONE CUT  .MAP .MAP .MAP .DAT .DAT .MAP .OUT FOR05.DAT .TMP + -<,h $"D( o D d DK a D8 ] DY f D <%Y,0 ^.E D7 <%X,0 <%Z, <%],
 <%`,, <%c, <%f,
 3Do+3D_+%% DT <%V,,= @F5  <%T,,6 F+ <%h, <%k,
 <%Q,,=4  <%l, <%o,
+ <%P,-$ <%q, i_DIZDu u <%t,
:u; I+,"& $ Du u +2H+$@h+>u8&! <%u, i_DEZDu u <%x,
:u; E+',@d"6 F+I <%z, <%},
 <%~," $ F+ Du u <&,
:u; ++1, <&," $ F* Du u <&,
:u; *+7, <&," $ F( Du u <&
,
:u; (+>, <&
, <&,
 2d  D <&, <&,
7`"+^+m <&, <&,
 <&," $ F& Du u <&,
:u; &+N, <&," $ F$ Du u <&!,
:u; $+T, <&"," $ F1 Du u <&%,
:u; 1+[, h_D0ZD n (..&  H*d`:; 0+`6d"+m <&', <&*,
 2D+f <&+, <&.,
d" Dx+o <&0,, <&3,, <&6, h_D'ZDH H <&9,
:H; '+s, <%3,+ <&:, <&=,
 J3D_+3Do+m3Dm+2D`+ 2fb+3Dd+(3Dg+#3D_+%%2D`+ <&?,,2Dj+ <&B,,2Dc+
 <&E,,2Dg+
 <&H,,2Dp+ <&K,,2Di+ <&N,,2D^+ <&Q,, <&T,,+m <&W,,+m <&Z, <&],
 J2Dc+ <&_,,2D`3D\++  <&b,,2Dd+# <&e,,2Dg+% <&h,,2D_+( <&k,,+mO@! 02DJ+, 02Do@@!6 !+. <&n,,6 !+5 <&q, h_D#ZDH H <&t,
:H; #+2, 03Dp+m 03Dc+m 03D_+%% 03D`+= 02D\+> <&u,, <%3,+ <&x, <&{,
 $3Dt+( t L 
 
O@K3d2f+J3d2h+J3d2l+J@@K6 K+M <&, <',
7 K+(O@K 
32jW+S 
 32j W+S 
033j0W@@K6 K+V <',,7 K+( <%O,*r @0`Oj 
'@@2J]3Jb+\+]6.O@ <%N,*r @G0`OjG7 +c6.G+c 
 JG5Hf6*G+f6*+f LL D  3 F W FH &3fG+l &2FL+6&G+n &3FL+D G F3 FW6@L++D  3 DG t 3 Fu"W/&.u u ( ,$
G 
(
.
.
j(y
x
l J +.$8&vdxl D  <', <'	,
  D96 + Y D97D+ <', <',
 <',, t 3 Ht"W/(.t t <', t ,$
G 
(
.
.
 
(
 <',
.$8(
 <', <',
+# <',,7 (+ o3&+D <'",, <'%, m_D[ZDH H <'(,
:H; [+, 03Dp+m 03Dc+m 03D_+%%O@J 03D`+* 02D\@@J6 J+, <'),,6 J+/ <',,,7 J+ o3F0+ <%3,+ <'/, j_DZDu u <'2,
:u; +5 j_D
ZD  <'4,
:; 
+9, j 8 ("H(*d=L(D)D)D*D*D+D+D,D, D( <%L,.6 @6 F+a <%J,, <'5, <'8,
 <':, <'=,
 h <'>," & H Fu u <'A,
:u; +O, &(.& t ( 8 HY <%I,*r @ &(.& L ( 8 HY <%H,*r @ &(.&  ( 8 HY <%G,*r @*dL  3 F2"W/&.2 2 F DG L 3 F1"W/&.1 1 F D t 3 F0"W/&.0 0 *b$
G ($..@j ".$8&m:; +j:G; +e <%E,-$ <'C, <'F,
 <'G, <'J,
"" $ <'L,"
 ( JT Hu u <'O,
:u; T+~, t ( 8 HY <%D,*r (.   H L ( 8 HY <%C,*r (.   H 
 *(8 JY <%B,*r 
(
.
 
( JG$*b$(..:
 ".$8&{7 + J3Fg+$6 +< t 3 F."W/&.. . FM D L 3 F&"W/&.& & FJ D$$ (..@dx  3 F#"W/&.# # *$
 (.. ,b$
 *$
.
.
 
(".J x.$8&' &b$ $$.. ($ (.. x/F":; J+ :; M+ J3Dg+$   F3 FW  3 F5"W/&.5 5 FD DG t 3 F5"W/&.5 5 *$
G (..@j y.$8&D L 3 F*"W/&.* * *$
G(..@j y.$8&L G@f>:G; D+A@d  3 F"W/&.  F
"W/&.
 
 F D t 3 F	"W/&.	 	 *$
G (.. ,b$
G *$
.
.
 
(".J y *$
G (.. ,b$
G *$
.
.
 
(".J y.$8&`G($G(..y.F>:;+]Gf>Fk3&'F>.F:G;+,D,4&&@f* F t 3 H"W/(.  *$
G (..7Fy+:* DP.$8( *1$ $ D* L 3 F"W/&.  *$
G (..7H y+: D .$8&"&."$.*$ D t L 
W/
3 W/3$ H% <'S, <'V,
  D96 ++ Y D97D+. <'X, <'[,
7 (+77 )+p7 )+F7 *+7 *+s7 ++Y7 ++;7 ,+ U7 ,+!n <'^,, <'a, L 3 F"W/&.  F D L <'d,
:; +>, <'f,, t 3 F"W/&.  <'i, t <'l,
 L 
 3 JV"
 W/,.
V 
V L* J *b$
G ($.. <'n,
:
; *+N, <'p, *$
G (.. <'s,
.$8&G <'t, L 3 FS"W/&.S S F' D &$G (.. <'w,
:; '+_, <'y, G <'|,
7 )+p7 )+F7 *+7 *+s7 ++Y7 ++;7 ,+ U7 ,+!n+"2 t 3 FM"W/&.M M F% D ($G(..fy F k3$  D L 3 FI"W/&.I I ($. ,b$
G *$
.
.
j("

l J 8.$8&~:; %+u L 3 FF"W/&.F F ( ,$
G 
(
.
.
j(y 
G
0
l J +.$8&
 <'},, <(, L 3 F"W/&.  F D L <(,
:; +, <(,, t 3 F"W/&.  <(, t <(,
 L 
 3 J"
 W/,.
 
L J ($. <(
:
; +(, <(, *$
G (.. <(,
.$8&! <(, L 3 F
"W/&.
 
 F" D ( <(,
:; "+8, <(, G <(,
7 )+F7 *+7 *+s7 ++Y7 ++;7 ,+ U7 ,+!n+"2 L 3 F
"W/&.
 
 F  D ($G(..fy F& k3$& & D& t 3 F	"W/&.	 	 ($. ,b$
G *$
.
.
j("
&
l J 8.$8&T:;  +K t 3 F"W/&.  ( ,$
G 
(
.
.
j(y 
G
0
l J +.$8&` <(,, <(, L 3 F"W/&.  FX D L <(",
:; X+o, <($,, t 3 FF"W/&.F F <(', t <(*,
 L 
 3 JE"
 W/,.
E 
E LP J ($. <(,,
:
; P+~, <(., ( <(1,
.$8&w <(2, L 3 F+"W/&.+ + FM D &$G (.. <(5,
:; M+
, <(7, G <(:,
7 *+7 *+s7 ++Y7 ++;7 ,+ U7 ,+!n+"2 t 3 F)"W/&.) ) F D L 3 F'"W/&.' ' ($. ,b$
G *$
.
.
j(" 
G
0
l J 8.$8&#:; +  t 3 F$"W/&.$ $ ( ,$
G 
(
.
.
j(y 
G
0
l J +.$8&0 L 3 F#"W/&.# # ( ,$
G 
(
.
.
j(y 
G
0
l J +.$8&; <(;,, <(>, L 3 F!"W/&.! ! Fz D L <(A,
:; z+J, <(C,, t 3 F/"W/&./ / <(F, t <(I,
 L 
 3 J-"
 W/,.
- 
- Lw J ($. <(K,
:
; w+Y, <(M, ( <(P,
.$8&R <(Q, L 3 F%"W/&.% % Fv D ( <(T,
:; v+g, <(V, G <(Y,
7 *+s7 ++Y7 ++;7 ,+ U7 ,+!n+"2 <(Z,,"$.4D}5d <(],,7 ++Y7 ++@7 ,+ ]7 ,+!w+"2 $$G Q(.Q. P(.P.  y$yh H $$G (.. 
(
.
.
 
(y$
yj J// H $b$G $&.Q. $(.P." "$" $&.Q. 
$*.
P.
 
("$
".
#
j J G  2d D D


 
 Jv 0d@dv@dH"* $ F% D$" $ G$( 
(
.
.
 
$ 0P(.0P. 8y$(yn 
G( N2.Z+."(2 HH 1H+4 $0.0P$*b.
h("Hv.$8&#:$; %+"6DH+9 <%@,+_ <(`, <(c,
6DH+G <(e,, l2dD+@ <(h,, D2&Z3d+D <(k, <(n,
2&Z+T <(p,,+T <(s,,6$H+K <(v,,0D+N <(y,,0d0$+Q <(|, <(,
1$+T <), <),
7 ++Y7 ++;7 ,+ U7 ,+!n+"27 *+[ <),,"$.4Db5d| <),,7 ++@7 ,+ ]7 ,+!w+"2 G$$ (..hy (..fyF G  F@d"* $ 
P(
.
P ($G.h y H (b$G 
$*.
P.
l(" 
$*.
P.
j("J

J.$8&l  D+@d)" $ G$( 
(
.
.
 
(
.
.
 G 8>/0y$(ypP).$8&} )8 D@d"* $ FZ D$@f) P(.P &$G. y F" $ $ *b$
G 
$,.
 P.
 $.. P."8".$0"nN).$8&d D )D:$; Z+
  D l D
 n@f8*d! $22dt+$  F82dL+&  F9 
3&k+)  F9 <), <),
 <), <),
 l3f+0 <), <),
 3f2(l+4 <), <),
3(l+7 <), <)",
7 ++;7 ,+ U7 ,+!n+"2L*D+5$> <)$,,"$.4DH5du %0D+C <)',,1D+E <)*,,7 ,+ ]7 ,+!w+"2 $b$G $&.Q. $(.P.  "$"h H $b$G $&.Q. 
$*.
P.
 
("$
"jJD.P &b$G.@&".FY$<%?,.;!&F)*d[:$;$O+Z"	 &/ $ F DO $.	 D!"&/*.! ! F~ D$ $.O D"&/.  (b$G 
$ 
$,.
(P.
 
	 O 8$..(P. 
8"$
0"jJ.$8& :$; ~+ :O; +{:	; +y &/* $ Fz D	 &/ $ Fx DO $.	 D"&/*.  Fw D$ &/O $ (b$G 
$ 
$,.
(P.
 
	 O 8$..(P. 
8"$
0"jJ.$8&$:$;4w+F:O;[x+:	;Kz+&,D+4$!,D+4$"D
1h+ G <)2, <)5,
#
l+ J <)6, <)9,
#
l+ N <)>, <)A,
0H+ R#
Z+ R <)D, <)G,
7 ,+ U7 ,+!n+"2L*D+D+5$ X <)J,,7 ++ [ 0f+u /$4D d5d! %0D+ ` <)M,,1D+ b <)P,,7 ,+!w+"2 $b$G $&.Q. $(.P.  "$"h H $b$G $&.Q. 
$*.
P.
 
("$
"j J $$G Q(.Q. 
P(
.
P.
 
(y$
yj J $$G (.. 
(
.
.
 
0y$
yl L/
/ JY <%=,.F @JJ H-+!)@d D/ &/* $ FD D	.$ DZ"&/*.Z Z ($G 
P(
.
P.
 
	 0P(.0P. 
8y$
(ylL.$8&!:	; D+! &/ $ F8 DO.$ DW"&/.W W ($G 
(
.
.
 
O 0(.0. 
8y$
(ylL/.$8&!:O; 8+! / DY <%<,.F  D+!a $$GO Q(.Q. 
P(
.
P.
 
(y2* y@.& F	 $$GO 
(
.
.
 
(
.
.
 
0y2,(y@.( HO $$G 
 (
.
 .
 
P(
.
P.
 
0y2l(y+!O $$G"
	 
((
.
(.
 P(.P. 
8y$
0yj J $$G 
(
.
.
 
P(
.
P.
 
0y$
(yl L!+!^ $$G"O Q(.Q. O 
(
.
.
 
(y$
 yj J $$G P(.P. 
(
.
.
 
(y$
"yjJ!JD!d <)S, <)V,
1d+!g <)X, <)[,
0D+!j <)\, <)_,
1d+!m <)a,,6 ,+"2L*D+D+D,5$!r <)d,,L+D,5$!u 0f+u /$4D!y5d" <)g,,+"2 $b$G $&.Q. $(.P.  "$"h H $b$G $&.Q. 
$*.
P.
 
("$
"j J $$G Q(.Q. 
P(
.
P.
 
(y$
yj J H&+"#7 ,+"!@d &/* $ F7 D	.$ D
"&/*.
 
 ($G 
P(
.
P.
 
	 0P(.0P. 
8y$
(ylL.$8&":	; 7+"  D& n@f8*d"# $22dt+"'  F82dL+")  F9 <)j, <)m,
 0F+". <)o,,1f+"0 <)r,, <)u, <)x,
:G; +  33FW+"7 <){,,6 ++# %0F+# 33FW+#@fD F F FU 3 F	"W/&.	 	 t 
L 
(3$,.
 3 .b$. 
8".LD (W$.. 3 ,b$
.
 
0".L (3$.. W ,b$
.
 
0".L (W$.. W ,b$
.
 
0".LU.$8&"@ D$Ud D $f F"3F+#  FG@d D  3 F"W/&.  t 
L ,b$
 (W$.. W. (3$0. 3. @"$8"pP ,b$
 (3$.. W. (W$0. 3. @"$8"pP.$8&"_"3D+#   D@d D  3 F"W/&.  t 
L ,b$
 (3$.. 3. (W$0. W."@".U$8"pP ,b$
 (W$.. 3. (3$0. W."@".$8"pP.$8&"x"3D+#   DL <)~, <*,
 <*, <*,
 <*	,,   F3 H FW <*
,,+oO@! 03DJ@@! 02Da+# <%3,+ ! 03FoO D!6 !+#! <*,,6 !+#( <*, h_D~ZDH H <*,
:H; ~+#$, 03Dp+m 03Dc+m 03D_+%% 03D`+#/ 02D\+#1 <*,, <%3,+ <*, j_D!ZDH H <*,
:H; !+#4,@d3D+# jZDH H#3f+#> <*,,+# H  
 
(33j W+#C <*!,,+# H 0F*d#: H1$+# DL@d D DH 2Da+#t <*$,, <*', h_DZDH H <**,
:H; +#N, 03Dc+m 03D_+%%O@J 03D`+#X 02D\@@J6 J+#[ <*+,,7 J+#L <%3,+ <*., <*1,
 0$2d+#a+#d <*4, <*7,
+#J <%;,*r @0`Od '@@2D]3Db+#i+#j6&O@ <%:,*r @G G0$0d+#n+#o  FG  3 F W FH7&G+#t F FH"&./H  F" D3D+#y <*8,, <*;,,  F96 +#~ Y F97F+$ <*>, <*A,
 <*D,"L $ H  Ds s# <*G,
:s;  +$, <*I,,"L $ F D$ (($(.$.$.!& Fs $.$ D"&/L.  F Ds 2F+$p $3FL+$p $# Ht# HL 
$
 (#7 "hh H+D"&./H  F DG@d D t 3 F}"W.} } F D$ L 3 F{"W.{ { F D6 $.$ Dy t"W/&.y y F D $.6 DS L"W/&.S S (b$G *$
.
.
 ,$
6.
$.
 
0"$
("lL.$8&$3:; +$/:6; +$*:$; +$& t 3 FK"W.K K FW D$ L 3.& FH"W/&.H H FU D6 $.$ DE t"W/&.E E FN D L 3 DC C/6 C (b$G *$
.
.
 ,$
6.
$.
 
0"$
("lL.$8&$P:; N+$M:6; U+$H:$; W+$C &($G s(.s.$.@fs 3D+$i (($G s(.s.$.  Hs $($G $(.$.s. s(.s.$.  s Hs:G; +$!:s; +$@d D"L $ *($
 (..$.  sH *($
 (..$.# sH.$8&$u $"(.Lh!&} F9"(.Lh!&} FN <*L,# <*O,
"L $ FK Ds &($ s(.s.$. <*Q,
:s; K+%,:$; +$ <*S,"L $ FI Ds s <*V,
:s; I+%, <*W,"L $ F{ Ds s <*Z,
:s; {+%,:; "+#w <*\,, <*_,,+o <*b, <%9,0 ^.E D [.E DU <%6,,=5 %- <*d, <*g,
 <*i,, <%4,,- <*l, <%3,-b <%3,
he7z`wxyxEx'xxYxYx)pY[hvDxYxYxYp[TxYxYxYhfvhtLx'xp[T`TtTuhfTs`TqTrxxEX
(TX(TX$+X$+X
$X
!$3X
!$WX
"$[X$X$X$X!$3X!$WX"$[X$X$"X#X#X~(0X
(J(X&X&X&X&X&X&X&X*X0*X}(JX[XnXaXk?XGX}X~(0XaX
$t$L$$'$Xa$XfXk$tXn$$9$G$[XtXv$$[$(y(0+Xy$( X|XX~(0X|XX
$8"(X
$X
$X
"$8X$X$X"$ 8XX$t$LX$$$9$G$[X*X-$$[X0X1$$ [$ "X4$ yX6$yX4$>X8X-$$[X0X;$$ [( 8X4$ yX>(+X4$>XAX-$$[X0X;$$ [( 8XD( +X6$yX4$>XEX-$$[X0X;$$ [( 8XD( +X>(+X4$>XXHXK(v$XPXUXV(DXWXYX^XaXc$HXe$HXXhXm(Xq$8$tXt$9$LX{$9$L$9(
XW$9$LXXXX(
$8$t$$9$9$L$$:X"$8$t$9$LX'$:(2$;((XX-X0X3(-X5(X8($N$"XX#XgX~(0Xk?X
$XaXfX*X~(0X,X
 $$'$Xa$XX1X5$$9$$[X;$$[XX=$$[(sX?(9XA(NXX#`XC$UX`
U, H*p F*p D*o p @*n *n&*q/$ D*o5$*y"*o.&&&.& F*o *o *p *p *o,~], H*~ F*~ D*} p @*|1 ++	"*|&$ (. *|/("*|.$$./d*| *|. ( *| Cp *} *~ *~,~(12A5)(A4,12A5)MAP ZMAP 0
  .TMP .TMP .TMP .TMP Iy \+ <+@,,- <+B, +_D+ZD+ + <+E,
:+; +++, <+F, <+>,, 03$+++6 02d+++6 <+I, +_D+ZD+ + <+L,
:+; +++), <+<,,- <+M, +_D+ZD+ + <+P,
:+; +++0, <+R, <+:,,++8 + 0 F0*d+7 +,~h+7+h+7+h+7+h+7+X
+(0`
X
+(0X
+(0`
#SDY a6EW4=8)=>VTs8Y *U*u*U*G"N<  \+Z p @+Y p B+V p D+X!$ D+X4@,
d+V D+X3 +X++j D+W +[ D+U +Y+X D+Y++m +[ D+W +X D+U+Y D+Y +WF+W!$ D+W +UH+U!& F+U"+U( <,,.Y } <,,.Y+W F+Z <,,.F D+V#+V F+T!(3h+U+, 
+U

+U+\&f+T +T+]+\+T+]+T+[+T(!& F+X +Y3&+X1$+,
!&F+X +Z +X Ap,~p+Y+^x+Zp+Y+^(2A5)SEQINSM@ \, p @, p @, p @, <,, <,#,
 <,%, ,,~P,,$,$,X,P,^,(2A5)SEQOUT    _M@ \,+ p @,( p @,( p @,* <,5, <,9,
p<,;,,+,~P,*,)$,($,*X,(P,)^,+!"X",W*",]4INX+,V@@,K+,O ,c $+,S
&,d	`Z,_
&,f	` HH,^H,_DEVICE NOT AVAILABLE
? RENAME FAILED	`Z(X^. >X.~(3~+,m	~+,xZ. \x <x*<x .ez+,t!"	b+  ",u	b+Z`.Z. h+ggM?}
&,z	b+,h,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*-**,^,~*x,> <-*<-  pZ@-`|+-Pw,~ "p h a`~+-
h$-``~+-S/"+-P,~@@@ @@0@x@@@`edX91,>04,-!"QB- <-,+,SMI 1,>04,- -U+-)MI 1,>04,- -V B- pd"~l"
 B-!"GB-+->I5R1,>04,- & -X B-*\-= pd"~l" B-*\-= p.&d"~l"$ B-*\-= p.&d"~l"
 B-*\-=.&Sp*\-=Xp B-@@- -X B-(FQF- <-,+,EV4i91,>04 "-@+-NS,i@1,>04 "-B+-N_,i@1,>04 "-E+-NK>21,>04 "-G+-NK>401,>04 "-J+-N[<I71,>04 "-L
&-Y @)@. 
"5B-O
&-_,~.
.4SEQIN^-TSEQOUT^-URANDOM^-W-
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>04O@.+-dgR~@1,>04@@.,>,>@6 w+-p".0B+-l!"A`X#p5@-i/#p!"X#p+-p\p+-pa.9'1,>04,>,>O@.+-p,>
6+ _4`-y"`Q@,> <.,,^,> <.",
,^*b-v+.,> <.#,,^7@.+-~,> <.&,
,^+.,> <.(,
,^Z5".,> <.),
,^,7@.,
,> <.+,,^,,> <..,,^,> <.1,
,^(@qd1@,,
1@#+.0@*+.,> <.2,,^+.,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX.p X.p .p .p X.X~.p xC6 1,>04,.>,~[B1,>04,.>,~[B1,>04,.>@,~C61,>04,.>`,~,>e|Pw+.@3!p p*|.@a|+.D ph" ab~+.@,^,~gG@1,>047cp+.P (Bdb+.K..T"+.L..T"TB#p@,~4B.S+P,z0
.T#p+.H  ,~>attempt to take SQRT of negative argKc3@ p p+.dKc3K  ,.d 
,~Kc3J  ,.d ,~Kc3I  ,.d ,~Kc3H4B.z5@.g5".z+D,z0
.fU ,~,>,># $)D/$@,>4d.qX $(F) + .q5F.q5".o"` ,/+.x#  ,> <.|,/\,^@,> <.},/7,^5&.x+P,z0.},^,^,^,~! ,~xxAttempt to raise negative single precision number to non-integer powerKc#@ p p+/Kc#K  ,/ @,~Kc#J  ,/ @,~Kc#I  ,/ @,~Kc#H4B/45@/5"/+D,z0
/U ,~ D/3!$ @/2 B/35"/#`+ /0,/!"B,~+ /(BdB+ /5B/  /3,~ +7`/3+/'`d +D,z0/"+D,z0
/"U `d @6 /2+/ /3`B"`+///5id +/)+D,z0/"#/2,> </6,/\,^ @`/3@,> </6,/7,^+/$U",//2+ /+/! ,~xKc1,>04 p3"/R+/<3b/R+/>+D,z0
/;U ,~+D,z0/=  ,~ D/S F/T@@/S%"j"%/Q)/;`:XD/M5f/EaF+/E.&@(|h&f/S /O/P /P /S/OD/Q@ /S /T,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>04 p4@/q @/[,> </|,/\,^/Z,~{e^bC2|p1,>04 p5`/`4@/q+P,z0/|#p3@/t+/s2 /y+/e3`/y+/e@@/z /t/t+/k)r. !/z/x @/z(|h"/u /u B/{ /v/v/w/w/{/z,~+D,z0
/r /x,~  ,~ 0_i/X3 6P'Ms!hhyI^ *Vh P `@ 6P'M P'M]oxx/[Attempt to take log of negative argI$P1,>04 #p D F	b&".$&$7@"$  (@. &"* 0)@
(@ $ &$.$.&(D(F..  #p**,~.$D.&-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-i&lP1,>04 D02 F02	b	&"j0 D03&" D03S Ao-&0/ "B 03-&0/[p(F{5F0$[w0F+0-+0& ph& `f~+0- "B 03&"t D03-&0/ "B 03&$2 $D 02 02,~ 02 02,~&" "B $D+04Y\06Q<X\06*+6076`07S	YVBG906G906
GJ04GK/K	04h0u0&h0u0$;F30Fi03Fi03:Q0/pX.02pX-02RMSQTE0J/z/8/`K/\
f/UK|/T/>~Z/7c	/Mb&/Tb%/Sb%/Sz/R0/R//Q//Q./P./P-/O-/ORMSQv/E~Z|p/6NX:GYXpX2/3pX2/3pX1/2
~J/'G/
~J/
~I/
~I/S	YVBSo&B	WG/.G/.F/
.E/.V/	WG/PU7RMSQTE./8g/)~IzP/NR:JYXYRMSQTE~J|0.XG
.Sae.HTvF.PaZ.LaY.Kaj.FP3?K~.EP)GS	YVBPU7
cz.3
cf.;-@}P.3koYUlrBKYX<:-b
Y]@.
Y?-d
\!-v{-^-p{-X-l{-O-~{-N.{-N.{-M.{-M-yVBSo&BTE)|-wg,rc-Ulrg1UlrT3UlrC<UlrBKUlr0OUlrBUlr[ZYYXpX.-
pX.-pX--pWb-
&u^
"r:^`->l5m-)A*-':
(-E
8@#x-MlJ-$e,(-CS	YVBDf-JDa-H
_
G--cl`-=
8v:-@Lc-Nt(B-)4zp,\6.AwBP@VKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J",z
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz,h)	D',^="f7c,T}K	`[CV)O,SUTO~n,IHNv
,W5(3|p,=
a,*G,4[,1o,5,9,;	qG,*%q,*u3,)0K,+/83,(
,(1Q,-1Q~ ,-
a,G,[,o,,#,%	qG,%q,u3,0K,/83,
,%u,%u~ ,h04+ZtA+mzA+jG,
[+co+d,,+,?,S,

,	qG+Z+Y+Y'+X+X+W]+W0K+Z+VE+V+Uq+U+T1+81|P+++@?+BS+
_+
s+E	qG++w37P4+P5+P5+P6+0K+
+	D 0
_@?+_@?{+G+
[+o+		qG*}j*}
*|05*}06*~06*~j*j~P*G*y[*to*w	qG*o*o05*o06*p06*p
*n*r~P*q(R{h04Y-%`)na? s%Q97&;G3k'"oi 3o!#(: g(e	p0
W -
!!u"_
	*+5
; A;  u-uA%%l9K&O&Q M3'%j G'Sos(7 {@	t)
k 1
!/!u3"x
	*.Il0A%%	0":"#%s%o9Tc&T '&4m ['Vt(K !(h	u)
 4
!C%<uG)~
	3*1]Au^pe! 9a!)$"#l0UC&%P9sTw&W ;'t?+%E o+ts(#!#D	u'4
	 7
!W!du[*
#aql0iGnADa#C&%q>&!&Z OStS'(?'C!.u(s0!7B	u;2
 9
!k)Suo*
3*42af$A"2
	c]!|&/>s&"&] cStg%S'F!'Xu(
 ;
!)Vv*
G*78A,}
a9}	1e&C?Z3 wRt{)
' >
"!gv*	
[%;-&'a$ADs*\a#8UH	ETRA G":e"#&W%t?[
; @b?)Xv+*

o#f!(+v!)RU"v:E!O$'A#
O DbS)[v?#
#jK5o%` 90
GaZ:v7"'!"&E#E&!?C
c)-bg!jvS#
#j
aIauAoM1'puaD^}'dC&@a%'%u?W`
w)0b{)\{?#!
+#i]f&!oMa+a4?k`W(C'(v	{<
 Gc)_{S*
?%: XJAY u6u!
O&u"@!"),'?&'&e&G]us17'O&{'fz(kR'/N	{3)$
)2c#!m{g#(
S#o%af	ucKab9MK'	 @!^,'%x@&*%&[\z'/K%D'G{((F'C(y	{GC
3)5c7)a{{*
?#namAw\9aP?a "("&#J,;%zz?&++&h&o%Nzs4%C'#'i{'J(I'WQ	{[)'
 JcK!r|#$
S#vtAm
!!i9uYcA$a"=&#L&)$P,O%}zS&.?('`{5s%B'7'l{;KY'kO	{oE
3)6c_!p|##$
g#wU#"A!n
Bc!,,c%~zg&0S&k'c{'2'KM{OTY'(|	|)*
G)9cs)d|7*
{#y
tio8c0>uhXa N3#6&.$p,w0z{&3?+'+b{/9s'N{c`'(K((	|Z
[ Nh_!u|K#+
*8t}##P-1{&6S,'?e{C9's'n{w(;(M	h?T	|+Z
o)>hs)g|_#1
#*;u*uEbAp|!9|Ut"-A"!&e#d3$-&{#rg.'Sd{W'4 ,'p|(O(P	hS)	|?[
)Ai"|s#/
7#~&ay&m;|Md%|i{ -!!$E"QG%-3&{7s{&n,?l{k=/ ,s's|nc(Q	hg)	|S%?
 Ri"
_*
K$0&A[%27{K&95,Sn{%LC'-'t|3owg	h{[
?%>
+ Pi/"
s*
c*>&U{A'>Pa]"FA"+&.e$~o%237{&:#&q,gv|%JW@-("g	i)
Sx
?)DiC"#
#4
s*A,#=}%v	{!&PAs?mmF!!a"FUH3($(T	i#)
gy
S)GiW"'
#4
*D{	{5$a@qF 0 F53"FiK^&!#t%Y2[&K2-'	'8D-C'wGw3(V	i7l
{{
? Xik")
/*
s$zaek
A-ia .! FI5"F}O$"[&55+%X2o=s_&t-#'':L-W'y[('(Y	iK}
{
S Wi)j
C#:
$3zAIyv
!G"a!wiA4-e[?%Z3>&?s8-7;'=X-k'|o(*3(Z	i_

#
g)Jj)m
W#:
*GG(zUAi!;&4!%S%]3&
_>-K'OLX-t~G(]	is

7 
{ [n".
k*
/*I[2zia!|
/&Bs=-_'c'>'\.u~[ 	n_
K 
 `o)o
*!
C$o9z}AQ5{e'ha~A<Fe 1S%c3?&C
&u-s'wO;]n?~+(,o"	ns!
_ 
#)Mo'"0
*$
W$!	?{ 	n	hA!RUU 3A!$e"ng%f3S&W&E&x2
OO`nS
?(."	o$
s 
7 bo;)r
*'
k$5O&A#,atr-!DiV3!ui*{%V8?&k
/&{2s''Acng'}S(1#	o&
_ 
K)PoO)u
#N
$I,A^+V
a}WWb&Ug}1 8S&&HCJ3'3%Iwn{(?(2+.	o/)
s 
_%=oc)x
'#N
$]2!$?\&ik
A7Vaw LA!g; #%T8g&WJ3'%HoS
?9	oC)
 
s!ow"7
;**qStlCI&!/VAL! @{a LU8&!A$ 78{&&KkI3/'3%G'Po#g
S%@	oW)
 
 _!p){
O#X
_3
a3pL5{u' Li>$!!"t K%h9MH3C'Ge3	o7({(5 ?(`	ok)
/ 
 s!p";
c#X[
s -E=
ATLI"!!y&	%#>M= _%k9#N'&NG3W[e oK((7 S(c	o)
C ,
!!p3"@
w#[	qG
w0J
'9@ww1,
P]
w0K	w1-	P^w0KVhw1-Y#-0-"P^w0LQ@Viw1.P_QAViw1.	JGP_:QQAKq~Vj~w1/}P`}QB|Vj|w1/{WL{QBzVkzw10yQCyVkxZ'xQCwVlw+w37QDvv	uw04u}tw05tUs3w0525oM2PH1w061PI0w060w1/'9/PI.w07.w1-%1-8 7(PJ'b'w07&:Q&w1%VT%q$3$PJ#w08#Q,"VU"w1!PK!Q- VU w1@h$S8}aw;PKQ-VVw1\PL[Q.[VVZw1ZW8YaR6:YQ.XVWXw1WW9W0*xQ/VVWVW9U}-PQ/PVXO-KOW:N0NQ0MW:M}LW;L	K{KW;KHNJ7x#JW<IP4Iw9H%pH:GP5Gw1F
h	FP5Ew1EDCD,P6+w1+P6*Q*w1):)5ph(P7(Q'w1'&P7&/7%Q%w1$xP8$Q#w1#W$"Q"w1!)t4!W% }A
QW%QU"W&UJ~QY{AW&
4!+
aQw0r
Q
w0s	.)	Q/E w0sW&BQw0tWp]r8QW5WsQsWQW~w"+E3"W!G
!4!" W W?CMw0\w0]4{w0]/83	WPpVw0^VqUiPUu=TPqTw0^Sw1@S	HN
NPqMw0_MYU(L09jLw1AK&r3KVJPrJw0_IV|Iw1AH
HGPrGw0`FV}Fw1BE	D 0EPsDV}Dw1BC0/C>
]eH:
Fa19V~9Pt8V~8V7V7W6q6w0H5w0I54+w0I*0#*I9gP\w0J=+RM>0ORM>x0(R~j@{\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