Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/nonpar.exe
There are 2 other files named nonpar.exe in the archive. Click here to see a list.
?p @ @
@ @
` ?x ]>v9Kb)C}1tC` INX Q F: { A) '[ {B E@
Q (#sX y H O*> ` xpH OG xhO $ D L $ D V"$ D UO@ U UX@ 5 " 6b + :('1',20X,'WMU NONPARAMETRIC PROGRAM') UX@ < " =b + >(///)-\ L14 M-\ Di4 V4 M4 U4 U4 I4 M-\ Di4 L4 N4 U4 U4 J4 M UX@ G " Hb + L(' THE NUMBER OF VARIABLES = ',$) UX@ N " OB I + P(I) $ 3d Ig O &
2& Ig O G 4$ -\ F4 U4 U4 Q4 N4 J4 K $ 2D N+ [ K D Q UX@ ] " ^b + a(' MISSING DATA SYMBOL = ',$) UX@ c " dB O + e(F) $ 3D N+ n L2D N+ k UX@ j " kb + m(' ENTER DATA'/) + w L2D N+ r UX@ q " rb + w(' ENTER DATA (NO MORE THAN 10 PER LINE)'/) @@ J: J LX@ { " QQ" ( X@ H{B : Z O $
$ J. o3: I9 | $ d3$ J+ + w> J UX@ " b J + (1X,I4,' CASES WERE ENTERED') : Z O $ D P : Z P O &
$ . O3Do+ $
$ P. O (
$ . O o Fo: P3: J9 "$ . P O DJ O3: I9 + % UX@ " b + (' TOO MANY OBSERVATIONS'/) + B UX@ " !b + %(' ILLEGAL NO. OF VARIABLES'/)+ F UX@ ' " (b + ,(' ENTER CODE FOR TEST DESIRED.'/) UX@ - " OB Q 6b Q0b 7 +04 <4 =4 >4 ?4 @4 A4 B4 C4 D4 E4 F4 B UX@ 8 " 9b + <(' ILLEGAL CODE'/) + %-\ h+ %-\ |+ %-\ X+ %-\ }+ %-\ 6+ %-\ M+ %-\ %s+ %-\ (x+ %-\ ,X+ %-\ .+ %-\ 0++ %-\ OB+ + 0 ( (10F)TTY VX@ X " Yb + [(10X,46('*')) VX@ \ " ]b + `(/25X,'CHI-SQUARE'/) VX@ a " Yb UX@ d " eb + j(' ENTER PAIRS OF VARIABLES TO BE ANALYZED.'/) UX@ l " nB m4 + o(40I) : Z o hm5D r0z = o+ b o7 .$ ( D o o( D l : Z o I2$hmg O & 3fhmg O G 4$ `3: l9 w : Z o ( D p"$ . p D p p m D q p m D q!: Z r@@h|@@h!: Z r $
$ . r@@1:
9 r1:
9 : Z r &
$ . q o@ @ s &
$ . q o@ @ s s0$ g O &
2& sg O G 4$ O s0$ g O &
2& sg O G 4$ O!$ &
$ s s. D !$ sD|!$ sD3: J9
:
Z r h5D '0z = $ r D t :
Z r h|5D +0z = ( r D t VX@ - " /b q q + 5(//5X,'ROW VARIABLE',I3,' VS COL VARIABLE',I3) VX@ 6 " 7b + =(4X,'ROW',13X,'CONTINGENCY TABLE'/' TOTAL'/) VX@ > " Bb !: Z r 3: t9 ? + C(9X,15I4) !: Z r VX@ F " Mb rh|!: Z r $
$ . r3: t9 H r 3: t9 D+ Q(I3,F5.0,2X,15F4.0/(10X,15F4.0)) VX@ S " Wb !: Z r 3: t9 T + \(' COL'/3X,'TOTAL',2X,15F4.0/(10X,15F4.0))@@ u@@ u!: Z r h|D u3: t9 ^!: Z r!: Z r h r | u D v v4D i" v &
$ . r vD u3: t9 a r3: t9 `@@ v@@ w!: Z r h4D p!$ D v h|4D r!$ D w1:
9 n" k w" k v D w u u( u UF n-\ Jt4 n/@ xH u uPD x-\ Ja4 v4 wR@ y!$ 3D y+ " k yT x OF n-\ Jt4 nF@ y+ !$ AD y-\ K{4 w @ n-\ G4 u4 n4 z! VX@ g" O !& 3F vg O G 4$ M@@ z@@ {!: Z r h5D ) r |5D ++ -: z z r F+ ': { { r F r1:
9 % &
$ . D v &
$ . D w &
$ . D x &
$ . D { w { v x x {
v
w uF v {
w
x H n-\ L4 n u @ u VX@ G " Ib u + M(' CORRECTED CHI-SQUARE = ',F12.4/) o3: o9 ~+ j UX@ P " Rb p p + _(' A DATA ITEM GREATER THAN 20 WAS ENCOUNTERED WHILE TRYING TO CREATE THE CONTINGENCY TABLE BETWEEN VARIABLES',I4,' AND ',I4)+ M UX@ a " bb + g(' VARIABLE INDEX IS OUT OF RANGE'/) + b+ j4 Z l \ m+ V l m-|p 0 VX@ " b + (10X,46('*')) VX@ "
b + (/23X,'ONE SAMPLE RUNS TEST'/) VX@ " b : Z hJ D : Z &
$ . o Dh 3: 9 "$ . D : Z $ . D Z "h 4d # D F F 3: 9 3: 9 7 .$ ( D ( " . 5F . D D + / D @@ @@ @@ : Z " &
$ . o4D 85d :: " F + < @@ : + <: !& F 3: 9 1 / 5d A" D .D + C!$ D .D : Z h 5D G F 3: 9 D!$ D : Z h h 4D M!$ D 3: 9 J VX@ P " Sb + \(//10X,'RESULTS FROM SAMPLE',I3/12X,'N1 = ',I3,3X,'N2 = ',I3,3X,'NUMBER OF RUNS = ',F3.0) "$
. 5$ _"$
. 4$ z . ` @ $ ` @ D $ D
" F " F
-\ Jt4
@
D VX@ q " sb
+ z(12X,'MEAN =A',F8.5,4X,'ST. DEV. =a',F9.4,4X,'Z = ',F9.5) 3: I9 + ~+ ~4 Z \ + -|p 0 VX@ q " rb + x(1H0,10X,46H**********************************************) VX@ z " {b + ~(1H0,30X,9HSIGN TEST) VX@ " rb "$ . I D : Z $ . D ` ` Z ` VX@ " b +
$ _. o. `o4D 5d !$ D a+ !$ D a b3: J9 a a5$ @ a @ b+ @ a @ b a a@ @ c VX@ " *b c "$
. c5d ;@@ c!: Z d Z ^-\ @4 c4 ^@ c3: b9 #!$ c, K c F c+ 0(45HL NUMBER OF PAIRS WITH SIGNED DIFFERENCE = ,I3) VX@ 2 " 4b b c + :(35H PROBABILITY OF OBSERVED FREQUENCY,I3,8X,2HIS,F12.7) + T` c @ d dD D e-\ Jt4 d@ @ e` b @ f" e f5d C!$ D f+ D" \D f dD f e"D f VX@ H " Kb b e e f + T(' ','OBSERVED FREQUENCY IS ',I3/'MEAN = ',F8.5,'ST. DEV. = ',F7.5,3X,'Z = ',F9.5) `3: I9 _3: _9 + Z+ Z4 Z \ \ ]+ o \ ]-|p VX@ h " ib + k(10X,46('*')) VX@ m " nb + s(/13X,'WILCOXON MATCHED-PAIRS SIGNED-RANKS TEST'/) VX@ u " ib J D J"$ . I D : Z $ . D Z : Z &
$ . o. o Dh3: J9 }"$ . J D : Z $ . D Z $hXD -\ L4 @ $XD -\ L4 4` D F F 3: J9 3: 9 J D $ D : Z h5D > : 3: J9 : Z "$ . . D ` @t3: 9 $ D
Z $hXD $-\ L4 $ @ $hXD '-\ L4 ' 5@ 36b
0b 7 +*4 +4 0 tt D
!$ D $ D
+ ? tD
!$ D + ?6b
0b 7 +44 ?4 6 $ D
@ @
D
: Z $ . / D
Ft3: 9 : 3: 9 "6b
0b 7 +B4 C4 6@@
@@ Z $hXD G-\ L4 G h ht Dht ht4D w5d M tD
3: J9 E
S
+D T-\ L4 D+D X D $ D -\ Jt4 E@ 7.3,5X,'ST. DEV. = ',F8.4/3X,'Z = ',F8.4,5X,'Z-PROB =',F8.5,5X,'N = ',I3) 3: I9 { 3: 9 y+ | VX@ x " yb + |(20H INVALID CALCULATION)+ + 4 Z \ + g -|p x -\ IU4 :4
: VX@ [ " \b + ^(10X,46('*')) VX@ ` " ab + f(/15X,'MEDIAN AND EXTENSION OF MEDIAN TESTS'/) VX@ h " \b : Z ?`
: Z ? $
$ . ?o3: J9 k ? 3: I9 i : Z ? hJ D @ : Z ? Z @ ? Z A hJ D A @ Z B &
$ ?. ? o &
$ . Ao4d &
$ ?. ? o D B $
$ ?. ? (
$ B. A o Fo $
$ B. A B Fo B3: A9 v7$ .D @( A3: I9 t ?3: @9 s ?3: I9 q@@ C: Z ?hJ.D C3: I9 D4D 5d 1: C $ D A : Z ?"hJ.D C C4$ +4D "3: I9 ? J D @ &
$ @. ? o D E A4$ 15d 4 E ?yD D E+ 4 C ?.J D @ &
$ @. ? o D E A4$ 15d 4 E &
$ @. ?yD D E-\ IQ4 :4
: : Z ?@
: Z ? $
$ . ?o3: J9 8 ? 3: I9 6 : Z ? : Z ? $
$ ?. @@ J3: I9 ? ?1: 9 > : Z ? hJ D @ : Z ?" E &
$ . ?o5d L!$ ?D T+ M!$ ?D ^ ?3: @9 F ?3: I9 D : Z ? hJ` @ E ED Dh J3: I9 Q VX@ W " Xb + d(//11X,'INTERMEDIATE RESULTS'//9X,'ABOVE MEDIAN',8X,12HBELOW MEDIAN,/2X,41HVAR EXPECTED ACTUAL EXPECTED ACTUAL/) : Z ? VX@ g " jb h Jh ^h Jh T + m(2H ,I3,2F9.3,2X,2F9.3) ?3: I9 e J. K` @ F"$ . I4$ 15d _ ^ T U _ U
T
^ FF T _
^
U H >-\ L4 > F @ F $ D G+ @@ F@@ F : Z ? hJ` @ G GD F"h Jh T h J F"h Jh ^ h J D F3: I9 "$ . I D G F F F F >-\ Jt4 > @ H F F D H!$ D I" < I H F >-\ Jt4 > @ I-\ G4 F4 G4 J VX@ " b F J G H H I + 0(' CHI SQUARE = ',F10.4/,' CHI SQUARE PROB. =',F8.5,/' DEGREES OF FREEDOM = ',I3/' CONTINGENCY COEFFICIENT = ',F8.3/' PHI SQUARE = ',F8.3/' PHI PRIME = ',F8.3) + 8 VX@ 2 " 3b + 6(11H IMPOSSIBLE) + 84 Z < \ =+ X < =-|p
DATA z8] 0 VX@ j " kb + m(10X,46('*')) VX@ n " ob + s(/23X,'MANN-WHITNEY U TEST'/) VX@ t " kb "$ . I D S : Z T $ . D T T Z U T J D U hJ D V $ D V T D W U D W!$ D X : Z X : Z Y ( . X V F c ( . X (
$ . W o F!+ ( . X X F"s!$ D X: V3: W9 U D W V D W X1: 9 U D W : Z X : Z Y X Z Y6b 0b 7 + 4 4 U D Z+ V D Z X/ Y4D 5d G $ D Z+ Y D Z Z Z [ Y( . X !+ ( . Y!+4d 7 Y( . X !+ D [ Y( . X c D \ Y( . X [( . Y !+ F!+ Y( . X [( . Y c F c [( . Y [ F!+ [( . Y \ F c [3: Z9 Y1: 9 Y3: W9 V D W X1: 9 $ D \ $ D X $ D Y@@ Y U D W!$ D ]: Y" W. Y4$ O5d v6b X0b 7 + H4 I4 b $ D Y $ D [+ P V D W $ D X $ D Y $ . Y D [ Y( . X !+ [( . Y!+4$ b5d G6b \0b 7 + W4 X4 ^ $ D \ Y( . X "s D ] X D W Y D ^!$ D ] [( . Y "sD ]+ D6b \0b 7 + c4 D4 e ] ] D ]@ ] @ ^@@ _!$ D ] $ D \ ^( . W ] F"s: _" ^. _4D D5d G: ^" U. ^4d j6b W0b 7 + r4 t4 j $ D W $ D ^+ j6b X0b 7 + x4 L4 y U D W : Z X : Z Y" U ( . X. c D ^ ^5d $ D Y Y( . X c D [+ $ D Y ^ D [ [( . Y Y( . X "s F!+ Y3: W9 | V D W X1: 9 {` U @ _` V @ `@@ `@@ a : Z Y ( !,D a3: V9 : Z Y ( !+D `3: U9 _ ` `!& _ _F D a _ ` a D b VX@ ! " #b T U + ((//' ','VAR(',I2,') VS. VAR(',I2,')') _ `D D b!$ _ ` b P D R-\ Jt4 R @ c a b c D c-\ H4 c4 d VX@ 3 " 7b a b b c c d + D(5X,'U = ',F8.3,10X,'U PRIME = ',F8.3,/5X,'MEAN = ',F8.3,10X,'ST. DEV. = ',F7.2/,5X,'Z = ',F8.3,10X,'Z-PROB. =',F8.5) U3: I9 z T3: S9 w+ O VX@ I " Jb + L(11H IMPOSSIBLE) + O4 Z Q \ Q+ h Q Q-|p x VX@ $> " $?b + $A(10X,46('*')) VX@ $B " $Cb + $G(/21X,'WALD-WOLFOWITZ RUNS TEST'/) VX@ $I " $?b "$ . I D %y : Z %z $ . D %z %z Z %{ %z J D %{ : Z %|!$ Dh& &
$ . %z o Dh&k3: %{9 $Q %{ J D %| : Z %| %{. D %} %}" %v F& %} (
$ . %{ o F&k3: %|9 $X %{. %| D %}"$ . %} D %~ : Z %} $ . D %~ %~ Z %"h&k %}&k4d $r %} &k D % %} & D & %} % &k F&k %} % & F& % % F&k % & F& %3: %}9 $e %}3: %~9 $c!$ D & : Z %} h&h&4D $y!$ D & %}3: %~9 $v $ D & : Z %} h&kh&k4$ %5d %m6b &0b 7 +% 4 %4 %
%} D %~ $ D &!$ D & %} &4D %m5d % $ D &@@ &+ %
$ D &@@ & %} &&4D %*!$ D & %} &4D %m5d %: &+ %*: &+ %*6b &0b 7 +%4 %*4 % $ . %} D & $ D &" &. &5d % &( & . ` @ &+ % &( & . ` @ &"$ . %~4$ %m4D %# %} &&4D %$!$ D &" %~. &5d %' & &&4D %(!$ D & & & & D & %}3: %~9 $|@ & @ &` %{ @ &` %| @ & VX@ %0 " %3b %z %{ %{ %| + %;(//' ','VAR(',I2,') VS. VAR(',I2,')'/12X,'N1 = ',I3,3X,'N2 = ',I3) "$
. %{5d %>"$
. %|4d %c & & &F & & F &" %v & & & & " & & &H
&
F %x-\ Jt4 %x @ & & & D %x-\ L4 %x & @ &-\ H4 &4 & VX@ %S " %Vb & & & & & + %c(12X,'NUMBER OF RUNS = ',I3/12X,'MEAN = ',F8.3/12X,'STANDARD DEVIATION = ',F8.3/12X,'Z = ',F10.6,12X,'Z-PROB. =',F8.5) + %j VX@ %e " %fb & + %j(12X,'NUMBER OF RUNS = ',I3) %{3: I9 $N %z3: %y9 $L+ %u VX@ %o " %pb + %r(11H IMPOSSIBLE) + %u4 Z %w \ %w+ $< %w %w-|p 0 VX@ 'Q " 'Rb + 'T(10X,46('*')) VX@ 'U " 'Vb + '[(/18X,'MOSES TEST FOR EXTREME REACTIONS'/) VX@ '] " 'Rb UX@ '_ " '`b + 'f(' ','WHICH VARIABLE IS THE CONTROL VARIABLE?'/) UX@ 'g " 'wB (~ UX@ 'j " 'kb + 't(' ','ENTER NUMBER OF CONTROL SCORES TO BE',' SUBTRACTED FROM EACH EXTREME'/) UX@ 'u " 'wB T + 'x(I) (~ J D (~ (~ D ( : Z (" (~. 4D (v ( J D ) ) D ) : Z ) &
$ . (~ o Dh) $ Dh*P3: (~9 ( : Z ) (~. D ) ) (
$ . ( o F) ) & F*P3: ) 9 ( (~. ) D )"$ . ) D ) : Z ) $ . D ) ) Z )"h) ))4d ( ) ) D ) ) *P D ) ) ) ) F) ) ) *P F*P ) ) F) ) ) F*P )3: )9 ( )3: )9 (@@ ) : Z )"$ .h*P5D (': )" T. )5d (3 )3: )9 (# VX@ (* " (+b + (2(57H0 INSUFFICIENT NUMBER OF CONTROL VARIABLES TO JUSTIFY H) + (v ) D )@@ ) : Z ) $ / . ) D )"$ ).*P5D (;: )" T. )5d (= )3: )9 (5+ () ) D ) $ / ). ) D )" (. ) T( . D ) T( D ) $ . ) . ) D ) ) D )-\ @4 )4 ) @ ) : Z )"$ . (. / ) D ) Z (}-\ @4 )4 (} @ ) $ . ) / . ) D ) ) / D )-\ @4 )4 ) @ ) ) )D )3: )9 (J-\ @4 )4 ( @ ) ) ) D ) VX@ (] " (bb (~ ( ) ( T ) ) + (v(' ','CONTROL VAR(',I2,') VS. VAR(',I2,')'/' EXTREME VARIABLE HAS',I4,10H VARIABLES/21H CONTROL VARIABLE HAS,I4,10H VARIABLES/ 23H SPAN ALLOWING FOR H = ,I2,4H IS ,I3/15H PROBABILITY IS ,F15.6) (3: I9 '{+ (z4 Z ({ \ (|+ 'O ({ (|-|p VX@ , " ,b + , (10X,46('*')) VX@ , " , b + ,#(/26X,'COCHRAN Q TEST'/) VX@ ,$ " ,b @@ ,^@@ ,^ : Z ,_@@h,b1:
9 ,' : Z ,_@@ ,` : Z ,_ &
$ ,_. oDh,b &
$ ,_. oD ,`3: I9 ,+ VX@ ,3 " ,5b ,_ ,` + ,8(10X,2HL(,I2,4H) = ,F8.2) ,` ,`D ,^ ,_3: J9 ,)@@ ,` : Z ,_ h,bD ,` h,b h,bD ,^ VX@ ,@ " ,Cb h,b 3: I9 ,<+ ,F(10X,2HG(,I2,4H) = ,F8.2)` I @ ,a ,` ,a ,^ ,^ ,a ,` ,` " ,[ ,a F ,a"$ . I D ,b VX@ ,Q " ,Sb ,a ,b + ,W(' ','Q = ',F10.4,5X,'D.F. = ',I3) + ,Z+ ,Z4 Z ,\ \ ,\+ , ,\ ,\-|p 0 @@ T VX@ ,n " ,ob + ,q(10X,46('*')/) VX@ ,s " ,tb + ,y(14X,'FRIEDMAN TWO-WAY ANALYSIS OF VARIANCE'/) VX@ ,{ " ,ob : Z .@@h.&3: I9 ,} T4$ . 4D - : Z . : Z . &
$ . . o4d -3: J9 - .3: I9 - : Z . : Z . &
$ . . o .D.&3: J9 - .3: I9 -+ -_ VX@ - " -b . . $
$ .. .o + -(11HJ VARIABLE,I3,15H IN OBSERVATION,I4,14H HAS A RANK OF,F6.5) + . : Z . : Z . &
$ .. o Dh.0 Zh.:` @h. 3: I9 - "$ . I D . : Z . $ . D . . Z ."h.0 ..04d -4 . .0 D . . .: D . . . .0 F.0 . . .: F.: . . F.0 . . F.: .3: I9 -' .3: .9 -% $ D . : Z . h.0h.14$ -E5d . 6b .0b 7 +-<4 ->4 -B!$ D . . . . D . $ D .+ -Q!$ D . . . D .+ -Q6b .0b 7 +-G4 -Q4 -H@ . @ . . . D . $ . ./ . D . . Z . . Dh. 3: .9 -N $ D . .3: .9 -8 I D .6b .0b 7 +-U4 -V4 -H : Z . h.: D . . h. F.03: I9 -W : Z . h.0Dh.&3: I9 -\ .3: J9 - : Z . VX@ -b " -eb h.& 3: I9 -`+ -j(10X,22HSUM OF RANKS IN GROUP ,I2,4H IS ,F9.3) @@ . : Z . h.& h.&D .3: I9 -l $ . I$ J$$ ` @ . $ . I$ J$ I` @ .!$ @ . . . D ."$ . I D . -\ G4 .4 . 4 . VX@ -| " -~b . . . + .(15X,'CHI SQUARE IS ',F10.4,/,15X,'CHI SQUARE PROB. =',F8.5,/10X,'DEGREES OF FREEDOM = ',I3) + . VX@ .
" . b + .(11H IMPOSSIBLE) + .4 Z . \ .+ ,l . .-|p VX@ .F " .Rb VX@ .I " .Jb + .P(/11X,'KRUSKAL-WALLIS ONE-WAY ANALYSIS OF VARIANCE'/) VX@ .Q " .Rb + .T(10X,46('*'))
-\ IU4 0/4
0/-\ IU4 004
01 : Z 04`
: Z 05 $
$ . 04o3: J9 .Z 04 3: I9 .Y
!$ D 05 : Z 04 hJ D 06 : Z 05 $
$ . 04 05 F05!$ D 053: 069 .d 043: I9 .b : Z 04 hJ D 06 : Z 05 04 Z 06 hJ D 07" 04. 4$ 0&5d .s 05 D 07+ .t $ D 07 07 Z 08 &
$ 05. 04 o &
$ . 06o4d / &
$ 05. 04 o D 08 &
$ 05. 04 05 D 09 $
$ 05. 04 (
$ 08. 06 o Fo $
$ 05. 04 (
$ 08. 06 05 F05 $
$ 08. 06 08 Fo $
$ 08. 06 09 F05 083: 079 .t 063: I9 .n 053: 069 .m 043: I9 .k : Z 04 hJ D 06 : Z 05`
$
$ . 0405 3: 069 / 043: I9 /!$ D 05 : Z 04 hJ D 06 : Z 05 $
$ . 04 05 F05!$ D 053: 069 / 043: I9 /@@ 09@@ 0:!$ D 0:@@ 04: 04 04/ I5d /\@@ 05 04 J D 06: 05 05/ 064$ /25d /& 04/ I4D /D5d 0& $ . 04 D 06 $ D 08+ /4 04 D 06 $ . 05 D 08 &
$ 05. 04 o &
$ 08. 06o4$ /E5d 0&" 02 0:4$ 0&5d /@ 04 D 0; 05 D 0; &
$ 05. 04 05 D 0<!$ D 0: &
$ 08. 06 05D 0<+ /* $ D 0:" 02 0:4$ 0&5d /L &
$ 05. 04 05 D 0<"$ . 0:4$ /*4D /\+ 0& 09 0: 0: 0: D 09@ 0: @ 0< 0< 0: D 0< : Z 07 $
$ 0;. 0; 0< F05: 0; 0; 0;/J4d /Y: 0; $ D 0; 073: 0<9 /R!$ D 0:+ /*-\ IQ4 004
01 : Z 06 hJ D 06 : Z 08@
05 @@ 04: 04 04 J` @ 0=" 0=D 05 055d /c@ 05 @ 05 04 J.D 05 $
$ 05. 04 (
$ 08. 06 05 Fo 083: 069 /` 063: I9 /^
@@ 0=@@ 0> : Z 04@@ 0> hJ D 06` 06 @ 0? 0?D 0> : Z 05 &
$ . 04 oD 0>3: 069 /x VX@ /} " /b 04 0> + 0(/10X,'SUM OF RANKS FOR VARIABLE ',I3,' IS ',F8.3) 0> 0> 0?D 0= 043: I9 /s!$ 0> D 05 0> 0> 0> 0> 09 & 05 0>!( @ 0=!$@ 05 D 0="$ . I D 0? VX@ 0 " 0b 0= 0? + 0 (/10X,'H = ',F8.3,5X,'DEGREES OF FREEDOM = ',I2) -\ IQ4 0/4
0/ : Z 04@
: Z 05 $
$ . 04o3: J9 0 04 3: I9 0 + 0- VX@ 0' " 0(b + 0+(11H IMPOSSIBLE) + 0-4 Z 02 \ 03+ .E 02 03-|p
DATA
DATE 0 @#/ @$ D @%!$ D @$ : Z @%` @ @& $ . @#/ ` @ @& @& @& D @' @' D @$3: @%9 @+ @ 4 D @! Z @" \ @" @#,!p ,!p + @ @! @" @" @$-|p E 5D @+ EX@ @* " @+b + @/(' INPUT? (TYPE HELP IF NEEDED)--',$) $ 2D E + @3 EX@ @2 " @3b + @8(' OUTPUT? (TYPE HELP IF NEEDED)--',$) EX@ @; " @= B X@ H| B X@ H{B E4 + @?(50A1) Ds2D Eg O Ds2F Eg O Dt2H Eg O
Dt2J Eg
O
Du2L Eg
O
Dt2N Eg O Du2P Eg O A A
A
A A A 4$ B Ds2D Eg O Ds2F Eg O Ds2H Eg O
Dv2J Eg
O
Dv2L Eg
O
Dw2N Eg O Dt2P Eg O A A
A
A A A 4$ B% Ds2D Eg O Ds2F Eg O Ds2H Eg O
Dw2J Eg
O
Dx2L Eg
O
Dv2N Eg O Ds2P Eg O A A
A
A A A 5$ @w $ . E 6b 0b 7 +@v4 B'4 Ck-\ IL4 E $ A E & 3F g O ( 3H E
g O G 4& A-\ M64 E14 Dx4 Dy4 E
@@ E@@ E@@ E@@ E@@ E Ds D E
Ds D E
Ds D E@@ E@@ E: E+$ 3$ E+ A-3 Dy+ E2DE+ A3DE+ A++ A $ . E D E $ . E D E : Z E hE DhE2z E= A!: Z E E. Ds FE1: 9 A $ .D E+ A $ . E D E $ . E D E : Z E hE DhE2z E= A# $ . E D E E Z E Ds DhE3: E9 A( $ .D E+ A E D E+ A E4D A: E,X@ H{ " @= $ . E D E & . E Z E E3: E9 A3 E,X@ H{ " A9b E E + A:(2O) E5D AD $ . E D E & . E Z E Ds2DhE+ AB2z E= A> $ D E E Dy FE E
X@ H{+" @= $ . E+D E & . E Z E E3: E9 AI E4D AR EX@ H{ " @= : Z E E1: 9 AO E4D A E,X@ H{ " @= $ . E D E & . E Z E E3: E9 AX E,X@ H{ " A^b E
+ Ad D{ D E+ Am"$ 3D E + Ag D| D E+ Am $ A E 5D Ai D| D E $ A E & 2F + Am D} D E-\ L 4 E4 E D{3D E+ B D}3D E+ Aw D}2d Eg O D~3& Eg O A 4$ B+ Do D~ D E
D D E
$ D E
E D E-\ L 4
D4 E-\ L:4 E4 E
4 E $ 3D E+ B $ .D E
+ A| E
D E1 E
D E1 Ds2D E
+ B
$ A E 5D B E D E
$ A E & 2F + B E D E
E D E
$ A E & 3F + B-\ L:4 E4 E
4 E4 E4 E E4D B EX@ B " Bb + B(' FILE DOES NOT EXIST'/)"$ 2D E + B-\ OB+ @'-\ IX4 E4 E 4 E
E
4 E4 E+ Do $ 2D E
+ B!-\ IL4 E $ 2D E
+ B%-\ M64 E14 Dx4 Dy4 EX@ B) " B*b + C%('-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.'///) EX@ C& " C(b E E
+ Cf(' 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.'///)-\ IL4 E $ . E 6b 0b 7 +Ci4 @'4 @/ EX@ Cl " Cmb + Dh('-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'///) + Cf+ Do4 Z E \ E E,!p ,!p ,!p ,!p ,!p ,!p + @' E E\ E / ,Ap ,Ap ,Ap -|p H S I N F E M A P L . : [ / DSK TTY CDR LPT DTA0 DTA9 OUTAAA.AAADSK INPUTOUTPT.DAT [ ] @@ F @@ F @@ F $ ( D F @@ F F 5D E6-\ OB $ 2D F + E: FX@ E9 " E:b + E<(' FORMAT'/) $ 3$ F + EA FX@ E? " EAb F FI + EE(' FORMAT: (',A1,'-TYPE ONLY)'/) F X@ EG " EKB : Z F! F!1: (9 EH + EL(80A1) $ 3D F + E[ F2D F#g O F2F F"g O F2H F"g O A A 5$ EV+ F : Z F! . F F F3: F 9 EW $ D F $ 3d F + E^ $ $ F D F : Z F! F2DhF!+ Ec3: F 9 E^ $ D F + F F F!2DF!+ Ea $ D F! F X@ Ei F!. F X@ H{ " Em : Z F! F!3: F 9 Ej + Eo(80A1) : Z F! F2DhF!+ Er: F F2DhF!+ Et> F 3: F 9 Ep $ 3d F + Ew+ F $ .D F! $ . F!3d F + E| $ . F / F!$$ D F $ 2d F + F F X@ E " EKB : Z F! F!1: (9 F + Ef $ 2D F + F-\ OB FX@ F " Fb + F
(' ERROR IN FORMAT, TRY AGAIN.'/) $ D F + E2+ F4 Z F \ F F,!p ,!p , p ,!p ,!p ,!p + E2 F F\ F / ,Ap -|p M A S ( ) I F A !$F D G# $ 3d G#g O G"0& g O G 5$ FR+ G $ A G# D G% G"D D G%@@ G&!$*3d G%g O & 2& G#g O G%0H g O G A 5$ F_" G% D G$-\ K84 G$ @ G& G& D G& G%4D Ff-\ Jt4 G""@ G&-\ H4 G&4 G' G'D D G& $ 2$ G#+ G` G# @ @ G'!$ D G( $ 2D G%+ Fm!$ D G(!$*2d G%+ G@@ G( $ 2D G%+ Fq G D G(-\ K]4 G% @ G)-\ K]4 G(@ G(" G% G( G( G) D G)!$*2$ G)g O !&pV3f G)g O G 4$ F~-\ K84 G)@ G&!$ D G( G'2$ G(+ Fs G& D G#+ G!$ D G( $ 2D G%+ G-\ Jt4 G% G D G(@@ G*@@ G) G% G( G( D G( G( G) D G* G)3D G*+ G G* D G)!$ D G( G'2d G(+ G G& G) G& D G#+ G G& D G# G#5$ G@@ G#!$ 2$ G#+ G!$ D G#+ G 4 Z G! \ G! G",!p ,!p ,!p + FK G! G!\ G#,Ap / ,Ap -|p (4 uj H4D H-\ L4 H @ H H H D H@@ H HD D H!$*3$ H+ G5" H D H-\ K84 H H
@ H H H D H!$ H2D H
g O O H1f g O A 4$ HO H0D g O O H0& g O A 4$ H H1d g O ! H D H H D H H H H D H HD H H3D H+ GU+ GN!$ H D H H4d GY!$ H D H+ H!$ D H@@ H!$@ H D H H D H H D H" H
H H D H H H D H H H D H H H D H H4$ Gi" H
D H"` H" H
D H"` H!$ D H" H H H D H H D H H D H H H H H D H H D H H D H H D H H D H H H D H H4d G|" H
D H"` H H3D H+ G H2D H+ Gi H D H+ H!$ D H+ H!$ D H+ H@@ H+ H+ H 4 Z H \ H H,!p ,!p + G* H H\ H,Ap ,Ap -|p yD& 0 RGW! \ H} @ H~< I0< 0| + 1\ + H&,>pHZ pH+ p @ hHI@ pHI@(Hc@0Hm@ xHP@ HP@8Ho@(H]@ PHg@ PHh@ hHI@H.@ H.@HI@HI @H\[ (/< 0"` S<p X< 0 p 3@ I+ H-*| H)-< I Z` H+ H\! @w+ H*< I p 7 p + HI,> ,> ,> &w p , HD,& .< 7@p + HB p , HD" I Hu.< p ` I w,& ,& 5 H4.< p d I: ." Q ,& p ,& >` 9 H?.< 9 H4@@ ,^ ,^ ,^ + HId @ @ & 0b ." ." )B}5@ HE,~ m< !< P\ Hy< I p [ p l< 0@X + HOZ p .< / p Q \ Hz+ HR@@ Hz!< P\ Hy7@ H|+ HU < H} \ H{@@ H|!< P\ HyX X\ Hy I 7@ H{D<7@ H|A< \ Hz < Hy[`x H~, x ,^x H}+ H HQ< \ Hy: H \ Hz< I pHu| I
< \ Hz@@ H{+ HY@@ Hz Q< \ Hy< I pHu| I
+ HY7 I
Iz @ HlX Q< \ Hy I \ Hz+ HY [`x H~, x + HtZ \ Hy@@ Hz@@ Hz< I \ H{+ HY7 H| H{X\ H@@ H|@@ H{+ H[ >x ! Z @
& IU` eB + I@ )@ G
" + I
& I+ J6$ 1 ,> OD. @
p .4 6$ (Hs.
.4 Hz. HySEQIN @ I SEQOUT @ I
@ Hl
%5 Source level error at user's loc
` Z (X^ . > [.~ (3~ + I ~ + I#Z . \x <x *<x .-> Lez+ I !" b + " I b + Z . h + gg M?Th
& I% b + I,
?NO CORE AVAILABLE - CAN NOT PROCEED
!* IH** ,^ ,~ * x ,> < IH*< IK p Z@ I>@@ I?@@ I? I`|+ I2P w,~ "p h a`~ + I8h ``~ + I9$ J !I:d J /"+ I3P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> OD,> Zp @ I>\` I> < I>, ,^ ,~ SMI 1 ,> OD, I+ J BI>+ Ib_MI 1 ,> OD, I+ J BI>+ IbI5R1 ,> OD, I+ J BI>*\ Im7Ap X" J BI>/& p d"~ l" BI>*\ Im/& p d"~ l" $ BI>*\ Im/& p d"~ l"
BI>*\ ImSp *\ Im/&Xp B IG@@ IH J BI>*\ Im/& p d"~ l" BI>RF I> < I>, + I)EV4i91 ,> OD+ IzS ,i@1 ,> OD+ Iz_ ,i@1 ,> OD+ IzK>2 1 ,> OD+ IzK>40 1 ,> OD+ Iz[<I71 ,> OD
& J w @ )@ .
" 5B I|
& J ` .
.4 SEQIN ^ JSEQOUT ^ JRANDOM ^ JSEQINOUT IG
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
a.3@1 ,> ODO@ JK+ JgR~@1 ,> OD@@ JK,> ,> @ 6 w+ J " JL0B + J!"A`X#p 5@ J/#p !" X#p + J \p + J a.9'1 ,> OD,> ,> O@ JK+ J ,>
6 + _ 4` J'"` Q@ ,> < JM, ,^ ,> < JP,
,^ *b J$+ J1,> < JQ, ,^ 7@ JK+ J,,> < JT,
,^ + J.,> < JV,
,^ Z 5" J1,> < JW,
,^ , 7@ JK,
,> < JY, ,^ , ,> < J\, ,^ ,> < J_,
,^ (@qd 1@ ,,
1@ #+ J@0@ *+ J2,> < J`, ,^ + J2,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X JH p X JI p JJ p JK p X JB X ~ JG p x C6 1 ,> OD, Jl,~ [B 1 ,> OD, Jl,~ [B 1 ,> OD, Jl@ ,~ C6 1 ,> OD, Jl` ,~ ,> e|P w+ Jn3!p p *| Jna|+ Jr p h" ab~ + Jn,^ ,~ gG@ 1 ,> OD7cp + J~ (Bdb + Jy. K "+ Jz. K "T B#p @,~ 4B K+P I$0
K#p + Jv ,~ > attempt to take SQRT of negative arg Kc#@ p p + KKc#K , K @ ,~ Kc#J , K @ ,~ Kc#I , K @ ,~ Kc#H4B K55@ K5" K +D I$0
KU ,~ D K5!$ @ K4 B K45" K #` + K1, K !" B ,~ + K (BdB + K 5B K K5,~ +7` K4+ K(`d +D I$0K$+D I$0
K$U `d @ 6 K4+ K K4`B "` + K / K6id + K++D I$0K$# K4,> < K7, K],^ @ ` K4 @ ,> < K7, K8,^ + K%U", K K4+ K + K ! ,~ x Kc 1 ,> OD p 3" KT+ K>3b KS+ K@+D I$0
K=U ,~ +D I$0K? ,~ D KT F KU@@ KU%" j" % KR)/;` : XD KN5f KGaF + KG.& @(|h& f KU KQ KR KQ KU KP D KS@ KT KU,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> OD p 4@ Km @ K\,> < Kv, K],^ K\,~ {e^b C2|p 1 ,> OD p 5` Ka4@ Km+P I$0Kv#p 3@ Kp+ Ko) r. !@ Kt! n@ Kt(|h" Kq Kq B Ku Kr Kr Ks Ku Kt Ks,~ +D I$0
Kn Kt,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x K\ATTEMPT TO TAKE LOG OF NEGATIVE ARG S; 1 ,> OD+ K~SO 1 ,> OD p + KSAd @ ,~ C 1 ,> OD#p ,~ S0 1 ,> OD#p +" L,~ U ,~ !$h X$h @@h *% " L 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 ,> ODZ .@ 6kp 2j8 M+ L/ !p Q A` L(\$}
4L L&/, L 8$ L$.
8 L F( ,~ H ?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG
& L( < L.,
iSN ,> OD@Ap O
, 7 OAp ,~ 4 4 L64 Lb KbN=1 ,> ODO@ Lc p 4B L>, M4@ L>9 LB9 LAKbN= 1 ,> OD@@ Lc!$Lu ` @Ap `` a` + L`a` + Lb D L9A (` LG/" #B L8@@ L9 !p X@ L5,> < L5, Li,^ 7@ Lb+ LMOAp + La #p Q"A` $ 1@ + LR0` =d LO! H: @ L7@@ L8a|+ LX[ p d 0@ + L][ p d 0@ + L]+ L[_ w6@ Lc_ w#` 1 + L]Sp Xp @ L8
L8+ L_@ L6+ L`+ La
& Lc+ La Ap ,~ ERROR ON OPEN!
H H LgH Lh G.t21 ,> OD@ @Ap ! A`.!p @ Le Lf @ Lg@@ Lg@@ Lh & " Le< 1D + Lt- L=b Lo Le< 0D + L}O " Lf @ Lg Le< - L=b Lv7@ LgOAp !p < , Lg, Lh,~ <& Lx Le1D + L| Ap + Lx 1D + L|1$ + Ly1d + M0$ 0d -+ Ly $ D Lg+ L" M", M/0@ + M p 4B M L ad+ M `b+ M $ 0d "+ M &$ $& (&}Z .G M".& $ .$ 7F + M ,~ A$ &$ (D G$1$ ((D (D
` 5@ M .2b M+ M L.& 7D !$Lu+ M 2" M#+ M &p , M' ` ,~
& M# < M&,
.p M}ILLEGAL DEVICE NUMBER!
" M., M/ ' Q&A` M.@ 1x ,~ 18 0.8 X =` M*,~ . H a|+ M20" 0b / ,~ 0B 1B ,~ 0B / ,~ aJMm1 ,> OD, N}+ MR@ , N', Ny+ MRZ" 6Ep " B` " b M[ $ 7cp $ 1B $ d M[, MT, NF+ MS6cp 0b " b M\$ N ({." XB` &$ @6@ .$ .$
a|+ MK[p d p0B + MO+ MM_w#` 1" + MO6cp 0d $QD` , N+ , O ,~
& M\+ MQ
& M_+ MQ@b -p . Q,A`
Ma 4P MZ1P + Mb/0 P =n MW,~ `
` `
CANNOT INIT DISK!
FILE NOT FOUND!
H H .
Ma+ MWYC G aS a3 S; YC&<G<aS<a3&<E$;w |xMh PMc B` 1T !"L b @ XB` O@ N O N@ , O
+ ONn@ !.~ , O` + O"" 1T "" QB N, O N& f + 1$ 9 N!+ N| 8 Mh@` Mh O*( N O n @ `N + O 6`
O 1T O B` " B` \"
b @ B` \" b !" Z (Brb O b
B N b
+ B` !" 2 b `b `b + NA!" 2 b ` 2B` + NA!$ 2 d !$Lu+ ND O b O! O! d !$Lu B N D N,~ @@ N O"*( N
B N D N BX B` DX Z N(D} d ` D N DX " 2D` b O"d " b O#, O@ N+ O# N
XBX @@ N$+ NV!" NX"X *"X !"` `+ N\l !" GBX " O"0B + Nk, O + Nh O N
@ , O
+ Nh!, 2, NnB , O" X
N N, O + Nh JX , O + N|
& O' " b O"a` + Ng+ NPa` + Ng, O N+ + Ng x H Nw h &( 2
PMc O-. N &. .0 P `bp + Nrd
@ N, O+ Nw`L+ Np N+ N| ( !*Lu@
, O
,~ : x ,~ " B OO@ NO@ Ng " ?$ O+ O
d 5D O O(D DN+ N|,> e` p+ O7 N+ O l! N+ O
7 N+ O l! N: +@ > ,^ + N|
& O-,~ "
& O/,~ "
& O5,~ , O
& O=
& , O b ( O=+ O
& OA,~ @ ;` N+ N+ O ]Mi 0 CMQ Cannot do MPB QUEUE on GALAXY system. ( O+ O`` ` P $` h ``N
X HX a` ,~ !" GB` + Ng @N
% 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 ,> OD,
,~ ODY\ OFQ< X\ OF* +