Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/kentau.exe
There are 2 other files named kentau.exe in the archive. Click here to see a list.
?p @ ?x WvH:Kb)C}-DC` INX Q F: { A) '[{B E@W (#sX y
4 <4 <4 q4 >4 44 5 $ 2D >+ I 5 D q <X@ K " Lb + P(' ','ENTER NO. OF VARIABLES.'/) <X@ Q " aB ? $ 3d ?g O &
2& ?g O G 4$ X+ b <X@ Z " [b + _(' ILLEGAL NUMBER OF VARIABLES.'/) "$ 2D =+ a-\ %d+ I+ b(I) <X@ d " eb + i(' ','ENTER MISSING DATA SYMBOL.'/) <X@ j " lB ? + m(F) <X@ n " ob + s(' ','ENTER IDENTIFICATION'/) <X@ t " xB : Z @ 1: 9 u + z(16A5) 63D >+ <X@ } " ~b + (' YOUR DATA IS BEING READ.'/)+ $ 2D >+ <X@ " b +
(' ENTER DATA (AT MOST 10'PERELINE)'/)/)@$ 3D >+ X <X@ qQ" 0 $X@ ,B : Z A $
$ @. 3: ?9 $ d3$ @+ + <X@ " b + "(' TOO MANY OBSERVATIONS'/) "$ 2D =+ $-\ %d+ @> @ ;X@ & " 'b + ,(15X,'KENDALL TAU CORRELATION MATRIX'/) ;X@ - " 1b : Z @ 1: 9 . + 3(' ',16A5) : Z @ : Z A : Z A &
$ . @ Dh` &
$ . A DhD3: @9 6@@ B : Z A ?3Dh`+ E ? A3DD+ E: B B A ` F` B A D FD A3: @9 = B D B"$ . B5d Y " Lb A @ + P(' ','FEWER THAN 2 DATA PAIRS AT ',2I3) $
$ A. @ 6 F> $
$ A. @@@ $
$ @. A@@ + + Y(' ',10 F 7.0) -\ 64 a4 B4 C+ ](' ',10F7.2) -\ 64 E4 B4 C@@ D"$ . B D 8 : Z D $ . Z E"hD DD"h`` D E E4D l5d k" 7D D+ l!$ D D E3: B9 d D3: 89 b` B @ F" 7 F FF D F" C F4d v" C F5d ;X@ w " yb A @ + |(' ','S.D. = 0 AT',2I3) $
$ A. @@@ + " C F D 9-\ "4 9 @ 9" C F F :-\ "4 : 9 D *
$
A.
@ H( $
$ @. A (
$ A. @ F "$ . B4$ "$ . B & $ B$ D 9-\ "%4 9 @ 9 B( ( . H :-\ "%4 : 9 @ :-\ "4 : ,
$
A @.
8
J8>+ $
$ A. @ 6 F> A3: @9 4 @3: ?9 3 : Z @ ;X@ # " *b : Z A $
$ . @ 3: @9 $ @ 3: ?9 !+ ,(' ',10F7.4) <X@ - " .b + 2(' WOULD YOU LIKE Z-VALUES?'/) <X@ 3 " 5B F + 6(A3) 72D F+ M ;X@ 9 " :b + =(///' ',20X,'Z-VALUES'//) : Z @ ;X@ ? " Gb "$ . @ D 8 : Z A &
$ . @>3: 89 B @ 3: ?9 =+ I(' ',10F7.2) ;X@ K " Lb + M(///) <X@ N " Ob + T(' WOULD YOU LIKE PARTIAL CORRELATIONS?'/) <X@ V " 5B F 72D F+ @ <X@ Z " [b + a(' ','ENTER VARIABLES TO BE PARTIALLY CORRELATED'/) <X@ c " zB G G G4D @ G2D Gg O ?2& Gg O ( 3h Gg O * 3j Gg
O
?2, Gg
O
G
G G G 4$ s+ { <X@ t " ub + x(' ERROR ABOVE!'/) "$ 2D =+ z-\ %d+ Y+ {(2I) <X@ } " ~b + (' ','ENTER VARIABLE TO BE PARTIALLED OUT'/) <X@ " aB H $ 3d Hg O ?2& Hg O G2H Hg O
G2J Hg
O
G G G 4$ + <X@ " ub "$ 2D =+ -\ %d+ { &
$ G. H $ (
$ G
H.
( & D 9-\ "4 9 ( *
$
H.
G (
G.
( "F H ;X@ $ " 'b G G H H + 0(' ','PARTIAL OF VAR',I3,' WITH VAR',I3,' WITH VAR',I3,' PARTIALED OUT IS ',F8.5/) + Y-\ %d-\ %d+ + 0 0 (10F)TTY "_ zp 0 YES @@ ? : Z @ : Z A @/ 4D 1 @. > A. > 5D 1!$ D ? A3: ?9 + @3: ?9 * ?D D ?+ :4 Z = \ = >, p ,!p ,!p + ) = =\ ?,Ap -|p 5D ) X@ ( " )b + -(' INPUT? (TYPE HELP IF NEEDED)--',$) $ 2D + 1 X@ 0 " 1b + 6(' OUTPUT? (TYPE HELP IF NEEDED)--',$) X@ 9 " ; X@ - X@ ,B 4 + =(50A1) q2D g O q2F g O r2H g O
r2J g
O
s2L g
O
r2N g O s2P g O A A
A
A A A 4$ q2D g O q2F g O q2H g O
t2J g
O
t2L g
O
u2N g O r2P g O A A
A
A A A 4$ # q2D g O q2F g O q2H g O
u2J g
O
v2L g
O
t2N g O q2P g O A A
A
A A A 5$ u $ . 6b 0b 7 +t4 %4 i-\ }4 $ A & 3F g O ( 3H
g O G 4& -\ #X4 /4 v4 w4 @@
@@ @@
@@
@@ q D q D q D @@ @@ : $ 3$ + + w 2D + $ D x 3D + x 3D + y 3D + )+ $ . D
$ . D : Z h Dh 2z = !: Z . q F 1: 9 $ .D + $ . D
$ . D : Z h
+Dh 2z = ! $ . D Z q Dh 3: 9 & $ .D + D
4D 8 *X@ , " ; $ .
D & .
Z + O 3: 9 1$ . *X@ , " 7b
D & .
Z q2Dh + @2z = < $ D w F X@ , " ; $ .
D & .
Z 3: 9 G
4D P & X@ ," ; 9: .Z 1: 9 M + ](I) q2D + k q3D + b y D + k"$ 3D + e z D + k $ A 5D g z D $ A & 2F + k { D -\ "@4 4 y3D + {3D + u {2d g O |3& g O A 4$ + m | D } D $ D
D -\ "@4
}4 -\ "\4 4 4 $ 3D + $ .D + z D / D / q2D +
4$ A 5D ~XD $ A & 2F + L ED T SD "$ A +& 3F + -\ "\4 4 4 4
4 m $ 2D
+ -\ }4 $ 2D
+ #-\ #X4 /4 v4 w4 -\ %d X@ $ + m 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@ $ " &b
+ d(' 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 $ . 6b 0b 7 + g4 %4 - X@ j " kb + f('-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'///) + d+ m4 Z \ ,!p ,!p ,!p ,!p ,!p ,!p + % \ / ,Ap ,Ap ,Ap -|p H S I N F E M A P L . : [ / DSK TTY CDR LPT DTA0 DTA9 OUTAAA.AAADSK INPUTOUTPT.DAT [ ] @@ @@ @@ $ ( D @@ 5D 4-\ %d $ 2D + 8 X@ 7 " 8b + :(' FORMAT'/) $ 3$ + ? X@ = " ?b G + C(' FORMAT: (',A1,'-TYPE ONLY)'/) X@ E " IB : Z 1: (9 F + J(80A1) $ 3D + Y 2D !g O 2F g O 2H g O A A 5$ T+ : Z . F3: 9 U $ D $ 3d + \ $ $ D : Z 2Dh + a3: 9 \ $ D + 2D + _ $ D X@ g . X@ , " k : Z 3: 9 h + m(80A1) : Z 2Dh + p: 2Dh + r> 3: 9 n $ 3d + u+ $ .D $ . 3d + z $ . / $$ D $ 2d + X@ } " IB : Z 1: (9 ~ + d $ 2D + -\ %d X@ " b +
(' ERROR IN`FORMAT, TRY AGAIN.'/) 7+$ *D + 0+ 4 +Z ,\ .< ,!p ,!p , p ,!p ,!p ,!p + 0 \ /& ,Ap -|p M< Ap Sd 9: (" ) I F A \ . @ /< 60< 0| + 1\ + W,>p HZ p H+ p @ h z@ p z@( @0 @ x @ @8 @( @ P @ P @ h z@ @ @ z@ zP
@@ + Q< \ *< : p &| ;+
7 = > \ + @ X Q< \ * ? \ ++
[`x /, x + %Z \ *@@ +@@ +< 8 \ ,+
7 - ,X\ I@@ -@@ ,+
>x ! Z @
& ?U` eB + 5@ )@ G
" + 2
& C+ !L6$ 1 ,> %f. @
p .4 6$ 8 $.
.4 +. *SEQIN @ <SEQOUT @ =@
%5 Source level error at user's loc
` Z (X^ . > [.~ (3~ + H ~ + TZ . \x <x *<x .-> ")ez+ O!" b + " Q b + Z . h + gg M?Th
& V b + D,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* y** ,^ ,~ * x ,> < y*< | p Z@ o@@ p@@ p !0`|+ cP w,~ "p h a`~ + ih ``~ + j$ !1! kd !1/"+ dP ,~ @ @ @ @ @0 @x @@ @` edX91 ,> %f,> Zp @ o\` o < o, ,^ ,~ SMI 1 ,> %f, \ !3 B o+ !_MI 1 ,> %f, \ !4 B o+ !I5R1 ,> %f, \ !6 B o*\ ! 7Ap X" !6 B o/& p d"~ l" B o*\ ! /& p d"~ l" $ B o*\ ! /& p d"~ l"
B o*\ ! Sp *\ ! /&Xp B x@@ y !7 B o*\ ! /& p d"~ l" B oRF o < o, + ZEV4i91 ,> %f+ !+S ,i@1 ,> %f+ !+_ ,i@1 ,> %f+ !+K>2 1 ,> %f+ !+K>40 1 ,> %f+ !+[<I71 ,> %f
& !8 w @ )@ .
" 5B !-
& !>,~ ` .
.4 SEQIN ^ !2SEQOUT ^ !3RANDOM ^ !5SEQINOUT x
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> %fO@ !|+ !CgR~@1 ,> %f@@ !|,> ,> @ 6 w+ !O" !}0B + !K!"A`X#p 5@ !H/#p !" X#p + !O\p + !Oa.9'1 ,> %f,> ,> O@ !|+ !O,>
6 + _ 4` !X"` Q@ ,> < !~, ,^ ,> < ",
,^ *b !U+ !b,> < ", ,^ 7@ !|+ !],> < ",
,^ + !_,> < ",
,^ Z 5" !b,> < ",
,^ , 7@ !|,
,> < "
, ,^ , ,> ,< "
,^ (@qd 1@ ,,
1@ #+ !q0@ *+ !c,> < ", ,^ + !c,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X !y p X !z p !{ p !| p X !s X ~ !x p x gG@ 1 ,> %f7cp + " (Bdb + ". " "+ ". " "T B#p @,~ 4B " +P U0
"!#p + " ,~ > attempt to take SQRT of negative arg M2| 1 ,> %f p + "(M3!d ` ,~ !$h X$h @@h *% " "0 Bh L " Bh M+ x eX2G iSH YC aS iSH INX G YC GSH iSH aS aS I' IR
IR
IR
0 IR
@ IR
P IR
` IR
p [R
[R
[R
M?L@INX INX INX INX INX I2 I2 I20 I2@ G iSH I4:1 ,> %fZ .@ 6kp 2j8 M+ "Q !p Q A` "J\$}
4L "H/, L 8$ "F.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& "J < "P,
iSN ,> %f@Ap O
, 7 OAp ,~ 4 4 "X4 # KbN=1 ,> %fO@ # p 4B "`, #(4@ "`9 "d9 "cKbN= 1 ,> %f@@ #!$Lu ` @Ap `` a` + #a` + # D "[A (` "i/" #B "Z@@ "[ !p X@ "W,> < "W, # ,^ 7@ #+ "oOAp + # #p Q"A` $ 1@ + "t0` =d "q! H: @ "Y@@ "Za|+ "z[ p d 0@ + "[ p d 0@ + "+ "}_ w6@ #_ w#` 1 + "Sp Xp @ "Z
"Z+ #@ "X+ #+ #
& #+ # Ap ,~ ERROR ON OPEN!
H H # H #
G.t21 ,> %f@ @Ap ! A`.!p @ # # @ # @@ # @@ #
& " #< 1D + #- #!=b # #< 0D + # O " # @ # #< - #!=b #7@ # OAp !p < , # , #
,~ <& # #1D + # Ap + # 1D + # 1$ + #1d + #&0$ 0d -+ # $ D # + #!" #D, #Q0@ + #@ p 4B #BL ad+ #?`b+ #@ $ 0d "+ #B&$ $& (&}Z .G #D.& $ .$ 7F + #5 ,~ A$ &$ (D G$1$ ((D (D
` 5@ #B .2b M+ #> L.& 7D !$Lu+ #A2" #E+ #; &p , #I ` ,~
& #E < #H,
.p M}ILLEGAL DEVICE NUMBER!
" #P, #Q ' Q&A` #P@ 1x ,~ 18 0.8 X =` #L,~ . H a|+ #T0" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> %f, % + #t@ , $I, %+ #tZ" 6Ep " B` " b #} $ 7cp $ 1B $ d #}, #v, $h+ #u6cp 0b " b #~$ $* ({." XB` &$ @6@ .$ .$
a|+ #m[p d p0B + #q+ #o_w#` 1" + #q6cp 0d $QD` , $3+ , %& ,~
& #~+ #s
& $+ #s@b -p . Q,A`
$ 4P #|1P + $/0 P =n #y,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
$+ #yYC G aS a3 S; YC&<G<aS<a3&<E$;w |x$
P$ B` 1T !"L b @ XB` O@ $% %7 $%@ , %&
+ %/!, 2, %@ !.~ , %&` + %8"" 1T "" QB $#, %& f + 1$ 9 $C+ % 8 $
@` $
%:*( $# %: n @ `N + %? 6`
%@1T %A B` " B` \"
b @ B` \" A b !" Z (Brb %B b
B $& b
+" `B` !" 2 b `b `b + $c!" 2 b !` 2B` + $c!$ 2 d !$Lu+ $f %B b %C %C d !$Lu B $$ D $%,~ @@ $( %D*( $. B $( D $) BX B` DX Z $&(D} d ` D $( DX " 2D` b %Dd " b %E, %&@ $'+ %E $. BX @@ $/ %H b $+ $x!" $0X"X *"X !"`
%7 $.@ , %&
+ %
!, 2, %B , %&" X
$) $), %& + %
JX , %& + %
& %I " b %Da` + % + $ra` + % , %& $'+ + % x H % h &( 2
P$ %O. $& &. .0 P `bp + %d
@ $$, %&+ %`L+ % $$+ % ( !*Lu@
, %&
,~ : x ,~ " B %7O@ $&O@ $'g " ?$ %7+ %. d 5D %" %7(D D$&+ % ,> e` p+ %*7 $'+ %-l! $'+ %,7 $&+ %-l! $&: +@ > ,^ + %
& %O,~ "
& %Q,~ "
& %W,~ , %6
& %_
& , %6 b ( %_+ %2
& %c,~ @ ;` $%+ $7+ %1 A($ 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( %;+ %2`` ` P $` h E $(
X HX a` ,~ !" GB` + % @$/6$ $)
% Cannot do DISPOSE:RENAME. DISPOSE:DELETE assumed.
0 NO FREE CHANNELS!
% CANNOT OPEN QUEUE DEVICE!
% PLEASE NOTIFY OPERATOR!
% CANNOT ENTER QUEUE REQUEST IN QUE UFD!
% PLEASE NOTIFY OPERATOR!
?QMR CNC Can't CONTINUE -- try REENTER
KbN@ 1 ,> %f,
,~ %fY\ %hQ< X\ %h* +