Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-09 - 43,50466/srho.exe
There are 2 other files named srho.exe in the archive. Click here to see a list.
?p   ?xgJEpKb)E}.$E`INXQF:{A)'[?{BE@
(#>'C"N+*>	`%h*.%`+  $ DO@ $ D-\'4 $ D X@6 "7b +;(//,' WMU',/,'  SPEARMAN''S RHO',//)    -\A444444-\A444444@@ X@D "Eb +P('-IF YOU DESIRE OUTPUT IDENTIFICATION,ENTER UP TO 80'/' CHARACTERS. OTHERWISE,JUST RETURN CARRIAGE'/)    X@R "VB : Z :1:9S +W(16A5)     X@Y "Zb +^(' ENTER THE NUMBER OF VARIABLES'/) X@ "aB +b(I)   $
3$gO &2fgOA4$q X@h "ib +o(1X,'YOUR RESPONSE VIOLATED A LIMITATION. TRY AGAIN.'/)-\'4+Z-\f444B444 2D+4 X@w "xb +{(' ENTER DATA'/)     4D X@~ "  X@#1B : Z  V3:9 +(10F)+ X@ "BQ"0  X@#1B : Z  V3:9 : : Z  $d$. hV FM3:9
+{.X@ "b : Z :1:9F+(1H-,16A5/)$ D)  D!"$.5d;5X@ "b !+)(1H0,20X, @*25HNON@EXECUTABLE)PROGRAM/1H,, 5X, 5HNOBS=, 2X,,I5,5X,)5HNVAR=,2X,,I5)*+4('NOTE:SINCE,THENUMBER OFOBSERVATIONS$ISdLESS$THAN&10,'/ FM:) ')T-VALUEIS NOT&APPLICABLE') .X@6 "7b+:(1X,'DATAABEINGXPROCESSED'/)+{ X@< "=bD+C(1H1,@25X, :26HWEST.dMICH..UNIVERSITYd$)$.X@D "Eb+J(1H,25X,F 17HCOMPUTER CENTERI ). X@K "Lb+R(1H,25X, 28HSPEARMAN-SYRHO/COMPUTATIOND/)$"$.! D!X$.]D""$.""&."$"$` @"R" D"" D# RD# : Z$@@$X: ZH&d$$.+M D%@@%":Z&5%@&d$$.M5Dg!$D%&3:09c %Fu 3:290 : Z&d$$. M DhV3:09m@@&4:4Z4#hV5Du3:z9q+VD'@@':Z& 'hV5D|!$D'9&+#(FV &3:A9w!$'"''D&+q $X& FYH$ Y D%X%V$=DY1$2YD""DI :XZ &d$$M+D(($)D(+:-Z&+(&d$$.M5$&d$$.&?M D(!&D(&3:9 `5D X@ "b +(' INPUT? (TYPE HELP IF NEEDED)--',$)    $2D`+ X@
 "b +(' OUTPUT? (TYPE HELP IF NEEDED)--',$)   `X@ "  vX@#2  vX@#1B j4 +(50A1)     J2DmgO K2FmgO K2HlgO 
L2Jlg
O
 
L2Lkg
O
 L2NkgO M2PjgOAA
A
AAA4$v J2DmgO J2FmgO J2HlgO 
M2Jlg
O
 
N2Lkg
O
 N2NkgO K2PjgOAA
A
AAA4$} J2DmgO J2FmgO J2HlgO 
O2Jlg
O
 
O2Lkg
O
 M2NkgO K2PjgOAA
A
AAA5$O $.`6b0b7+M44B-\$4^ $A` &3FgO (3HdgOG4&Y-\(44P4P4d@@d@@e@@e@@f@@f@@g@@g J Da J Db J D_@@h@@h:h $3$h+ Q h2Dj+e $ Dh Q h3Dj+k R h3Dj+w R h3Dj++` $.h De $.h DY : Zi hh Dhj2zY=o!: Zi h. J Fj1:9r $.Dh+` $.h Df $.h DZ : Zi he Dhj2zZ={ $.h DZ h Zi J Dhj3:Z9 $.Dh+` h Df+` f4D  X@#1 " $.f D[ &.f  Zi  j3:[9
   X@#1 "bgg +(2O)  h5D $.e D[ &.e  Zi J2Dhj+2z[= $ Di i Q Fj  aX@#1 " $.e D\ &.e  Zi  j3:\9   e4D*  _X@#1 " : Zi j1:9'  f4D7  X@#1 " $.f D\ &.f  Zi  j3:\90   X@#1 "6bd +7(I)   J2D_+D J3Da+; S D_+D"$3Da+> S D_+D $A`5DA T D_ $A` &2F+D T D_-\&4_4^ S3D_+[ T3D_+N U2d_gO U3&_gOA4$[+F V Da V Db $ Dd ^ Di-\&4
W4^-\'"4^4a4j $3Dj+Y $.Db+T a D b D	 J2Da+c $A`5D_ X Da $A` &2F+b X Da Y Db $A` &3F+r-\'"4^4a4j4g4g j4Dr _X@k "lb +o(' FILE DOES NOT EXIST'/)"$2Da+q-\*)+-\$4^4W4e4
a4g4g+F $2Dd+x-\$4i $2Dd+|-\(44P4P4d-\*) ^X@~+F _X@ "b +|('-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.'///)     _X@~ "bcc +=(' 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.'///)-\$4_ $.`6b0b7+A44 _X@D "Eb +@('-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'///)    +=+F4 Z] \]  ^,!p,!p,!p,!p,!p,!p+ ] ]\ a/ ,Ap,Ap,Ap-|p     H    S    I    N    F    E    M    A    P    L    .    :    [    /    DSK  TTY  CDR  LPT  DTA0 DTA9 OUTAAA.AAADSK  INPUTOUTPT.DAT [    ]    @@v@@t@@w $( Dw@@x u5D-\*) $2Du+ sX@ "b +(' FORMAT'/)    $3$u+ sX@ "b u ! +(' FORMAT: (',A1,'-TYPE ONLY)'/)    sX@ ""B : Zx y1:(9 +$(80A1)     $3Dw+2 n2DzgO o2FzgO o2HygOAA5$-+k : Zx .t p F3:u9. $ Dw $3du+5 $$u Dw : Zx p2Dhy+:3:w96 $ Dt+k p x2Dy+9 $ Dy wX@A y.t  X@#1 "E : Zx y3:w9B +F(80A1)     : Zx p2Dhy+I:x q2Dhy+K>x3:w9G $3dx+N+k $.Dy $.y3du+T $.u/y$$ Dw $2dw+[ sX@W ""B : Zx y1:(9X += $2Dv+]-\*) sX@_ "`b +d(' ERROR IN FORMAT, TRY AGAIN.'/)   $ Dv+
+k4 Zq \r  r,!p,!p, p,!p,!p,!p+	 q r\ u/ ,Ap-|pM    A    S         (    )    I    F    A    + -4 #  "Q * " Z" \"
  "
,!p $A"
1DgO !8"X8*8 " "
-|p+"64". \"-|",!p-\"#4"J!8"3D"+ : " D" $t2$"+ = $t D" $/" "7 .&((. D" $/" "7 .&((. D" "5D I " Ib + N(' % FISHER: ZERO DEGREES OF FREEDOM WITHIN')-\&^4" @"-\&^4""" @"!$"!& F"-\ #4"4  `-\ #4"4  [ "" D" "" D"+ o-\%24" @" "D" D"""D""`"+ o-\ #4"4  h "" D"-\%24" @" "D"" D"+ o-\%24" @" " D" """ D" "D-\%4" @" "D" D" $."2d"+!-\ .4"4 ! $."  Z" "$. D"-\&^4" @"-\&^4"" "" @""$. D"-\&^4" ""F".:3z"+ v+!@@" "$."` @"-\&94""@3 "+!"$."7 .$( " 
,%o H" -\&^4" ""  @"-\&^4"" @" "" """"""  
"
" D" "" D"!$D""$." D" $."2d"+!. $."  Z"! ". D" "$. D"-\&^4" "" @"-\&^4" " @"-\&^4"  ""D""`".:3z"+! !$" D" "5$!1@@"+!2!$ D" " D" $t3$"+!5+!{ "5$!8 "!8b +!<(' % FISHER: NEGATIVE F-VALUE')    -\%24" @"-\"=4" @"@"!`"!$z!&"!" D"+!{@@"" " D"" " D"# " D"#!$3d"#+!O $ D"" "# D"$ "" D"# "$ D""!$D"# $$"" D"-\&^4"!& F"$ $$"# D"-\&^4"!& F"%"""$ "# 
",%J!&"%WD"-\&b4"@""#",%M"%"$D"-\%24""F"$3d"#+!k-\&^4"#@""""$"D"""""""""$D"!$"D"$2D""+!u""D""`"+!{4"Q*"Z"\"",!p,!p,!p+#!2"X2*2""""\",Ap,Ap,Ap""-|p"0t/L"F "M"M"F "M"G "M"M"G D"M "KD"D"L-\&4"L"H @"N "M"N D"L "K4d"<""HD"L"`"L+"A4 D"I F"I Z"J \"J  "K,!p+"% "I "I "J "J\ "K,Ap "L-|p]S=t80&vh|9 <@;b =w* 5$3,yD 0 \#3 @#4<#;0<0|+1\+"\,>p"MZp"M+p@h"@p"@(#@0##@x#@#@8#%@(#@P#@P#@h"@"d@ "d@"@"2 #[(/<0"`S<pX<0 p3@#<+"c*|"-<#IZ`"N+#!  @w+"`<#= p7 p+",>,>,> &w p,"z,&.<7@p+"x p,"z"#= #+.< p`#> w,&,&5 "j.< pd#>:." Q,& p,&>`9"u.<9"j@@,^,^,^+"d @@& 0b.".")B}5@"{,~m<!<P\#/<#= p[pl<0@X+#Zp.</ pQ \#0+#@@#0!<P\#/7@#2+# <#3 \#1@@#2!<P\#/XX\#/ #?7@#1D<7@#2A< \#0 <#/[`x #4,x,^x #3+"N "NQ< \#/:"N  \#0<#? p#+|#@ < \#0@@#1+#@@#0 Q< \#/<#? p#+|#@+#7#B #C \#0 @#"XQ< \#/ #D \#0+#[`x #4,x+#*Z \#/@@#0@@#0<#= \#1+#7#2 #1X\"N@@#2@@#1+#>x! Z @
&#DU`eB+#:@)@G 
"+#7
&#H+$Q6$1,>*+.@
p.46$5#).
.4#0.#/SEQIN@#ASEQOUT@#B@#"
%5 Source level error at user's loc	
	`Z(X^. >[.~(3~+#M	~+#YZ. \x <x*<x .->&hez+#T!"	b+  "#V	b+Z. h+ggM?Th
&#[	b+#I,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*#~**,^,~*x,> <#~*<$  pZ@#t@@#u@@#u $5`|+#hPw,~ "p h a`~+#nh  ``~+#o$$6!#pd$6/"+#iP,~@@@ @@0@x@@@`edX91,>*+,>Zp @#t\`#t <#t,,^,~SMI 1,>*+,#a $8 B#t+$_MI 1,>*+,#a $9 B#t+$I5R1,>*+,#a $; B#t*\$#7ApX"$; B#t/& pd"~l" B#t*\$#/& pd"~l"$ B#t*\$#/& pd"~l"
 B#t*\$#Sp*\$#/&Xp B#}@@#~ $< B#t*\$#/& pd"~l" B#tRF#t <#t,+#_EV4i91,>*++$0S,i@1,>*++$0_,i@1,>*++$0K>21,>*++$0K>401,>*++$0[<I71,>*+
&$= w @)@. 
"5B$2
&$C,~`.
.4SEQIN^$7SEQOUT^$8RANDOM^$:SEQINOUT#}
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
a.3@1,>*+O@%+$HgR~@1,>*+@@%,>,>@6 w+$T"%0B+$P!"A`X#p5@$M/#p!"X#p+$T\p+$Ta.9'1,>*+,>,>O@%+$T,>
6+ _4`$]"`Q@,> <%,,^,> <%,
,^*b$Z+$g,> <%,,^7@%+$b,> <%
,
,^+$d,> <%
,
,^Z5"$g,> <%
,^,7@%,
,> <%,,^,,> <%,,^,> <%,
,^(@qd1@,,
1@#+$v0@*+$h,>%<%,,^+$h,^,^,^,~('eTypeGtohContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOP.pX$~pX$p%pj%p+X$xX~$}pxCR4B%?+P#Z0
%A#p+%4  ,~>attempt to take SQRT of negative argKc3@ p p+%PKc3K  ,%P 
,~Kc3J  ,%P ,~Kc3I  ,%P ,~Kc3H4B%f5@%T5"%f+D#Z0
%SU ,~,>,># $)D/$@,>4d%]X $(F) + %]5F%]5"%\"` ,%u+%d#  ,> <%h,&@,^@,> <%i,&,^5&%d",^,^,^,~! ,~xxKc#@ p p+%uKc#K  ,%u @,~Kc#J  ,%u @,~Kc#I  ,%u @,~Kc#H4B&5@%x5"&+D#Z0
%wU ,~ D&!$ @& B&5"%#`+ &,%!"B,~+ &(BdB+ &5B%~  &,~ +7`&+&`d +D#Z0&+D#Z0
&U `d @6 &+& &`B"`+&/&id +&+D#Z0&#&,> <&,&@,^ @`&@,> <&,&,^+&U",%&+ &+%|! ,~xKc1,>*+ p3"&7+&!3b&6+&#+D#Z0
& U ,~+D#Z0&"  ,~ D&7 F&8@@&8%"j"%&5)/;`:XD&15f&*aF+&*.&@(|h&f&8 &4&5 &4 &8&3D&6@ &7 &8,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>*+ p4@&P @&?,> <&Y,&@,^&?,~{e^bC2|p1,>*+ p5`&D4@&P+P#Z0&Y#p3@&S+&R)r. !@&W! n@&W(|h"&T &T B&X &U&U&V&X&W&V,~+D#Z0
&Q &W,~  ,~ 0_i/X3 6P'M 5( bB W
R `@x&?ATTEMPT TO TAKE LOG OF NEGATIVE ARGM2|1,>*+ p+&`M3!d`,~C1,>*+#p,~S01,>*+#p+"&g,~U ,~!$hX$h@@h*% "&o BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHI4:1,>*+Z.@6kp2j8M+' !pQ A` '	\$}
4L'/,L8$'.
8L F(,~H?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

&'	 <',
iSN,>*+@ApO
,7 OAp,~I5r1,>*+O@
,4"','m``,~ <',
44'4'JKbN=1,>*+O@'J p4B'&,'m4@'&9'*9'(KbN=1,>*+@@'J!$Lu 	`@Ap``a`+'Ha`+'I D' A (`'./"#B' @@'! !pX@',> <','P,^7@'J+'5OAp+'I #pQ"A` $1@+':0`=d'6! H: @'@@'a|+'@[pd0@ +'D[pd0@ +'D+'C_w6@'J_w#`1 +'DSpXp @'
' +'G@'+'H+'I
&'K+'I   Ap ,~ ERROR ON OPEN!
HH'OH'OG.t21,>*+@@Ap! A`.!p @'M 'M @'N@@'O@@'O & "'M<1D+'\-'g=b'W'M<0D+'dO " 'N @'N'M<-'g=b'^7@'OOAp !p<, 'O, 'O,~<&'`'M1D+'c   Ap+'`1D+'c1$+'`1d+'l0$ 0d-+'` $D'N+'g"(	,(0@+( p4B(Lad+(`b+( $0d"+(&$$&(&}Z.G(
.&$.$ 7F+'{  ,~ A$&$(DG$1$((D(D
 	`5@( .2bM+( L.&7D!$Lu+(2"(
+( &p,( 	`,~
&( <(,
.p M}ILLEGAL DEVICE NUMBER!
"(,( 'Q&A` (@1x,~180.8X=`(,~.H  a|+(0"0b/ ,~0B1B,~0B/ ,~aJMm1,>*+,)e+(:@,),)a+(:Z"6Ep " B` "b(B $7cp $1B $d(C,(<,)-+(;6cp0b "b(C$(o ({."XB`&$@6@.$.$
a|+(3[pdp0B +(7+(5_w#`1"+(76cp 0d $QD`,(x+ ,)l ,~
&(D+(8
&(F+(8@b -p .Q,A` 
(H4P(B1P+(I/0P=n(>,~`
``
CANNOT INIT DISK!

FILE NOT FOUND!
HH . 
(I+(>YC GaSa3 S;YC&<G<aS<a3&<E$;w|x(P P(K B`1T!"L	b@XB`O@(k )} (j@,)l
+)u!,2,)V@!.~,)l`+)}""1T""QB(i,)l+* 6`
 *1T * B` " B`\"
	b@ B`\"	b!"Z(Brb*	b
 B(k	b
+  B`!"2	b`b`b+))!"2	b `2B`+))!$2	d!$Lu+), *	b * *		d!$Lu B(j D(j,~@@(m *	*((t B(n D(n BX B` DXZ(l(D}	d ` D(m DX "2D`b*
d  "b*
,)l@(m+*X(t*BX@@(t`*`+)Cl !"GBX"*
0B+)S,)g+)P )} (t@,)l
+)P!,2,)VB,)l"X
(n (o,)l +)P JX,)l +)d
&* "b*
a`+)N+)7a`+)N,)l (m+ +)N 	x H)^	h	&(2 
P(K *.(k &..0P`bp+)Zd
@ (j,)l+)^`L+)X (j+)d (!*Lu@
,)l
,~:x,~ " B)|O@(lO@(lg "?$)|+)t	d5D)h )|(D D(l+)d,> e`p+)p7 (l+)sl!(l+)q7 (l+)sl!(l:+@>,^+)d
&*,~ "
&*,~ "
&*,~,){
&*$
& ,){	b (*%+)x
&*(,~@;`(k+(|+)v
(P0CMQ Cannot do MPB QUEUE on GALAXY system. (*+)x`` `P$` h
XHXa`,~!"GB`+)N@(t6$(o
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0NO FREE CHANNELS!

% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!

% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMRCNC Can't CONTINUE -- try REENTER
KbN@1,>*+,
,~*,Y\*-Q<X\*.*+