Google
 

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`INXQF:{A)'[	{BE@
Q(#sX	y	HO*>	`	xpHOG	xhO  $ DL $ DV"$ DUO@U UX@5 "6b +:('1',20X,'WMU NONPARAMETRIC PROGRAM')    UX@< "=b +>(///)-\L14M-\Di4V4M4U4U4I4M-\Di4L4N4U4U4J4M UX@G "Hb +L(' THE NUMBER OF VARIABLES = ',$)   UX@N "OBI +P(I)   $3dIgO &
2&IgOG4$-\F4U4U4Q4N4J4K $2DN+[ K DQ UX@] "^b +a(' MISSING DATA SYMBOL = ',$)  UX@c "dBO +e(F)   $3DN+n L2DN+k UX@j "kb +m(' ENTER DATA'/)    +w L2DN+r UX@q "rb +w(' ENTER DATA (NO MORE THAN 10 PER LINE)'/)  @@J:J LX@{ "QQ"(  X@H{B : ZO $
$J.o3:I9|  $d3$J++w>J UX@ "bJ +	(1X,I4,' CASES WERE ENTERED')  : ZO $ DP : ZP 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@- "OBQ 6bQ0b7+04<4=4>4?4@4A4B4C4D4E4F4B 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) : Zo hm5Dr0z=o+b o7 .$( Do o( Dl : Zo I2$hmgO &3fhmgOG4$`3:l9w : Zo ( Dp"$.p Dp p m Dq p m Dq!: Zr@@h|@@h!: Zr $
$.r@@1:
9 r1:
9 : Zr &
$.q o@ @s &
$.q o@ @s s0$gO &
2&sgOG4$O s0$gO &
2&sgOG4$O!$ &
$s s.D !$ sD|!$ sD3:J9
 :
 Zr h5D'0z=$ r Dt :
 Zr h|5D+0z=( r Dt VX@- "/bqq +5(//5X,'ROW VARIABLE',I3,' VS COL VARIABLE',I3)     VX@6 "7b +=(4X,'ROW',13X,'CONTINGENCY TABLE'/'   TOTAL'/)     VX@> "Bb!: Zr3:t9? +C(9X,15I4) !: Zr VX@F "Mbrh|!: Zr $
$.r3:t9H r 3:t9D+Q(I3,F5.0,2X,15F4.0/(10X,15F4.0))    VX@S "Wb!: Zr 3:t9T +\('    COL'/3X,'TOTAL',2X,15F4.0/(10X,15F4.0))@@u@@u!: Zr h|Du3:t9^!: Zr!: Zr h r|u Dv v4Di"v &
$.rvDu3:t9a r3:t9`@@v@@w!: Zr h4Dp!$Dv h|4Dr!$Dw1:
9n"kw"kvDwuu(uUFn-\Jt4n/@xHuuPDx-\Ja4v4wR@y!$3Dy+"kyTxOFn-\Jt4nF@y+!$ADy-\K{4w @n-\G4u4n4z!VX@	g"O!&3FvgOG4$M@@z@@{!: Zr h5D) r |5D++-:z z r F+':{ { r F r1:
9% &
$.  Dv &
$.  Dw &
$.  Dx &
$.  D{ w{ vx x{ 
v
w uF v{ 
w
x Hn-\L4nu @u VX@G "Ibu +M(' CORRECTED CHI-SQUARE = ',F12.4/) o3:o9~+j UX@P "Rbpp +_(' 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 Zl \m+V l m-|p 0 VX@ "b +(10X,46('*'))   VX@	 "
b +(/23X,'ONE SAMPLE RUNS TEST'/) VX@ "b  : Z hJ D : Z &
$. o Dh3:9"$. D : Z $. D  Z"h 4d#   D     F   F 3:9 3:9 7 .$( D (".5F.  D D+/   D@@@@@@ : Z" &
$.o4D85d:: " F+< @@:+<: !& F 3:91 /5dA" D .D+C!$ D .D : Z h5DG   F 3:9D!$ D : Z hh4DM!$D 3:9J 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.`o4D5d!$Da+!$Da b3:J9 aa5$@a @b+@a @b aa@ @c VX@ "*bc "$
.c5d;@@c!: Zd Z^-\@4c4^@c3:b9#!$ c,K c Fc+0(45HL   NUMBER OF PAIRS WITH SIGNED DIFFERENCE = ,I3)   VX@2 "4bbc +:(35H  PROBABILITY OF OBSERVED FREQUENCY,I3,8X,2HIS,F12.7)   +T`c @d dD De-\Jt4d@ @e`b @f"ef5dC!$Df+D"\Df dDfe"Df VX@H "Kbbeef +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 DJ"$.I D : Z $. D  Z : Z &
$ .  o.o Dh3:J9}"$.J D : Z $. D  Z $hXD-\L4 @  $XD-\L44`   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
0b7+*4+40  tt D
!$ D $ D
+?  tD
!$D+?6b
0b7+44?46 $ D
@ @ 
 D
 : Z $./ D	 	 
 Ft3:9: 3:9"6b
0b7+B4C46@@
@@	 Z $hXDG-\L4G hht Dht ht4Dw5dM  tD
 3:J9E 
S 
+DT-\L4D+DXD$D-\Jt4E@ 7.3,5X,'ST. DEV. = ',F8.4/3X,'Z = ',F8.4,5X,'Z-PROB =',F8.5,5X,'N = ',I3)    3:I9{ 3:9y+| 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:J9k ? 3:I9i : Z? hJ D@ : Z? Z@ ? ZA hJ DA @ ZB &
$?.? o &
$.Ao4d &
$?.? o DB $
$?.? (
$B.A  o Fo $
$B.A B FoB3:A9v7$.D@(A3:I9t ?3:@9s?3:I9q@@C:Z?hJ.DC3:I9D4D5d1:C $ DA : Z?"hJ.DC C4$+4D"3:I9 ? J D@ &
$@.? o DE A4$15d4 E ?yD DE+4 C ?.J D@ &
$@.? o DE A4$15d4 E &
$@.?yD DE-\IQ4:4
: : Z?@
 : Z? $
$.?o3:J98 ? 3:I96 : Z? : Z? $
$?.@@J3:I9? ?1:9> : Z? hJ D@ : Z?"E &
$.?o5dL!$ ?DT+M!$ ?D^ ?3:@9F ?3:I9D : Z? hJ` @E ED DhJ3:I9Q VX@W "Xb +d(//11X,'INTERMEDIATE RESULTS'//9X,'ABOVE MEDIAN',8X,12HBELOW MEDIAN,/2X,41HVAR  EXPECTED  ACTUAL    EXPECTED  ACTUAL/)   : Z? VX@g "jbhJh^hJhT +m(2H  ,I3,2F9.3,2X,2F9.3)  ?3:I9e J.K` @F"$.I4$15d _^ TU _U 
T
^ FF T_ 
^
U H>-\L4>F @F $ DG+@@F@@F : Z? hJ` @G GDF"hJhThJF"hJh^hJ DF3:I9"$.I DG FF F F>-\Jt4> @H FF DH!$ DI"<I H F>-\Jt4> @I-\G4F4G4J VX@ " bFJGHHI +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 DS : ZT $. DT T ZU T J DU hJ DV $ DV T DW U DW!$ DX : ZX : ZY (.X V Fc (.X (
$.W  o F!+ (.X X F"s!$DX:V3:W9 U DW V DW X1:9 U DW : ZX : ZY X ZY6b0b7+44 U DZ+ V DZ X/Y4D5dG $ DZ+  Y DZ Z Z[ Y(.X !+ (.Y!+4d7 Y(.X !+ D[ Y(.X c D\ Y(.X [(.Y  !+ F!+ Y(.X [(.Y  c Fc [(.Y [ F!+ [(.Y \ Fc [3:Z9  Y1:9 Y3:W9 V DW X1:9 $ D\ $ DX $ DY@@Y U DW!$ D]:Y"W.Y4$O5dv6bX0b7+H4I4b $ DY $ D[+P V DW $ DX $ DY $.Y D[ Y(.X !+ [(.Y!+4$b5dG6b\0b7+W4X4^ $ D\ Y(.X "s D] X DW Y D^!$D] [(.Y "sD]+D6b\0b7+c4D4e ]] D]@] @^@@_!$ D] $ D\ ^(.W ] F"s:_"^._4DD5dG:^"U.^4dj6bW0b7+r4t4j $ DW $ D^+j6bX0b7+x4L4y U DW : ZX : ZY"U (.X.c D^ ^5d $ DY Y(.X c D[+ $ DY ^ D[ [(.Y Y(.X  "s F!+ Y3:W9| V DW X1:9{`U @_`V @`@@`@@a : ZY ( !,Da3:V9 : ZY ( !+D`3:U9 _``!&__F Da _`a Db VX@! "#bTU +((//' ','VAR(',I2,') VS. VAR(',I2,')')    _`D Db!$_`bP DR-\Jt4R @c abc Dc-\H4c4d VX@3 "7babbccd +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:I9z T3:S9w+O VX@I "Jb +L(11H IMPOSSIBLE)    +O4 ZQ \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&0b7+%4%4%
 %} D%~ $ D&!$ D& %} &4D%m5d%	 $ D&@@&+%
 $ D&@@& %} &&4D%*!$D& %} &4D%m5d%:&+%*:&+%*6b&0b7+%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 "'wBT +'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,bh,bD,^ VX@,@ ",Cbh,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.0b7+-<4->4-B!$ D. . .. D. $ D.+-Q!$D. . .D.+-Q6b.0b7+-G4-Q4-H@. @. .. D. $../. D. . Z. . Dh.3:.9-N $ D. .3:.9-8 I D.6b.0b7+-U4-V4-H : Z. h.: D. . h. F.03:I9-W : Z. h.0Dh.&3:I9-\ .3:J9- : Z. VX@-b "-ebh.& 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('*'))  

-\IU40/4
0/-\IU4004
01 : Z04`
 : Z05 $
$.04o3:J9.Z 04 3:I9.Y
!$ D05 : Z04 hJ D06 : Z05 $
$.04 05 F05!$D053:069.d 043:I9.b : Z04 hJ D06 : Z05 04 Z06 hJ D07"04.4$0&5d.s 05 D07+.t $ D07 07 Z08 &
$05.04 o &
$.06o4d/ &
$05.04 o D08 &
$05.04 05 D09 $
$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 : Z04 hJ D06 : Z05`
 $
$.0405 3:069/ 043:I9/!$ D05 : Z04 hJ D06 : Z05 $
$.04 05 F05!$D053:069/ 043:I9/@@09@@0:!$ D0:@@04:04 04/I5d/\@@05 04 J D06:05 05/064$/25d/& 04/I4D/D5d0& $.04 D06 $ D08+/4 04 D06 $.05 D08 &
$05.04 o &
$08.06o4$/E5d0&"020:4$0&5d/@ 04 D0; 05 D0; &
$05.04 05 D0<!$D0: &
$08.06 05D0<+/* $ D0:"020:4$0&5d/L &
$05.04 05 D0<"$.0:4$/*4D/\+0& 090: 0:0: D09@0: @0< 0<0: D0< : Z07 $
$0;.0; 0< F05:0; 0; 0;/J4d/Y:0; $ D0; 073:0<9/R!$ D0:+/*-\IQ4004
01 : Z06 hJ D06 : Z08@
05 @@04:04 04 J` @0="0=D05 055d/c@05 @05 04 J.D05 $
$05.04 (
$08.06  05 Fo 083:069/` 063:I9/^
@@0=@@0> : Z04@@0> hJ D06`06 @0? 0?D0> : Z05 &
$.04 oD0>3:069/x VX@/} "/b040> +0(/10X,'SUM OF RANKS FOR VARIABLE ',I3,' IS ',F8.3) 0>0>0?D0= 043:I9/s!$0> D05 0>0>0>0> 09& 050>!(	@0=!$@05 D0="$.I D0? VX@0 "0b0=0? +0(/10X,'H = ',F8.3,5X,'DEGREES OF FREEDOM = ',I2)  -\IQ40/4
0/ : Z04@
 : Z05 $
$.04o3:J90  04 3:I90+0- VX@0' "0(b +0+(11H IMPOSSIBLE)    +0-4 Z02 \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)--',$)    $2DE	+@3 EX@@2 "@3b +@8(' OUTPUT? (TYPE HELP IF NEEDED)--',$)   EX@@; "@=  BX@H|  BX@H{B E4 +@?(50A1)     Ds2DEgO Ds2FEgO Dt2HEgO 
Dt2JEg
O
 
Du2LEg
O
 Dt2NEgO Du2PEgOAA
A
AAA4$B Ds2DEgO Ds2FEgO Ds2HEgO 
Dv2JEg
O
 
Dv2LEg
O
 Dw2NEgO Dt2PEgOAA
A
AAA4$B% Ds2DEgO Ds2FEgO Ds2HEgO 
Dw2JEg
O
 
Dx2LEg
O
 Dv2NEgO Ds2PEgOAA
A
AAA5$@w $.E	6b0b7+@v4B'4Ck-\IL4E $AE	 &3FgO (3HE
gOG4&A-\M64E14Dx4Dy4E
@@E@@E@@E@@E@@E Ds DE
 Ds DE
 Ds DE@@E@@E:E+$3$E+A-3Dy+E2DE+A3DE+A++A $.E DE $.E DE : ZE hE DhE2zE=A!: ZE E. Ds FE1:9A $.DE+A $.E DE $.E DE : ZE hE DhE2zE=A# $.E DE E ZE Ds DhE3:E9A( $.DE+A E DE+A E4DA:  E,X@H{ "@= $.E DE &.E  ZE  E3:E9A3   E,X@H{ "A9bEE +A:(2O)  E5DAD $.E DE &.E  ZE Ds2DhE+AB2zE=A> $ DE E Dy FE  E
X@H{+"@= $.E+DE &.E  ZE  E3:E9AI  E4DAR  EX@H{ "@= : ZE E1:9AO  E4DA  E,X@H{ "@= $.E DE &.E  ZE  E3:E9AX   E,X@H{ "A^bE
+Ad D{ DE+Am"$3DE	+Ag D| DE+Am $AE	5DAi D| DE $AE	 &2F+Am D} DE-\L4E4E D{3DE+B D}3DE+Aw D}2dEgO D~3&EgOA4$B+Do D~ DE
 D DE
 $ DE
 E DE-\L4
D4E-\L:4E4E
4E $3DE+B $.DE
+A| E
 DE1 E
 DE1 Ds2DE
+B
 $AE	5DB E DE
 $AE	 &2F+B E DE
 E DE
 $AE	 &3F+B-\L:4E4E
4E4E4E E4DB EX@B "Bb +B(' FILE DOES NOT EXIST'/)"$2DE	+B-\OB+@'-\IX4E4E4E
E
4E4E+Do $2DE
+B!-\IL4E $2DE
+B%-\M64E14Dx4Dy4EX@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(bEE
 +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.'///)-\IL4E $.E	6b0b7+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 ZE \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 $( DF @@F  F5DE6-\OB $2DF+E: FX@E9 "E:b +E<(' FORMAT'/)    $3$F+EA FX@E? "EAb FFI +EE(' FORMAT: (',A1,'-TYPE ONLY)'/)    FX@EG "EKB : ZF! F!1:(9EH +EL(80A1)     $3DF+E[ F2DF#gO F2FF"gO F2HF"gOAA5$EV+F : ZF! .F F F3:F9EW $ DF $3dF+E^ $$F DF  : ZF! F2DhF!+Ec3:F 9E^ $ DF+F F F!2DF!+Ea $ DF! F X@Ei F!.F  X@H{ "Em : ZF! F!3:F 9Ej +Eo(80A1)     : ZF! F2DhF!+Er:F  F2DhF!+Et>F 3:F 9Ep $3dF +Ew+F $.DF! $.F!3dF+E| $.F/F!$$ DF  $2dF +F FX@E "EKB : ZF! F!1:(9F +Ef $2DF+F-\OB FX@F "Fb +F
(' ERROR IN FORMAT, TRY AGAIN.'/)   $ DF+E2+F4 ZF \F  F,!p,!p, p,!p,!p,!p+E2 F F\ F/ ,Ap-|pM    A    S         (    )    I    F    A    !$F DG# $3dG#gO G"0&gOG5$FR+G $AG# DG% G"D DG%@@G&!$*3dG%gO &2&G#gO G%0HgOGA5$F_"G% DG$-\K84G$ @G& G& DG& G%4DFf-\Jt4G""@G&-\H4G&4G' G'D DG& $2$G#+G`G# @ @G'!$ DG( $2DG%+Fm!$ DG(!$*2dG%+G@@G( $2DG%+Fq G  DG(-\K]4G% @G)-\K]4G(@G("G%G( G(G) DG)!$*2$G)gO!&pV3fG)gOG4$F~-\K84G)@G&!$DG( G'2$G(+Fs G& DG#+G!$ DG( $2DG%+G-\Jt4G% G  DG(@@G*@@G) G%G(G( DG( G(G) DG* G)3DG*+G G* DG)!$DG( G'2dG(+G G&G)G& DG#+G G& DG# G#5$G@@G#!$2$G#+G!$ DG#+G4 ZG! \G!  G",!p,!p,!p+FK G! G!\ G#,Ap/ ,Ap-|p (4	 uj H4DH-\L4H @H HH DH@@H HD DH!$*3$H+G5"H DH-\K84HH
 @H HH DH!$H2DH
gOOH1fgOA4$HOH0DgOOH0&gOA4$H H1dgO!HDH H DH HHH DH HDH H3DH+GU+GN!$H DH H4dGY!$H DH+H!$ DH@@H!$@H DH H DH H DH"H
HH DH HH DH HH DH HH DH H4$Gi"H
DH"`H"H
DH"`H!$DH"H HH DH H DH H DH HH HH DH H DH H DH H DH H DH HH DH H4dG|"H
DH"`H H3DH+G H2DH+Gi H DH+H!$ DH+H!$ DH+H@@H+H+H	4 ZH \H  H,!p,!p+G* H H\ H,Ap,Ap-|pyD& 0 RGW! \H} @H~<I0<0|+1\+H&,>pHZpH+p@hHI@pHI@(Hc@0Hm@xHP@HP@8Ho@(H]@PHg@PHh@hHI@H.@ H.@HI@HI	@H\[(/<0"`S<pX<0 p3@I+H-*|H)-<IZ`H+H\!  @w+H*<I p7 p+HI,>,>,> &w p,HD,&.<7@p+HB p,HD"I Hu.< p`I w,&,&5 H4.< pdI:." Q,& p,&>`9H?.<9H4@@,^,^,^+HId @@& 0b.".")B}5@HE,~m<!<P\Hy<I p[pl<0@X+HOZp.</ pQ \Hz+HR@@Hz!<P\Hy7@H|+HU <H} \H{@@H|!<P\HyXX\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
+HY7I
 Iz @HlXQ< \Hy I \Hz+HY[`x H~,x+HtZ \Hy@@Hz@@Hz<I \H{+HY7H| H{X\H@@H|@@H{+H[>x! Z @
&IU`eB+I@)@G 
"+I
&I+J6$1,>OD.@
p.46$	(Hs.
.4Hz.HySEQIN@ISEQOUT@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+ggM?Th
&I%	b+I,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*IH**,^,~*x,> <IH*<IK  pZ@I>@@I?@@I? I`|+I2Pw,~ "p h a`~+I8h  ``~+I9$J!I:dJ/"+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>*\Im7ApX"J BI>/& pd"~l" BI>*\Im/& pd"~l"$ BI>*\Im/& pd"~l"
 BI>*\ImSp*\Im/&Xp BIG@@IH J BI>*\Im/& pd"~l" BI>RFI> <I>,+I)EV4i91,>OD+IzS,i@1,>OD+Iz_,i@1,>OD+IzK>21,>OD+IzK>401,>OD+Iz[<I71,>OD
&J w @)@. 
"5BI|
&J`.
.4SEQIN^JSEQOUT^JRANDOM^JSEQINOUTIG
%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#p5@J/#p!"X#p+J\p+Ja.9'1,>OD,>,>O@JK+J,>
6+ _4`J'"`Q@,> <JM,,^,> <JP,
,^*bJ$+J1,> <JQ,,^7@JK+J,,> <JT,
,^+J.,> <JV,
,^Z5"J1,> <JW,
,^,7@JK,
,> <JY,,^,,> <J\,,^,> <J_,
,^(@qd1@,,
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 .pXJHp XJIp JJp JKp XJBX~JGp xC6 1,>OD,Jl,~[B1,>OD,Jl,~[B1,>OD,Jl@,~C61,>OD,Jl`,~,>e|Pw+Jn3!p p*|Jna|+Jr ph" ab~+Jn,^,~gG@1,>OD7cp+J~ (Bdb+Jy.K"+Jz.K"TB#p@,~4BK+PI$0
K#p+Jv  ,~>attempt to take SQRT of negative argKc#@ p p+KKc#K  ,K @,~Kc#J  ,K @,~Kc#I  ,K @,~Kc#H4BK55@K5"K+DI$0
KU ,~ DK5!$ @K4 BK45"K#`+ K1,K!"B,~+ K (BdB+ K 5BK  K5,~ +7`K4+K(`d +DI$0K$+DI$0
K$U `d @6 K4+K K4`B"`+K/K6id +K++DI$0K$#K4,> <K7,K],^ @`K4@,> <K7,K8,^+K%U",KK4+ K +K! ,~xKc1,>OD p3"KT+K>3bKS+K@+DI$0
K=U ,~+DI$0K?  ,~ DKT FKU@@KU%"j"%KR)/;`:XDKN5fKGaF+KG.&@(|h&fKU KQKR KQ KUKPDKS@ KT KU,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>OD p4@Km @K\,> <Kv,K],^K\,~{e^bC2|p1,>OD p5`Ka4@Km+PI$0Kv#p3@Kp+Ko)r. !@Kt! n@Kt(|h"Kq Kq BKu KrKrKsKuKtKs,~+DI$0
Kn Kt,~  ,~ 0_i/X3 6P'M 5( bB W
R `@xK\ATTEMPT TO TAKE LOG OF NEGATIVE ARGS; 1,>OD+K~SO1,>OD p+KSAd@,~C1,>OD#p,~S01,>OD#p+"L,~U ,~!$hX$h@@h*% "L BhL " BhM+xeX2GiSHYC aSiSHINXGYC GSHiSHaSaSI'IR
IR
 IR
0IR
@IR
PIR
`IR
p[R
[R
[R
 M?L@INXINXINXINXINXI2I2 I20I2@GiSHI4:1,>ODZ.@6kp2j8M+L/ !pQ A` L(\$}
4LL&/,L8$L$.
8L F(,~H?FRSDVC - ILLEGAL DEVICE NUMBER IN CALL TO DEVCHG

&L( <L.,
iSN,>OD@ApO
,7 OAp,~44L64LbKbN=1,>ODO@Lc p4BL>,M4@L>9LB9LAKbN=1,>OD@@Lc!$Lu 	`@Ap``a`+L`a`+Lb DL9A (`LG/"#BL8@@L9 !pX@L5,> <L5,Li,^7@Lb+LMOAp+La #pQ"A` $1@+LR0`=dLO! H: @L7@@L8a|+LX[pd0@ +L][pd0@ +L]+L[_w6@Lc_w#`1 +L]SpXp @L8
L8+L_@L6+L`+La
&Lc+La   Ap ,~ ERROR ON OPEN!
HHLgHLhG.t21,>OD@@Ap! A`.!p @Le Lf @Lg@@Lg@@Lh & "Le<1D+Lt-L=bLoLe<0D+L}O " Lf @LgLe<-L=bLv7@LgOAp !p<, Lg, Lh,~<&LxLe1D+L|   Ap+Lx1D+L|1$+Ly1d+M0$ 0d-+Ly $DLg+L"M",M/0@+M p4BM Lad+M`b+M $0d"+M &$$&(&}Z.GM".&$.$ 7F+M  ,~ A$&$(DG$1$((D(D
 	`5@M  .2bM+M L.&7D!$Lu+M2"M#+M &p,M' 	`,~
&M# <M&,
.p M}ILLEGAL DEVICE NUMBER!
"M.,M/ 'Q&A` M.@1x,~180.8X=`M*,~.H  a|+M20"0b/ ,~0B1B,~0B/ ,~aJMm1,>OD,N}+MR@,N',Ny+MRZ"6Ep " B` "bM[ $7cp $1B $dM[,MT,NF+MS6cp0b "bM\$N ({."XB`&$@6@.$.$
a|+MK[pdp0B +MO+MM_w#`1"+MO6cp 0d $QD`,N+ ,O ,~
&M\+MQ
&M_+MQ@b -p .Q,A` 
Ma4PMZ1P+Mb/0P=nMW,~`
``
CANNOT INIT DISK!

FILE NOT FOUND!
HH . 
Ma+MWYC GaSa3 S;YC&<G<aS<a3&<E$;w|xMh PMc B`1T!"L	b@XB`O@N O N@,O
+ONn@!.~,O`+O""1T""QBN,ON& 	f+ 1$9N!+N| 8Mh@`Mh O*(N O	n@`N+O 6`
 O1T O B` " B`\"
	b@ B`\"	b!"Z(BrbO 	b
 BN	b
+  B`!"2	b`b`b+NA!"2	b `2B`+NA!$2	d!$Lu+ND O 	b O! O!	d!$Lu BN DN,~@@N O"*(N
 BN DN BX B` DXZN(D}	d ` DN DX "2D`bO"d  "bO#,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' "bO"a`+Ng+NPa`+Ng,O N+ +Ng 	x HNw	h	&(2 
PMc O-.N &..0P`bp+Nrd
@ N,O+Nw`L+Np N+N| (!*Lu@
,O
,~:x,~ " BOO@NO@Ng "?$O+O
	d5DO O(D DN+N|,> e`p+O7 N+Ol!N+O
7 N+Ol!N:+@>,^+N|
&O-,~ "
&O/,~ "
&O5,~,O
&O=
& ,O	b (O=+O
&OA,~@;`N+N+O	]Mi0CMQ Cannot do MPB QUEUE on GALAXY system. (O+O`` `P$` h	``N
XHXa`,~!"GB`+Ng@N
% 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,>OD,
,~ODY\OFQ<X\OF*+